13-10-18, 02:55 PM
السلام عليكم ورحمة الله وبركاته
عندي مشكلة في استخراج روابط هذه الصفحة
http://www.exalead.fr/search/web/results/?q=algerie
[url=http://www.exalead.fr/search/web/results/?q=algerie][/url]
حيث انها لا تضهر في listbox وهذه هي صورة التي توضح ذلك
وهذا الكود
ارجو المساعده و اكون شاكر لكم
عندي مشكلة في استخراج روابط هذه الصفحة
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
ارجو المساعده و اكون شاكر لكم