[mervandzz]

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




                                                             عندي مشكلة في استخراج روابط هذه الصفحة


                                                                                  http://www.exalead.fr/search/web/results/?q=algerie
[url=http://www.exalead.fr/search/web/results/?q=algerie][/url]

                                                  حيث انها لا تضهر في  listbox  وهذه هي صورة التي توضح ذلك 

                                                                               

 وهذا الكود

كود :

Imports System.Text.RegularExpressions
Imports System.Net
Imports System.Text
Public Class Form1
   Dim lst As New List(Of String)
   Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
       Dim url As String = "http://www.exalead.fr/search/web/results/?q=algerie"
       Dim wc As New WebClient
       wc.Encoding = System.Text.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='media-body']/a[@href]")
           ListBox1.Items.Add(n.InnerText)

       Next
   End Sub

End Class

  ارجو المساعده و اكون شاكر لكم