[طالب برمجة]

PHP كود :

Dim url As String = "https://www.youtube.com/watch?v=nxdWkH4bUT4&list=PL6D0387199F00D7BF"

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 MatchCollection = Regex.Matches(a, "(?<=""videoId"":"")\w+(?="",""nofollow"":true)")

ListBox1.Items.Clear()
For Each c As Match In b
    ListBox1.Items.Add("https://www.youtube.com/watch?v=" & c.Value)
Next