Dim c As New CookieContainer
    Function registry_email(c As CookieContainer) As String
        Try
            Dim request As HttpWebRequest = HttpWebRequest.Create("https://10minutemail.net/")
            request.CookieContainer = c
            request.UserAgent = "Mozilla/5.0 (Windows NT 10.0; WOW64; rv:54.0) Gecko/20100101 Firefox/54.0"
            request.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
            request.Headers.Add("Accept-Language: en-US,en;q=0.5")
            Dim rs As String = New StreamReader(request.GetResponse().GetResponseStream()).ReadToEnd()
            Return Regex.Match(rs, "<input type=""text"" id=""fe_text"" class=""mailtext"" value=""(.*?)""/>").Groups.Item(1).Value
        Catch : Return "Error" : End Try
    End Function
    Function get_message(c As CookieContainer) As String
        Try
            Dim request As HttpWebRequest = HttpWebRequest.Create("https://10minutemail.net/")
            request.CookieContainer = c
            request.UserAgent = "Mozilla/5.0 (Windows NT 10.0; WOW64; rv:54.0) Gecko/20100101 Firefox/54.0"
            request.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
            request.Headers.Add("Accept-Language: en-US,en;q=0.5")
            Dim rs As String = New StreamReader(request.GetResponse().GetResponseStream()).ReadToEnd()
            Dim result As New StringBuilder()
            For Each x As Match In Regex.Matches(rs, "<table id=""maillist"">(.*?)</table>")
                For Each xx As Match In Regex.Matches(x.Groups.Item(1).Value, "onclick=""location='(.*?)'""")
                    Select Case xx.Groups.Item(1).Value = "readmail.html?mid=welcome"
                        Case False
                            result.AppendLine(xx.Groups.Item(1).Value)
                    End Select
                Next
            Next
            Return result.ToString
        Catch : Return "Error" : End Try
    End Function
    Function get_message_content(url As String, c As CookieContainer) As String
        Try
            Dim request As HttpWebRequest = HttpWebRequest.Create("https://10minutemail.net/" & url)
            request.CookieContainer = c
            request.UserAgent = "Mozilla/5.0 (Windows NT 10.0; WOW64; rv:54.0) Gecko/20100101 Firefox/54.0"
            request.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
            request.Headers.Add("Accept-Language: en-US,en;q=0.5")
            Dim rs As String = New StreamReader(request.GetResponse().GetResponseStream()).ReadToEnd()
            Return rs
        Catch : Return "Error" : End Try
    End Function
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim email As String = registry_email(c)
        Label5.Text = email
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim messagurl() As String = Split(get_message(c), vbNewLine)
        For i As Integer = 0 To messagurl.Length - 1
            Select Case messagurl(i).Trim() = Nothing
                Case False
                    Dim result As String = get_message_content(messagurl(i), c)
                    Dim mailhtml As String = Regex.Match(result, "<div class=""mailinhtml"">(.*?)</div><div ").Groups.Item(1).Value
                    Dim mailfrom As String = Regex.Match(result, "<span class=""mail_from"">(.*?)</span>").Groups.Item(1).Value
                    MsgBox(mailfrom & vbNewLine & vbNewLine & mailhtml)
            End Select
        Next
    End Sub