[ابو روضة]

السلام عليكم ورحمة الله وبركاته...

بحاول جلب هذه المواضيع الموجودة هنا  داخل ليست بوكس لكنه لا يعمل وأعتقد أن الكود صحيح من وجهه نظرى انا لكن أكيد سيكون عند أحدكم رأى أخر وبكل تأكيد سيكون أجمل..

موقع الاستشارات

كود :

 Dim url As String = "https://islamweb.net/ar/consult/index.php?page=listing&pid=5064"
       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("//*[@class='oneitems']/ul/li/h2/a[1]")
           ListBox1.Items.Add(n.InnerText)
           lst.Add("https://islamweb.net" & n.Attributes("href").Value)
       Next