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

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

(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 رابط الفيديو

(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

(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 


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

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

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

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

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

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

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

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

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

حتا تصل الفكر

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