تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ممكن حل الله يكرمكم لهذا الموقع
#1
جربت هذا الكود بال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")
الرد }}}
#2
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 
الرد }}}
#3
(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
اتمنى تحلها ربنا يكرمك ويبارك بعمرك

وبعدين حضرتك جلبت قائمة قناة يوتيوب من اليوتيوب نفسه لكن انا عاوزها من هذا الموقع
بحيث يكون الرابط مباشر

الرد }}}
تم الشكر بواسطة: asemshahen5 , asemshahen5
#4
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.ValueThen
        ListBox1
.Items.Add("https://www.youtube.com/watch?v=" c.Value)
    
End If
Next

MsgBox
(ListBox1.Items.Count
الرد }}}
تم الشكر بواسطة: asemshahen5
#5
(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.ValueThen[/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

يبدو حضرتك لم تفهمنى كويس

انا اريد وضع رابط قائمة التشغيل بهذا الموقع
وأجلب الروابط المباشرة هذه من الموقع ليس من اليوتيوب نفسه


حضرتك جلبت روابط الفيديوهات نفسها من القناة لكن انا اريدها من هذا الموقع لآحمل الفيديوهات مباشرة
ومعلش تعبتك أخى لكن الموضوع مغلبنى والله
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , asemshahen5
#6
بالنسبة للموقع الآخر فلم أعرف له طريقته
الرد }}}
تم الشكر بواسطة: معاند الحظ , asemshahen5
#7
(23-02-18, 01:44 AM)طالب برمجة كتب : بالنسبة للموقع الآخر فلم أعرف له طريقته

ولا يهمك اخى لعل وعسى ياتى شخص يكون جربه من قبل
وشكرا لك وجزاك الله كل خير
الرد }}}
تم الشكر بواسطة: طالب برمجة , asemshahen5
#8
اخي ابو روضه ماتحتاج تجلب الروابط من الموقع اللي ذكرته
استخدم برنامج اسمه Youtube-dl وهو برنامج يعمل من خلال CMD لذا يمكنك من برنامجك تشغيله
ليقوم هو بجلب الروابط وكل ماتحتاجه ليس فقط من اليوتيوب بل من عدد لاباس به من مواقع الفيديو

انا استخدمه من 3 ثلاث سنين وبدون اي مشاكل
فلو حبيت اخي يمكني اضاقة رابط مشروعي لتقوم بتحميله

رابط الموقع الرسمي:
http://ytdl-org.github.io/youtube-dl

رابط البرنامج على  GetHub:
https://github.com/ytdl-org/youtube-dl

الرد }}}
تم الشكر بواسطة: ابو روضة , محمد كريّم , asemshahen5
#9
(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

الله يكرمك أخى العزيز.


لو مش هايتعبك أخى ياريت ترفع المشروع
الرد }}}
تم الشكر بواسطة: asemshahen5
#10
(30-11-19, 06:36 AM)ابو روضة كتب :
الله يكرمك أخى العزيز.


لو مش هايتعبك أخى ياريت ترفع المشروع

معليش اخوي على كثرة الر وابط بسبب جوجل درايف 
https://drive.google.com/file/d/1LDMuq6-...sp=sharing

الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
Sad ممكن حل لهذا المشكل melad2002 0 239 30-01-24, 08:01 PM
آخر رد: melad2002
  ممكن استفسار عن m3u8 malekmohamed155 0 232 20-01-24, 07:47 PM
آخر رد: malekmohamed155
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  سؤال بسيط يا احبتى فى الله خالد كامل1 4 314 07-01-24, 12:55 AM
آخر رد: Mujahef
  ممكن تعديل في كود التفقيط للارقام melad2002 2 333 01-01-24, 08:47 PM
آخر رد: melad2002
  [VB.NET] السلام عليكم ممكن مساعدة اخوان احتاج يكون تسجيل الدخول textbox1 + textbox2 Coder_iraqii 4 400 18-12-23, 06:46 PM
آخر رد: Kamil
  ممكن كود ترقيم تلقائي في الداتا غريد فيو المبرمج البسيط 16 10,577 08-11-23, 01:44 AM
آخر رد: الحزين اليماني
  ممكن مساعدة في تعلم طريقة جمع التاريخ ؟ Ali_hassn 2 456 27-08-23, 02:18 AM
آخر رد: Ali_hassn
  من يعلم ما هذا الخطأ وكيف تصحيحه؟ جزاكم الله خيراً hazim1 2 370 14-07-23, 01:41 PM
آخر رد: hazim1

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم