(23-02-18, 12:53 AM)طالب برمجة كتب :PHP كود :
[align=center]Dim url As String = "https://www.youtube.com/watch?v=fVdSNj_eqTg&list=PLzmKOZRcTsKl6TfRS7gX8PdAUOCSEe5Cb"[/align]
[align=center][/align]
[align=center]Dim wc As New Net.WebClient[/align]
[align=center]wc.Encoding = System.Text.Encoding.UTF8[/align]
[align=center]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")[/align]
[align=center]Dim a As String = wc.DownloadString(url)[/align]
[align=center][/align]
[align=center]Dim b As MatchCollection = Regex.Matches(a, "(?<=""videoId"":"")[a-zA-Z0-9_-]+(?="",""playlistId"")")[/align]
[align=center][/align]
[align=center]ListBox1.Items.Clear()[/align]
[align=center]For Each c As Match In b[/align]
[align=center] If Not ListBox1.Items.Contains("https://www.youtube.com/watch?v=" & c.Value) Then[/align]
[align=center] ListBox1.Items.Add("https://www.youtube.com/watch?v=" & c.Value)[/align]
[align=center] End If[/align]
[align=center]Next[/align]
[align=center][/align]
[align=center]MsgBox(ListBox1.Items.Count)[/align]
[align=center][/align]
يبدو حضرتك لم تفهمنى كويس
انا اريد وضع رابط قائمة التشغيل بهذا الموقع
وأجلب الروابط المباشرة هذه من الموقع ليس من اليوتيوب نفسه
حضرتك جلبت روابط الفيديوهات نفسها من القناة لكن انا اريدها من هذا الموقع لآحمل الفيديوهات مباشرة
ومعلش تعبتك أخى لكن الموضوع مغلبنى والله
