[ابو روضة]

كود :

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

يحدث ايرو من url ولا اعلم لماذا