منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ممكن حل الله يكرمكم لهذا الموقع
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 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")
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 
(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
اتمنى تحلها ربنا يكرمك ويبارك بعمرك

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

https://youtubemultidownloader.com/playlist.html
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
(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

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

انا اريد وضع رابط قائمة التشغيل بهذا الموقع
https://youtubemultidownloader.com/playlist.html
وأجلب الروابط المباشرة هذه من الموقع ليس من اليوتيوب نفسه


حضرتك جلبت روابط الفيديوهات نفسها من القناة لكن انا اريدها من هذا الموقع لآحمل الفيديوهات مباشرة
ومعلش تعبتك أخى لكن الموضوع مغلبنى والله
بالنسبة للموقع الآخر فلم أعرف له طريقته
(23-02-18, 01:44 AM)طالب برمجة كتب : [ -> ]بالنسبة للموقع الآخر فلم أعرف له طريقته

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

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

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

رابط البرنامج على  GetHub:
https://github.com/ytdl-org/youtube-dl
(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

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


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


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

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