السلام عليكم إخوتى
بحاول جلب كامل هذه الصفحة بهذا الكود لكنه يجلبهم متكررين يعنى يجلب اول عشر مواضيع ويكررهم مرة اخرى
على حسب العدد اللى انا محدده واظن العيب فى هذه الكلمة page ...
https://www.amrkhaled.net/Category/26/%D...8%A7%D8%AA
كود :
dataGridView1.Rows.Clear()
For i As Integer = 1 To NumericUpDown1.Value
Dim url As String = ("https://www.amrkhaled.net/Category/26/استشارات?page=" & i)
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("//*[@id='section-grid-container']/div[1]/div/div[2]/h3/a")
dataGridView1.Rows.Add("https://www.amrkhaled.net" & n.Attributes("href").Value.ToString(), n.InnerText.Trim)
Next
Next
انا عملتها بالويب براوزر وتمام لكنه عقيم جدا كما تعرفون