السلام عليكم اخوتى
جلبت الروابط من هذا الموقع من خلال اداة الويب براوزر
لكنها اداة عقيمة بعض الشيئ واوقات لا تسعف
فهل هناك طريقة لجلب الروابط بأسمائها داخل الليست بوكس بدون ويب براوزر
وهذا هو الكود
PHP كود :
WebBrowser1.Document.GetElementById("home_search_q").InnerText = TextBox1.Text
WebBrowser1.Document.GetElementById("home_search_submit").InvokeMember("Click")
On Error Resume Next
Delay(10)
Dim input As HtmlElementCollection
input = WebBrowser1.Document.GetElementsByTagName("a")
For Each item As HtmlElement In input
If item.InnerText = ("Download as video") Then
ListBox1.Items.Add(item.GetAttribute("href"))
End If
Next item
وهذا رابط الموقع
لكل من يقوم بالمساهمة
