[ابو روضة]

(31-08-17, 12:06 AM)سعود كتب :

إقتباس :لا اقصد المرفق اللى رفعته لكن للاسف مش عارف ليه لم يتم رفعه

معلش اخي لم افهم المشكلة
هل المرفق الذي رفعته انت لم يعمل؟
انا حملته واطلع عليه.

---

ياااااااااااااااه شوف الحيلة
تم حذف الامتداد .mp3
المهم انظر التعديل

كود :

Imports System.Net
Imports System.Text
Public Class Form1
   Dim lst As New List(Of String)
   Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
       AxWindowsMediaPlayer1.URL = lst(sender.selectedindex)
   End Sub
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim url As String = "http://www.koranmp3.com/quran/38_Mohamed-Mahmoud-Eltablawy/38_Mohamed-Mahmoud-Eltablawy_64.html"
       Dim hweb As New HtmlAgilityPack.HtmlWeb
       Dim doc As HtmlAgilityPack.HtmlDocument = hweb.Load(url, "Get")
       Dim nod As HtmlAgilityPack.HtmlNode = doc.GetElementbyId("playlist1")
       For Each h As HtmlAgilityPack.HtmlNode In nod.ChildNodes
           If h.InnerText.Trim <> "" Then
               lst.Add(h.Attributes("data-path").Value & ".mp3")
               ListBox1.Items.Add(h.InnerText.Trim)
           End If
       Next
   End Sub
End Class

---

الان لدينا برنامجين لكافة القراء وبقي آخر موقع  من يعدل على المثال الاخير ليكون كافة القراء.
ارجو من صاحب الموضوع تعديل العنوان ليكون مناسب لوجود امثلة جيدة.

---

لحظة اخي الكريم ...خلاص بعد معرفتك باستخدام htmlweb  لست بحاجة لـ webclient و  html

الله يسعدك اخى سعود ويبارك بعمرك ويرزقك جنة عرضها كعرض السموات والأرض...

حقيقى انا مفتخر بك جدا