[ابو روضة]

اتفضل أخى وأضف الأدوات التالية


Button1

RichTextBox1

WebBrowser1

Label1

PHP كود :

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
          Try
            RichTextBox1.Text = WebBrowser1.Document.GetElementsByTagName("HTML").Item(0).OuterHtml
            Dim doc As New HtmlAgilityPack.HtmlDocument
            doc.LoadHtml(RichTextBox1.Text)
            For Each w As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='bookmarkmenu']/div[1]/table/tbody/tr/td[2]/a[1]")
                Label1.Text = (w.InnerText.Trim)
            Next
        Catch ex As Exception
        End Try
    End Sub
End Class 


وأضف هذا الملف للمشروع

https://up.top4top.net/downloadf-1390ajbz91-rar.html