22-03-20, 07:59 PM
(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
شكرا يا غالي ربنا يحفظك
