12-11-17, 04:44 PM
السلام عليكم
بحاول اجلب اسماء الأحزاب من هنا
لكن بيظهر بشكل غريب هكذا
وهذا الكود الذى استعمله
PHP كود :
ListBox1.Items.Clear()
Dim url As String = "http://www.quranpagesmp3.com/quraters/qurtr1_mp3.php"
Dim wc As New WebClient
wc.Encoding = Encoding.Default
Dim html As String = wc.DownloadString(url)
Dim doc As New HtmlAgilityPack.HtmlDocument
html = WebUtility.HtmlDecode(html)
doc.LoadHtml(html)
Dim nod As HtmlAgilityPack.HtmlNodeCollection = doc.DocumentNode.SelectNodes("//table[2]/tbody")
For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//td[5]/a")
lst.Add(n.Attributes("href").Value)
Next
For Each n2 As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//td[1]")
If n2.InnerText.Contains("حزب") = False Then
ListBox1.Items.Add(n2.InnerText)
End If
Next
Label1.Text = ListBox1.Items.Count