كود :
Dim url As String = "https://www.alukah.net/fatawa_counsels/3002/"
Dim wc As New WebClient
wc.Encoding = Encoding.UTF8
Dim html As String = wc.DownloadString(url)
Dim doc As New HtmlAgilityPack.HtmlDocument
doc.LoadHtml(html)
For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//table[@class='table']/tr[1]/td[1]/a/id")
dataGridView1.Rows.Add(n.Attributes("href").Value.ToString(), n.InnerText.Trim)
Me.Text = dataGridView1.RowCount
Next