05-04-16, 07:00 PM
05-04-16, 11:16 PM
05-04-16, 11:38 PM
05-04-16, 11:43 PM
06-04-16, 12:41 AM
06-04-16, 01:23 AM
06-04-16, 01:24 AM
06-04-16, 01:28 AM
06-04-16, 02:17 AM
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
06-04-16, 02:21 AM
(06-04-16, 02:17 AM)سعود كتب : [ -> ]
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
اخى بعد ازنك ممكن المشروع عشان فى اخطاء ظهر لى