29-08-20, 02:48 AM
طلب منى الأخ على Ali 2020
تحديث الرابط الذى كان بمشاركته فقلت أنشره هنا ليستفيد منه الجميع بأمر الله...
الكود كامل والمشروع مرفق
PHP كود :
Public Class Form1
Dim lst As New List(Of String)
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
WebBrowser1.ScriptErrorsSuppressed = True
WebBrowser1.Navigate(TextBox1.Text)
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
WebBrowser1.Navigate("https://www.youtube.com/" & lst(sender.selectedindex))
End Sub
Private Async Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim input As HtmlElementCollection
input = WebBrowser1.Document.GetElementsByTagName("a")
For Each item As HtmlElement In input
If item.GetAttribute("id").Contains("wc-endpoint") Then
lst.Add(item.GetAttribute("href"))
End If
Next item
Await Task.Delay(1000)
' 'جلب الاسم
Dim inp As HtmlElementCollection
inp = WebBrowser1.Document.GetElementsByTagName("span")
For Each item As HtmlElement In inp
If item.GetAttribute("id") = ("video-title") Then
ListBox1.Items.Add(item.InnerText)
End If
Next item
Me.Text = ListBox1.Items.Count
End Sub
End Class