[سعود]

(27-06-19, 06:28 PM)سامي محمد كتب : استخدم هذا الكود
 

كود :

TextBox1.Text = System.Text.RegularExpressions.Regex.Match(WebBrowser1.DocumentText, "<per>(.+)</per>").Groups(1).Value

نسخت الرابط ووضعته في دالة

PHP كود :

Private Function It(ByVal html As String) As String
        Return System.Text.RegularExpressions.Regex.Match(html, "<per>(.+)</per>").Groups(1).Value
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using wc As New Net.WebClient
            wc.Encoding = System.Text.Encoding.UTF8
            TextBox2.Text = It(wc.DownloadString(TextBox1.Text))
        End Using
    End Sub