منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كروم سيلينيوم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كروم سيلينيوم (/showthread.php?tid=33913)

الصفحات: 1 2


RE: كروم سيلينيوم - MoSami - 22-03-20

(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

شكرا يا غالي ربنا يحفظك