[ابو روضة]

(30-08-17, 01:55 AM)سعود كتب :

إقتباس :هل يمكن تطبيق الفكرة على هذا الموقع وجزاكم الله خيرا

بكل تاكيد

كود :

Imports System.Net
Public Class Form1
   Dim lst As New List(Of String)
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim url As String = "http://ourquraan.com/shyookh/%D8%B3%D8%B9%D9%88%D8%AF-%D8%A7%D9%84%D8%B4%D8%B1%D9%8A%D9%85/"
       url = WebUtility.HtmlDecode(url)
       Dim hweb As New HtmlAgilityPack.HtmlWeb
       Dim doc As HtmlAgilityPack.HtmlDocument = hweb.Load(url, "Get")
       Dim nod As HtmlAgilityPack.HtmlNodeCollection = doc.DocumentNode.SelectNodes("//div[@class='btn-group']/p[2]")
       For r As Integer = 0 To nod.Count - 1
           ListBox1.Items.Add(nod.Item(r).InnerText.Trim)
           For Each n As HtmlAgilityPack.HtmlNode In nod(r).SelectNodes("//a[2]")
               If n.Attributes("href").Value.ToString.ToLower.Contains("/quran/") Then
                   lst.Add(n.Attributes("href").Value)
               End If
           Next
       Next
   End Sub
   Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
       AxWindowsMediaPlayer1.URL = lst(sender.selectedindex)
   End Sub
End Class