[سؤال] ممكن حل الله يكرمكم لهذا الموقع

[سؤال] ممكن حل الله يكرمكم لهذا الموقع - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] ممكن حل الله يكرمكم لهذا الموقع (/showthread.php?tid=23944)

الصفحات: 1 2

ممكن حل الله يكرمكم لهذا الموقع - ابو روضة - 22-02-18

جربت هذا الكود بال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")

RE: ممكن حل الله يكرمكم لهذا الموقع - طالب برمجة - 22-02-18

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 

RE: ممكن حل الله يكرمكم لهذا الموقع - ابو روضة - 22-02-18

(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_eqTg&list=PLzmKOZRcTsKl6TfRS7gX8PdAUOCSEe5Cb
اتمنى تحلها ربنا يكرمك ويبارك بعمرك

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

بحيث يكون الرابط مباشر

https://youtubemultidownloader.com/playlist.html

RE: ممكن حل الله يكرمكم لهذا الموقع - طالب برمجة - 23-02-18

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) 

RE: ممكن حل الله يكرمكم لهذا الموقع - ابو روضة - 23-02-18

(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]

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

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

https://youtubemultidownloader.com/playlist.html

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

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

ومعلش تعبتك أخى لكن الموضوع مغلبنى والله

RE: ممكن حل الله يكرمكم لهذا الموقع - طالب برمجة - 23-02-18

بالنسبة للموقع الآخر فلم أعرف له طريقته

RE: ممكن حل الله يكرمكم لهذا الموقع - ابو روضة - 23-02-18

(23-02-18, 01:44 AM)طالب برمجة كتب : بالنسبة للموقع الآخر فلم أعرف له طريقته

ولا يهمك اخى لعل وعسى ياتى شخص يكون جربه من قبل

وشكرا لك وجزاك الله كل خير

RE: ممكن حل الله يكرمكم لهذا الموقع - معاند الحظ - 30-11-19

اخي ابو روضه ماتحتاج تجلب الروابط من الموقع اللي ذكرته
استخدم برنامج اسمه Youtube-dl وهو برنامج يعمل من خلال CMD لذا يمكنك من برنامجك تشغيله
ليقوم هو بجلب الروابط وكل ماتحتاجه ليس فقط من اليوتيوب بل من عدد لاباس به من مواقع الفيديو

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

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

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

RE: ممكن حل الله يكرمكم لهذا الموقع - ابو روضة - 30-11-19

(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

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

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

RE: ممكن حل الله يكرمكم لهذا الموقع - معاند الحظ - 30-11-19

(30-11-19, 06:36 AM)ابو روضة كتب :
الله يكرمك أخى العزيز.

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

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