Imports System.IO
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.Net
Public Class Form1
    Dim carimail As String = "value=" - "(.*)@begoz.com"
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        wb1.ScriptErrorsSuppressed = True
    End Sub

    Private Sub resulT_TextChanged(sender As Object, e As EventArgs) Handles resulT.TextChanged

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        wb1.Navigate("https://tempail.com")
        resulT.Text = wb1.DocumentText
        Timer1.Start()
        ' wb1.Navigate("https://temp-mail.org")
        '  Dim anaL As String = wb1.DocumentText

        ' resulT.Text = anaL.ToString
        ' anaL = resulT.Text
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        wb1.Refresh()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If resulT.Text.Contains("@begoz.com") Then
            mail.Text = Asshole(resulT.Text, carimail)
        End If
    End Sub