[ابو روضة]

(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 


فعلا نجحت اخى