منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

https://suratmp3.com/quran/reciter/61

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

---

(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 


هل فكرت بسرد كافة القراء وامكانية تحميل السور؟!

(31-07-19, 06:19 PM)سعود كتب : [ -> ]هل فكرت بسرد كافة القراء وامكانية تحميل السور؟!

بصراحة لا لم أفكر بهذا لان المشكلة كانت معقدانى وحضرتك حلتها بفضل الله....
وبما أنك كتبت تعليق لآنى كنت محرج أسألك والله عن هذا .
لما كتبتها هكذا // مع اننا نكتبها واحدة فقط ؟
ولماذا حذفت هذين السطرين  "get-download"

(31-07-19, 08:52 PM)ابو روضة كتب : [ -> ]

(31-07-19, 06:19 PM)سعود كتب : [ -> ]هل فكرت بسرد كافة القراء وامكانية تحميل السور؟!

بصراحة لا لم أفكر بهذا لان المشكلة كانت معقدانى وحضرتك حلتها بفضل الله....
وبما أنك كتبت تعليق لآنى كنت محرج أسألك والله عن هذا .
لما كتبتها هكذا // مع اننا نكتبها واحدة فقط ؟
ولماذا حذفت هذين السطرين  "get-download"

الفرق بين اول رابط وآخر رابط هو هذا نستبدل listen بــ get-download
اما الخط المائل بصراحة الى الان لم افهم متى نستخدم هذا او هذا اقصد مفرد او مزدوج  / او //

الخط المائل \ يقوم بتحويل الحرف او العلامة التي تقع خلفة من المعنى المنطقي الى المعنى الحقيقي
يعني مثلا ان اردت ان تبحث عن النقطة بمعنها الحقيقي تكتبها هكذ \. وان اردت ان تبحث عن الشرطة المائلة بمعناها الحقيقي تكتبها هكذا \\ والشرطة الاخرى هكذ \/

(31-07-19, 10:23 PM)سامي محمد كتب : [ -> ]الخط المائل \ يقوم بتحويل الحرف او العلامة التي تقع خلفة من المعنى المنطقي الى المعنى الحقيقي
يعني مثلا ان اردت ان تبحث عن النقطة بمعنها الحقيقي تكتبها هكذ \. وان اردت ان تبحث عن الشرطة المائلة بمعناها الحقيقي تكتبها هكذا \\  والشرطة الاخرى هكذ \/

طيب اخواني انا معي كل السور اريد ان يكون هناك ملف داخل ملف مثل الفلود

اخي الكريم امجد ما رايك بتعديل ارتفاع صورة التوقيع لتكون مثل العرض