[ابو روضة]

السلام عليكم ورحمة الله وبركاته
كنت عاوز اعرف ازاى اجلب صورة كل فيديو بهذا الشكل حينما اقوم بجلب قائمة تشغيل يوتيوب؟
يعنى ما هى الاداة التى بها هذه الصور هل مثلا PictureBox ؟؟ ام ماذا

[طالب برمجة]

إن ما اراه مجرد صورة لاادري مصدرها
فاذا لم تضع رابطها ان كانت من موقع
فكيف سيتم اجابتك على سؤالك؟

[ابو روضة]

(01-02-18, 04:54 AM)طالب برمجة كتب : إن ما اراه مجرد صورة لاادري مصدرها
فاذا لم تضع رابطها ان كانت من موقع
فكيف سيتم اجابتك على سؤالك؟

محتوى قناة تشغيل اخى واتفضل

https://www.youtube.com/playlist?list=PL...HM6nXm3m4S

[طالب برمجة]

ضع مربع صورة
هذا الكود يقرأ روابط الصور ويضعها في المصفوفة d
وستعرض لك رسالة بها رابط الفيديو للصورة المعروضة

PHP كود :

Dim url As String = "https://www.youtube.com/playlist?list=PLeDJ7sxASv3SV-F1VbF4VKoHM6nXm3m4S"

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 String = Regex.Match(a, "(<div id=""img-preload"").+?(</div>)", RegexOptions.Singleline).Value
Dim c As MatchCollection = Regex.Matches(b, "(?<=<img src="").+?(?="")")
Dim d() As String = (From x As Match In c Select x.Value).ToArray

For Each iu As String In d
    Dim vu As String = "https://www.youtube.com/watch?v=" & Regex.Match(iu, "(?<=https://i.ytimg.com/vi/).+?(?=/)").Value
    PictureBox1.ImageLocation = iu
    MsgBox(vu)
Next 


أصبح لديك متغيران داخل حلقة For
iu رابط الصورة
vu رابط الفيديو

[ابو روضة]

(01-02-18, 08:16 AM)طالب برمجة كتب : ضع مربع صورة
هذا الكود يقرأ روابط الصور ويضعها في المصفوفة d
وستعرض لك رسالة بها رابط الفيديو للصورة المعروضة

PHP كود :

Dim url As String = "https://www.youtube.com/playlist?list=PLeDJ7sxASv3SV-F1VbF4VKoHM6nXm3m4S"

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 String = Regex.Match(a, "(<div id=""img-preload"").+?(</div>)", RegexOptions.Singleline).Value
Dim c As MatchCollection = Regex.Matches(b, "(?<=<img src="").+?(?="")")
Dim d() As String = (From x As Match In c Select x.Value).ToArray

For Each iu As String In d
    Dim vu As String = "https://www.youtube.com/watch?v=" & Regex.Match(iu, "(?<=https://i.ytimg.com/vi/).+?(?=/)").Value
    PictureBox1.ImageLocation = iu
    MsgBox(vu)
Next 


أصبح لديك متغيران داخل حلقة For
iu رابط الصورة
vu رابط الفيديو

الله يسعد قلبك اخى العزيز ويبارك بعمرك...
انا كنت اريد ادراجهم كلهم داخل كذا PictureBox يعنى بعدد الصور
يتم وضع PictureBox وفى كل واحد صورة لفيديو يعنى مثلا لو فى القناة عشر فيديوهات
فيتم وضع صورة لكل فيديو داخل ال PictureBox
انا اسف اخى بس بقالى فترة وانا بحاول معاها  والله بس للأسف مش عارف
انا حاولت بهذا لكنه يجلبهم داخل الليست بوكس أى يجلب روابط الصورة
وانا اريد ادراج وعرض كل الصور داخل الPictureBox كل فيديو بصورته الخاصة

كود :

 Dim inputs As HtmlElementCollection
       inputs = WebBrowser1.Document.GetElementsByTagName("img")
       For Each item As HtmlElement In inputs
           If item.GetAttribute("src").Contains("i.ytimg.com/") Then
               ListBox1.Items.Add(item.GetAttribute("src"))
           End If
       Next

[طالب برمجة]

(01-02-18, 09:17 AM)ابو روضة كتب : انا حاولت بهذا لكنه يجلبهم داخل الليست بوكس أى يجلب روابط الصورة
وانا اريد ادراج وعرض كل الصور داخل الPictureBox كل فيديو بصورته الخاصة

كود :

 Dim inputs As HtmlElementCollection
       inputs = WebBrowser1.Document.GetElementsByTagName("img")
       For Each item As HtmlElement In inputs
           If item.GetAttribute("src").Contains("i.ytimg.com/") Then
               ListBox1.Items.Add(item.GetAttribute("src"))
           End If
       Next

حسنا أضف أداة FlowLayoutPanel وقم بتفعيل الخاصية AutoScroll

PHP كود :

Dim inputs As HtmlElementCollection
inputs = WebBrowser1.Document.GetElementsByTagName("img")
For Each item As HtmlElement In inputs
    If item.GetAttribute("src").Contains("i.ytimg.com/") Then
        Dim pb As New PictureBox
        pb.SizeMode = PictureBoxSizeMode.Zoom
        pb.ImageLocation = item.GetAttribute("src")
        pb.Parent = Me.FlowLayoutPanel1
    End If
Next 


[ابو روضة]

(01-02-18, 09:31 AM)طالب برمجة كتب : حسنا أضف أداة FlowLayoutPanel وقم بتفعيل الخاصية AutoScroll

PHP كود :

Dim url As String = "https://www.youtube.com/playlist?list=PLeDJ7sxASv3SV-F1VbF4VKoHM6nXm3m4S"

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 String = Regex.Match(a, "(<div id=""img-preload"").+?(</div>)", RegexOptions.Singleline).Value
Dim c As MatchCollection = Regex.Matches(b, "(?<=<img src="").+?(?="")")
Dim d() As String = (From x As Match In c Select x.Value).ToArray

For Each iu As String In d
    Dim vu As String = "https://www.youtube.com/watch?v=" & Regex.Match(iu, "(?<=https://i.ytimg.com/vi/).+?(?=/)").Value
    Dim pb As New PictureBox
    pb.Size = New Size(200, 150)
    pb.SizeMode = PictureBoxSizeMode.Zoom
    pb.ImageLocation = iu
    pb.Parent = Me.FlowLayoutPanel1
Next 


فعلا نجحت اخى

[Ali Edal]

حبيبي ابو النت والبرمجية سلمة ايديك 

والله يوضعلك البرك ان توسع صدرك لي

حتاء ترا ما انا به

الله يرحمك ويرحم اموتك تصبور علي شوي

وتشوف انا شو بدي وتسعدين في المشكل هد

وكتر الله خيرك

  وهد ربط الفيديو ممكن تشاهده وتعرف منه انا شو المشكل اللي عدي

حتا توضح لك الصور وانا ضعيف في الكتبي وصورت الفيديو

حتا تصل الفكر

[video=liveleak]https://www.youtube.com/watch?v=azXVDTAIgjg&feature=youtu.be[/video]

[ابو روضة]

(12-01-20, 01:03 PM)Ali Edal كتب :

حبيبي ابو النت والبرمجية سلمة ايديك 

والله يوضعلك البرك ان توسع صدرك لي

حتاء ترا ما انا به

الله يرحمك ويرحم اموتك تصبور علي شوي

وتشوف انا شو بدي وتسعدين في المشكل هد

وكتر الله خيرك

  وهد ربط الفيديو ممكن تشاهده وتعرف منه انا شو المشكل اللي عدي

حتا توضح لك الصور وانا ضعيف في الكتبي وصورت الفيديو

حتا تصل الفكر

[video=liveleak]https://www.youtube.com/watch?v=azXVDTAIgjg&feature=youtu.be[/video]

حسنا أخى الان فهمت ماذا تقصد أنت تريد جلب جميع الروابط ليس 10 أو أقل بل كل ما فى قائمة التشغيل صح ؟

طيب أنت تريد جلب روابط القائمة فقط اللى موجودة مثلا على قناة حسونة ؟

أم تريد جلب الرابط المباشر لتحملهم ؟ 

فلو اردت تحميلهم فهنا شيئ أخر وستحتاج الى اضافات اخرى.

أخبرنى فقط عما تريده التحميل أم جلب الروابط فقط اللى على اليوتيوب.

[Ali Edal]

 الله ينور عليك انا اريد فقط جلب الروبط 

من قائيمة الشتغيل حتاء لو وصل عداد الفيديوهات

الي 1220 مثال بس كول اللي انا عوزه هو

جلب الروبط فقط لا غير 

ومن اول فيديو الي اخر فيديو في القائيمة

التشغيل يتيوب

يعني لو القائيمة فيها 33 يتي ب33مقطع

ولو فيها 111ياتي بهم جميعن

ولو فيها 1111 يتي بل تحجيم او نقصان

والشكور كول الشكور اللي اصحاب الخبرا امثال 

والله يرحم ولديك ان كانو احيا او اموت والرحم

تجوز علي الحي والميت

وتسلم تسلم والفففففففففففففففففففف

شكور الك اخي ابو روضة 

صحيح

وتسلم ايدك والله يوضعلك البرك في مالك وعيالك تسلم تسلم ومشكور الك

---