+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : جلب قائمة تشغيل يوتيوب | تلبية لطلب الأخ علىّ (/showthread.php?tid=36246)
جلب قائمة تشغيل يوتيوب | تلبية لطلب الأخ علىّ - ابو روضة - 29-08-20
طلب منى الأخ على Ali 2020
تحديث الرابط الذى كان بمشاركته فقلت أنشره هنا ليستفيد منه الجميع بأمر الله...
الكود كامل والمشروع مرفق
PHP كود :
Public Class Form1
Dim lst As New List(Of String)
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
WebBrowser1.ScriptErrorsSuppressed = True
WebBrowser1.Navigate(TextBox1.Text)
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
WebBrowser1.Navigate("https://www.youtube.com/" & lst(sender.selectedindex))
End Sub
Private Async Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim input As HtmlElementCollection
input = WebBrowser1.Document.GetElementsByTagName("a")
For Each item As HtmlElement In input
If item.GetAttribute("id").Contains("wc-endpoint") Then
lst.Add(item.GetAttribute("href"))
End If
Next item
Await Task.Delay(1000)
' 'جلب الاسم
Dim inp As HtmlElementCollection
inp = WebBrowser1.Document.GetElementsByTagName("span")
For Each item As HtmlElement In inp
If item.GetAttribute("id") = ("video-title") Then
ListBox1.Items.Add(item.InnerText)
End If
Next item
Me.Text = ListBox1.Items.Count
End Sub
End Class
RE: جلب قائمة تشغيل يوتيوب | تلبية لطلب الأخ علىّ - Ali 2020 - 29-08-20
الله يعوض عليك بل خير والزري الصلحة
شو حل عدام تشغيل موقع يتيوب
علي اداة ويب ابروزر انا بشغل يتيوب مش قبل هل
في برنامج عدي نص نزلة جافا سكربت
وعلي الفضي واقلاش ابلاير علي الفضي
بلهي تسعدني وكون شكر الككككككككككك
(29-08-20, 03:17 AM)Ali 2020 كتب :الله يعوض عليك بل خير والزري الصلحةشو حل عدام تشغيل موقع يتيوبعلي اداة ويب ابروزر انا بشغل يتيوب مش قبل هلفي برنامج عدي نقص نزلة جافا سكربتوعلي الفضي واقلاش ابلاير علي الفضيبلهي تسعدني وكون شكر الككككككككككك
RE: جلب قائمة تشغيل يوتيوب | تلبية لطلب الأخ علىّ - ابو روضة - 29-08-20
حمل الملف من مشاركة الأخ خالد هنا
وأضفه هكذا أخى
RE: جلب قائمة تشغيل يوتيوب | تلبية لطلب الأخ علىّ - Ali 2020 - 29-08-20
مشكور ابو روضة علي الجهد العظيم
RE: جلب قائمة تشغيل يوتيوب | تلبية لطلب الأخ علىّ - Ali 2020 - 29-08-20
السلام عليكم ورحمة الله وبركاتة
الحين المشكلة عدي انو اداة WebBrowser1 تعرض كول
الموقع ماعد موقع اليتيوب مش عرف شو حل المشكلة
هد هل بطلع بيدك تحل المشكلة هد
ولا كيف الامر خلايني اخلاص من المشروع
RE: جلب قائمة تشغيل يوتيوب | تلبية لطلب الأخ علىّ - Ali 2020 - 30-08-20
السلام عليكم ورحمة الله وبركاتة
الان اخي ابو رود تم حل المشكلة تعة اداة
WebBrowser1 كيف تم حل المشكل عرفة المشكل
وين تقع المشكل في متصفح تاع الويندورز
Internet Explorer وحداث الاصدار وعرض عدي الفيديوهات
علي البرنامج
الان وبعد ان خلاصة المشكل الخرجي
جاي دور واللي هو كيف اجيب الروبط
تعوت الفيديوهات في قائيمة التشغيل
مش الاسمي تعت الفيديوهات
لالالا لبود ترد علي واخر طلب مني الك ابو روضة يا
بركة المنتدي بلهي ترد علي وتسعدين
وكون شكر الك وبهيك بكون نهية البرنامج تعي
بلهي ماتتجهال الرسال هد ورد علي
وهد اخر طالب مني لك
^^^وشكراء^^^^
^^^^^^^^^^^^^^^ابو روضة^^^^^^^^^^^^^^
RE: جلب قائمة تشغيل يوتيوب | تلبية لطلب الأخ علىّ - Ali 2020 - 05-09-20
السلام عليكم ورحمة الله وبركاتة
اليم انا بدي منك بس تشاهد
الفيديو هد من اجل ان تراء ماء يوجد من البرامج
التي تجلب الروبط
RE: جلب قائمة تشغيل يوتيوب | تلبية لطلب الأخ علىّ - Ali 2020 - 10-09-20
اخر فيديو بسويه مشان انت\
لا تفهم علي اسلوب الكتبي تعاتي
كمان انا عملة الفيديو هد وحطية فيه شغال جابر
وكمان بدي تعرف شو نواع المعني اللي انا بحول اعمل علي جلب الروبط
بلهي تشاهد الفيديو والله يوفقق
والله يخليك يا بورضة طول روحك علي اشوي