[طالب برمجة]

PHP كود :

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

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"":"")[a-zA-Z0-9_-]+(?="",""playlistId"")")

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

MsgBox(ListBox1.Items.Count)