المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
22-02-18, 07:10 PM
(آخر تعديل لهذه المشاركة : 22-02-18, 07:11 PM {2} بواسطة ابو روضة.)
جربت هذا الكود بالSelenium لآن مافيش اى حاجة نفعه معاه لوضع الرابط داخله ليجلب
لى كل الروابط لكن بلا جدوى مع كل شيئ حتى مع الSelenium وانا بصراحة بحاول معاه
من سنة تقريبا وكل مرة اتركه وارجع له مرة اخرى لكن بلا أدنى فائدة
فانا اريد وضع الرابط اللى فى الكود فى خانة البحث اللى فى الموقع ثم يجلب لى كل الروابط
داخل ليست بوكس ويارب الاقى حل هنا
كود :
Dim ss As IWebDriver
ss = New ChromeDriver
ss.Navigate.GoToUrl("https://youtubemultidownloader.com/playlist.html")
System.Threading.Thread.Sleep(10000)
Dim aa As IWebElement = ss.FindElement(By.ClassName("form-control"))
aa.SendKeys("https://www.youtube.com/watch?v=nxdWkH4bUT4&list=PL6D0387199F00D7BF")
المشاركات : 400
المواضيع 0
الإنتساب : Dec 2017
السمعة :
69
الشكر: 46
تم شكره 517 مرات في 325 مشاركات
PHP كود :
Dim url As String = "https://www.youtube.com/watch?v=nxdWkH4bUT4&list=PL6D0387199F00D7BF"
Dim wc As New Net.WebClient wc.Encoding = System.Text.Encoding.UTF8 wc.Headers.Add("user-agent", "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/63.0.3239.132 Safari/537.36") Dim a As String = wc.DownloadString(url)
Dim b As MatchCollection = Regex.Matches(a, "(?<=""videoId"":"")\w+(?="",""nofollow"":true)")
ListBox1.Items.Clear() For Each c As Match In b ListBox1.Items.Add("https://www.youtube.com/watch?v=" & c.Value) Next
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
22-02-18, 08:48 PM
(آخر تعديل لهذه المشاركة : 22-02-18, 09:03 PM {2} بواسطة ابو روضة.)
(22-02-18, 08:28 PM)طالب برمجة كتب : PHP كود :
Dim url As String = "https://www.youtube.com/watch?v=nxdWkH4bUT4&list=PL6D0387199F00D7BF"
Dim wc As New Net.WebClient wc.Encoding = System.Text.Encoding.UTF8 wc.Headers.Add("user-agent", "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/63.0.3239.132 Safari/537.36") Dim a As String = wc.DownloadString(url)
Dim b As MatchCollection = Regex.Matches(a, "(?<=""videoId"":"")\w+(?="",""nofollow"":true)")
ListBox1.Items.Clear() For Each c As Match In b ListBox1.Items.Add("https://www.youtube.com/watch?v=" & c.Value) Next
جميل جدا والله اخى وكنت عارف انك هاتجبها
لكن لما بغير اى قائمة تشغيل يوتيوب مش بيدرجها كلها
يعنى مثلا هذه القائمة 30 فيديو وبيجلب لى فقط 19
https://www.youtube.com/watch?v=fVdSNj_e...AUOCSEe5Cb
اتمنى تحلها ربنا يكرمك ويبارك بعمرك
وبعدين حضرتك جلبت قائمة قناة يوتيوب من اليوتيوب نفسه لكن انا عاوزها من هذا الموقع
بحيث يكون الرابط مباشر
المشاركات : 400
المواضيع 0
الإنتساب : Dec 2017
السمعة :
69
الشكر: 46
تم شكره 517 مرات في 325 مشاركات
PHP كود :
Dim url As String = "https://www.youtube.com/watch?v=fVdSNj_eqTg&list=PLzmKOZRcTsKl6TfRS7gX8PdAUOCSEe5Cb"
Dim wc As New Net.WebClient wc.Encoding = System.Text.Encoding.UTF8 wc.Headers.Add("user-agent", "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/63.0.3239.132 Safari/537.36") Dim a As String = wc.DownloadString(url)
Dim b As MatchCollection = Regex.Matches(a, "(?<=""videoId"":"")[a-zA-Z0-9_-]+(?="",""playlistId"")")
ListBox1.Items.Clear() For Each c As Match In b If Not ListBox1.Items.Contains("https://www.youtube.com/watch?v=" & c.Value) Then ListBox1.Items.Add("https://www.youtube.com/watch?v=" & c.Value) End If Next
MsgBox(ListBox1.Items.Count)
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
23-02-18, 01:12 AM
(آخر تعديل لهذه المشاركة : 23-02-18, 01:32 AM {2} بواسطة ابو روضة.)
(23-02-18, 12:53 AM)طالب برمجة كتب : PHP كود :
[align=center]Dim url As String = "https://www.youtube.com/watch?v=fVdSNj_eqTg&list=PLzmKOZRcTsKl6TfRS7gX8PdAUOCSEe5Cb"[/align] [align=center][/align] [align=center]Dim wc As New Net.WebClient[/align] [align=center]wc.Encoding = System.Text.Encoding.UTF8[/align] [align=center]wc.Headers.Add("user-agent", "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/63.0.3239.132 Safari/537.36")[/align] [align=center]Dim a As String = wc.DownloadString(url)[/align] [align=center][/align] [align=center]Dim b As MatchCollection = Regex.Matches(a, "(?<=""videoId"":"")[a-zA-Z0-9_-]+(?="",""playlistId"")")[/align] [align=center][/align] [align=center]ListBox1.Items.Clear()[/align] [align=center]For Each c As Match In b[/align] [align=center] If Not ListBox1.Items.Contains("https://www.youtube.com/watch?v=" & c.Value) Then[/align] [align=center] ListBox1.Items.Add("https://www.youtube.com/watch?v=" & c.Value)[/align] [align=center] End If[/align] [align=center]Next[/align] [align=center][/align] [align=center]MsgBox(ListBox1.Items.Count)[/align] [align=center][/align]
يبدو حضرتك لم تفهمنى كويس
انا اريد وضع رابط قائمة التشغيل بهذا الموقع
وأجلب الروابط المباشرة هذه من الموقع ليس من اليوتيوب نفسه
حضرتك جلبت روابط الفيديوهات نفسها من القناة لكن انا اريدها من هذا الموقع لآحمل الفيديوهات مباشرة
ومعلش تعبتك أخى لكن الموضوع مغلبنى والله
المشاركات : 400
المواضيع 0
الإنتساب : Dec 2017
السمعة :
69
الشكر: 46
تم شكره 517 مرات في 325 مشاركات
بالنسبة للموقع الآخر فلم أعرف له طريقته
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
23-02-18, 02:01 AM
(آخر تعديل لهذه المشاركة : 23-02-18, 02:02 AM {2} بواسطة ابو روضة.)
(23-02-18, 01:44 AM)طالب برمجة كتب : بالنسبة للموقع الآخر فلم أعرف له طريقته
ولا يهمك اخى لعل وعسى ياتى شخص يكون جربه من قبل
وشكرا لك وجزاك الله كل خير
المشاركات : 531
المواضيع 37
الإنتساب : Oct 2019
السمعة :
219
الشكر: 609
تم شكره 1654 مرات في 584 مشاركات
اخي ابو روضه ماتحتاج تجلب الروابط من الموقع اللي ذكرته
استخدم برنامج اسمه Youtube-dl وهو برنامج يعمل من خلال CMD لذا يمكنك من برنامجك تشغيله
ليقوم هو بجلب الروابط وكل ماتحتاجه ليس فقط من اليوتيوب بل من عدد لاباس به من مواقع الفيديو
انا استخدمه من 3 ثلاث سنين وبدون اي مشاكل
فلو حبيت اخي يمكني اضاقة رابط مشروعي لتقوم بتحميله
رابط الموقع الرسمي:
http://ytdl-org.github.io/youtube-dl
رابط البرنامج على GetHub:
https://github.com/ytdl-org/youtube-dl
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
(30-11-19, 06:33 AM)CrazyMe كتب : اخي ابو روضه ماتحتاج تجلب الروابط من الموقع اللي ذكرته
استخدم برنامج اسمه Youtube-dl وهو برنامج يعمل من خلال CMD لذا يمكنك من برنامجك تشغيله
ليقوم هو بجلب الروابط وكل ماتحتاجه ليس فقط من اليوتيوب بل من عدد لاباس به من مواقع الفيديو
انا استخدمه من 3 ثلاث سنين وبدون اي مشاكل
فلو حبيت اخي يمكني اضاقة رابط مشروعي لتقوم بتحميله
رابط الموقع الرسمي:
http://ytdl-org.github.io/youtube-dl
رابط البرنامج على GetHub:
https://github.com/ytdl-org/youtube-dl
الله يكرمك أخى العزيز.
لو مش هايتعبك أخى ياريت ترفع المشروع
المشاركات : 531
المواضيع 37
الإنتساب : Oct 2019
السمعة :
219
الشكر: 609
تم شكره 1654 مرات في 584 مشاركات
30-11-19, 06:49 AM
(آخر تعديل لهذه المشاركة : 30-11-19, 07:06 AM {2} بواسطة معاند الحظ.)
(30-11-19, 06:36 AM)ابو روضة كتب : الله يكرمك أخى العزيز.
لو مش هايتعبك أخى ياريت ترفع المشروع
معليش اخوي على كثرة الر وابط بسبب جوجل درايف
https://drive.google.com/file/d/1LDMuq6-...sp=sharing
|