شوف الدالة التالية
للاستخدام
تحتاج ملف HtmlAgilityPack اضفه كـreference
هذا بشكل عام ويمكنك زيادة الفلترة على مصدر الصفحة.
استخدم الموقع التالي للتحويل
http://converter.telerik.com/
كود :
Private Function getvids(ByVal url As String) As List(Of String)
Dim lst As New List(Of String)
Dim wc As New WebClient
wc.Encoding = Encoding.UTF8
Dim html As String = wc.DownloadString(TextBox1.Text)
Dim doc As New HtmlAgilityPack.HtmlDocument
doc.LoadHtml(html)
For Each nod As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//a[@class='yt-uix-sessionlink yt-uix-tile-link spf-link yt-ui-ellipsis yt-ui-ellipsis-2']")
lst.Add(nod.InnerText)
Next
Return lst
End Functionكود :
For Each itm In getvids(TextBox1.Text)
ListBox1.Items.Add(itm.Trim)
Nextتحتاج ملف HtmlAgilityPack اضفه كـreference
هذا بشكل عام ويمكنك زيادة الفلترة على مصدر الصفحة.
استخدم الموقع التالي للتحويل
http://converter.telerik.com/
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
