[ابو روضة]

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

اخوتى بحاول اجلب روابط هذه الصفحة 

http://fatwa.islamweb.net/fatwa/index.ph...&CatId=186

باسمائها لكن الاسماء تأتى دون الروابط

وهذا صور للمشروع والمشروع مرفق اتمنى الحل الله يكرمكم

كود :

 Dim url As String = "http://fatwa.islamweb.net/fatwa/index.php?page=FatwaCategory&CatId=186"
       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("//div[@class='contents']/a[@href]")
           ListBox1.Items.Add(n.InnerText)
           lst.Add(n.Attributes("href").Value)
       Next