[سعود]

PHP كود :

Imports System.Net
Imports System.Text

Public Class Form1
    Dim urls As New List(Of String)
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim html As String = ""
        Dim wc As New WebClient
        Dim url As String = "https://www.dropbox.com/sh/26jvkrm45hcgaoy/AACkcoPA985ZfWWoO2huCjzHa?dl=0"
        html = wc.DownloadString(url)
        Dim doc As New HtmlAgilityPack.HtmlDocument
        doc.LoadHtml(html)
        For Each nod As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//div[@class='filename']/a")
            ComboBox1.Items.Add(nod.InnerText.Trim)
            urls.Add(nod.Attributes("href").Value)
        Next
    End Sub

    Dim vidlinks As New List(Of String)
    Private Function gtitle(ByVal url As String) As String
        Dim html As String = ""
        Dim wc As New WebClient
        wc.Encoding = Encoding.UTF8
        html = wc.DownloadString(url)
        Dim doc As New HtmlAgilityPack.HtmlDocument
        doc.LoadHtml(html)
        Return doc.DocumentNode.SelectSingleNode("//title").InnerText
    End Function
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        Dim m As String = New WebClient().DownloadString(urls(ComboBox1.SelectedIndex))
        Dim doc As New HtmlAgilityPack.HtmlDocument
        doc.LoadHtml(m)



        Dim nod As HtmlAgilityPack.HtmlNode = doc.DocumentNode.SelectSingleNode("//iframe[@src]")
        Dim wc As New WebClient
        Dim h As String = wc.DownloadString(nod.Attributes("src").Value)
        Dim doc2 As New HtmlAgilityPack.HtmlDocument
        doc2.LoadHtml(h)
        For Each j As String In doc2.DocumentNode.SelectSingleNode("//pre").InnerText.Split(vbNewLine)
            vidlinks.Add(j)
            ListBox1.Items.Add(WebUtility.HtmlDecode(gtitle(j)))
        Next

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        AxShockwaveFlash1.Movie = vidlinks(ListBox1.SelectedIndex).ToString.Replace("watch?v=", "v/").Trim
    End Sub
End Class