01-02-18, 08:16 AM
(آخر تعديل لهذه المشاركة : 01-02-18, 08:47 AM {2} بواسطة طالب برمجة.)
ضع مربع صورة
هذا الكود يقرأ روابط الصور ويضعها في المصفوفة d
وستعرض لك رسالة بها رابط الفيديو للصورة المعروضة
أصبح لديك متغيران داخل حلقة For
iu رابط الصورة
vu رابط الفيديو
هذا الكود يقرأ روابط الصور ويضعها في المصفوفة 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
iu رابط الصورة
vu رابط الفيديو

