31-08-17, 12:58 AM (آخر تعديل لهذه المشاركة : 31-08-17, 02:28 AM {2} بواسطة ابو روضة.)
(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
الله يسعدك اخى سعود ويبارك بعمرك ويرزقك جنة عرضها كعرض السموات والأرض...
Dim url As String = "https://download.quranicaudio.com/quran/wadee_hammadi_al-yamani/"
Dim hweb As New HtmlAgilityPack.HtmlWeb
Dim doc As HtmlAgilityPack.HtmlDocument = hweb.Load(url, "Get")
Dim nod As HtmlAgilityPack.HtmlNode = doc.GetElementbyId("//pre")
For Each h As HtmlAgilityPack.HtmlNode In nod.ChildNodes
If h.InnerText.Trim <> "" Then
lst.Add(h.Attributes("href").Value & ".mp3")
ListBox1.Items.Add(h.InnerText.Trim)
End If
Next
لكن جربت بهذه الطريقة وجلبت كل الروابط لكنى لا احب الويب براوزر
كود :
Dim input As HtmlElementCollection
input = WebBrowser1.Document.GetElementsByTagName("a")
For Each item As HtmlElement In input
If item.GetAttribute("href").Contains("mp3") Then
item.GetAttribute("href")
ListBox1.Items.Add(item.GetAttribute("href"))
End If
Next item
(01-09-17, 04:50 AM)سعود كتب : المثال مرفق فيه شغلة جديدة بالمثال لتعم الفائدة وهي بخصوص wmplib
كود :
Imports AxWMPLib
Public Class Form1
Dim lst As New List(Of String)
Dim wmp As New WMPLib.WindowsMediaPlayer
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim url As String = "https://download.quranicaudio.com/quran/wadee_hammadi_al-yamani/"
Dim hweb As New HtmlAgilityPack.HtmlWeb
Dim doc As HtmlAgilityPack.HtmlDocument = hweb.Load(url, "Get")
Dim nod As HtmlAgilityPack.HtmlNodeCollection = doc.DocumentNode.SelectNodes("//a[@href]") 'doc.GetElementbyId("//pre")
For r As Integer = 1 To nod.Count - 2
lst.Add("https://download.quranicaudio.com/quran/wadee_hammadi_al-yamani/" & nod(r).Attributes("href").Value)
ListBox1.Items.Add(nod(r).Attributes("href").Value)
Next
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
' wmp = New WMPLib.WindowsMediaPlayer
wmp.URL = lst(ListBox1.SelectedIndex)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
wmp.controls.stop()
End Sub
End Class
اخي الكريم ابو روضة حاول تكتشف ايش اللي انا سويت وحاول تعرف ليه وهذا بعد الاطلاع على كل القائمة من ../ الى cover.jpg
بالصفحة طبعا اللي هي هذي https://download.quranicaudio.com/quran/...al-yamani/
اقصد هذي
For r As Integer = 1 To nod.Count - 2
قلنا من رقم 1 لان الرقم صفر هو ../ والرقم الاخير ارتباط صورة الغلاف
والله انا ما عارف ماذا اقول لك لكن فعلا انا متعجب ان بلدنا العربى بها مبدعين بهذا الشكل...
وصدقنى والله هذا ليس ثناءاً بل هذه حقيقة ولعلمك انا كل مؤلفاتى التى قمت بها كانت تتحدث عن الإبداع والتميز " تحفيز الذات " وكأنى أعرفك منذ سنوات..
أتمنى من المشرفين أن يتم تثبيت هذا الموضوع لآن به أمثلة جميلة وستكون مرجعاً لكل من أراد " وجهه نظر "
