17-10-18, 09:54 PM
السلام عليكم ورحمة الله وبركاته.
حاولت بهذا الكود جلب الروابط بالاسماء كى يتم تشغيلهم بهذا الكود لكن مش عاوزة تظبط
كود :
Dim url As String = "https://www.tvquran.com/ar/scholar/224/profile/%D8%B1%D8%B9%D8%AF-%D8%A7%D9%84%D9%83%D8%B1%D8%AF%D9%8A"
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("//div[@class='listitem-details']/h4/a[@href]")
ListBox1.Items.Add(n.InnerText)
lst.Add("https://www.tvquran.com/ar/scholar/224/profile/رعد-الكردي" & n.Attributes("href").Value)
Next
الموقع
رعد الكردي