(22-03-20, 07:21 AM)trakktour كتب :

(22-03-20, 06:44 AM)MoSami كتب :

(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

تمام اخي نجحت الفكرة ولكن انا طبقتا من اكوادك بواسطة كروم سيلينيوم 

وهذا كود ال استعملته 

كود :

service.HideCommandPromptWindow = True
       dr = New ChromeDriver(service, options)
       dr.Navigate.GoToUrl("https://ar.movizland.online/%d9%81%d9%8a%d9%84%d9%85-tinker-bell-and-the-great-fairy-rescue-2010-%d9%85%d8%af%d8%a8%d9%84%d8%ac-%d8%a7%d9%88%d9%86-%d9%84%d8%a7%d9%8a%d9%86/")
       System.Threading.Thread.Sleep(5000)
       dr.FindElement(By.ClassName("WatchNow")).Click()
       System.Threading.Thread.Sleep(5000)


       Dim links = dr.FindElements(By.TagName("a"))
       For Each item In links
           If item.GetAttribute("href").Contains(".html?download_") Then
               ListBox1.Items.Add(item.GetAttribute("href"))
           End If
       Next item

ولكن اريد ان اخفي نافذة كروم لكي لا تظهر للمستخدم هل يمكن ؟

تفضل

كود :

       Dim options As New ChromeOptions
       options.AddArgument("--headless")

اضفها تحت

كود :

       service.HideCommandPromptWindow = True