[ابو روضة]

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

بحاول أجلب من هنا سور القرءان داخل الليست بوكس

وبتجلبهم فعلا لكن لا يوجد شيئ ظاهر وهذا هو الكود

كود :

 ListBox1.Items.Clear()
       Dim url As String = "https://suratmp3.com/quran/reciter/61"
       Dim wc As New WebClient
       wc.Encoding = Encoding.Default
       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-content']/div/div[3]/div/ul/li/span/i")
           ListBox1.Items.Add(n.InnerText.Trim)
           lst.Add(n.Attributes("sound-data").Value)
       Next

الموقع

https://suratmp3.com/quran/reciter/61