(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
الله يسعدك اخى سعود ويبارك بعمرك ويرزقك جنة عرضها كعرض السموات والأرض...
حقيقى انا مفتخر بك جدا


