[ابو روضة]

اتفضل بالويب براوزر لآنى كنت رايح انام والله...

اضف زر وبوتون وتكست بوكس

واضف هذا الكود وسيجلب لك روابط التحميل كلها

امسح كل الاكواد واضف هذا

كود :

Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim allB As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
       For Each bt As HtmlElement In allB
           If bt.GetAttribute("href").Contains(".html?download_") Then
               ListBox1.Items.Add(bt.GetAttribute("href"))
           End If
       Next

   End Sub
   Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       Dim s As HtmlElementCollection = WebBrowser1.Document.All
       For Each webpageelement As HtmlElement In s
           If webpageelement.InnerText = "مشاهدة و تحميل" Then
               webpageelement.InvokeMember("click")

           End If
       Next
   End Sub
End Class