[ابو روضة]

(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