(22-03-20, 02:29 AM)ابو روضة كتب :اتفضل بالويب براوزر لآنى كنت رايح انام والله...اضف زر وبوتون وتكست بوكسواضف هذا الكود وسيجلب لك روابط التحميل كلهاامسح كل الاكواد واضف هذا
كود :
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
تسلم يا غالي ربنا يحفظك .
(22-03-20, 02:29 AM)ابو روضة كتب :اتفضل بالويب براوزر لآنى كنت رايح انام والله...اضف زر وبوتون وتكست بوكسواضف هذا الكود وسيجلب لك روابط التحميل كلهاامسح كل الاكواد واضف هذا
كود :
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
اسف اخي ع ازعاجك ولكن اين اضع الرابط ؟
