[ابو روضة]

(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 لان الرقم صفر هو ../ والرقم الاخير ارتباط صورة الغلاف

والله انا ما عارف ماذا اقول لك لكن فعلا انا متعجب ان بلدنا العربى بها مبدعين بهذا الشكل...

وصدقنى والله هذا ليس ثناءاً بل هذه حقيقة ولعلمك انا كل مؤلفاتى التى قمت بها كانت تتحدث عن الإبداع والتميز " تحفيز الذات " وكأنى أعرفك منذ سنوات..

أتمنى من المشرفين أن يتم تثبيت هذا الموضوع لآن به أمثلة جميلة وستكون مرجعاً لكل من أراد " وجهه نظر "