[سعود]

اكيد اني مستعجل لكن ان شاء الله تنبهني على اي شي نسيته

PHP كود :

Dim lst As New List(Of String)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Dim url As String = "https://suratmp3.com/quran/reciter/61"
        Dim wc As New WebClient
        wc.Encoding = 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("//*[@id='section-content']/div/div[3]/div/ul/li/span/i")
        '    ListBox1.Items.Add(n.InnerText.Trim)
        '    lst.Add(n.Attributes("sound-data").Value)
        'Next

        Dim nc As HtmlAgilityPack.HtmlNodeCollection = doc.DocumentNode.SelectNodes("//ul[@class='playlist no-top list']//li//div[@class='title-container']//a")
        For Each h As HtmlAgilityPack.HtmlNode In nc
            ListBox1.Items.Add(h.InnerText.Trim)
        Next
        Button1.Enabled = True
    End Sub 


---

  GetNamesFromUrl.zip (الحجم : 23.9 ك ب / التحميلات : 38)

PHP كود :

Imports System.Net
Imports System.Text

Public Class Form1
    Dim lst As New List(Of String)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Dim url As String = "https://suratmp3.com/quran/reciter/61"
        Dim wc As New WebClient
        wc.Encoding = 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("//*[@id='section-content']/div/div[3]/div/ul/li/span/i")
        '    ListBox1.Items.Add(n.InnerText.Trim)
        '    lst.Add(n.Attributes("sound-data").Value)
        'Next

        Dim nc As HtmlAgilityPack.HtmlNodeCollection = doc.DocumentNode.SelectNodes("//ul[@class='playlist no-top list']//li//div[@class='title-container']//a")
        For Each h As HtmlAgilityPack.HtmlNode In nc
            ComboBox1.Items.Add(h.InnerText.Trim)
            lst.Add(h.Attributes("href").Value.ToString.Replace("listen", "get-download") & ".mp3")
        Next
        Button1.Enabled = True
    End Sub

   

  
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim i As Integer = ComboBox1.SelectedIndex
        If i >= 0 Then
            wmp.URL = lst(i)
        End If
    End Sub
End Class