[ابو روضة]

السلام عليكم إخوتى

بموضوع مضى ساعدنى الاخ الجوكر الله يكرمه بكود ينزل لآسفل صفحة على الانترنت

ليجلب كل المواضيع لكن وقتها كان الموضوع بالويب براوزر لكن الويب براوزر اصبح

الآن غير عملى إطلاقا فقمت بفضل الله بجلب هذه الصفحات بال HtmlAgilityPack

لكن المشكلة ان الصفحة بها مائة موضوع وهذا الكود يجلب فقط اول 10 مواضيع

فكيف أجلب كل المواضيع التى بالصفحة الله يبارك فيكم..

الكود

كود :

Dim url As String = "https://www.storiesrealistic.com/category/قصص-اطفال/"
       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("//h2[@class='entry-title']/a")
           ListBox2.Items.Add(n.InnerText)
           lst.Add(n.Attributes("href").Value)

           Me.Text = ListBox2.Items.Count
       Next

أتمنى يكون لها حل