[ابو روضة]

(31-07-19, 06:51 AM)سعود كتب : اكيد اني مستعجل لكن ان شاء الله تنبهني على اي شي نسيته

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 


---

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 


هههه عارف انك اللى هاتجبها عشان كدة كتبت HtmlAgilityPack الليست بوكس لا تظهر الاسماء

بدلا من  الليست بوكس لا تظهر الاسماء..

جزاك الله كل الخير أخى سعود فنان ماشاء الله