[developermedo111]

السلام عليكم ورحمة الله وبركاتة كيف احول هذا الكود بدل من WebBrowser الي Selenium Chrome Driver 

كود :

       For Each Ele As HtmlElement In WebBrowser2.Document.GetElementsByTagName("a")
           If Ele.GetAttribute("classname").Contains("") Then
               Dim s As String = Ele.GetAttribute("")
               ListBox1.Items.Add(ResolveFBAccount(Ele.GetAttribute("href")) & "")
               ListBox2.Items.Add(Res(Ele.GetAttribute("")))

من الممكن ان يكون الكود غير مظبوط في المنتدي يمكنك الدخول علي هذا الرابط فيه الكود بشكل صحيح : https://pastebin.com/raw/eKaWXiDn

[mohamedahmed1]

كود :

Dim inp = driver.FindElements(By.TagName("a"))
               For Each Ele In inp
                   If Ele.GetAttribute("classname").Contains("") Then
                       Dim s As String = Ele.GetAttribute("")
                       ListBox1.Items.Add(ResolveFBAccount(Ele.GetAttribute("href")) & "")
                        ListBox2.Items.Add(Res(Ele.GetAttribute("")))
                   End If

[developermedo111]

(02-05-20, 06:20 AM)mohamedahmed1 كتب :

كود :

Dim inp = driver.FindElements(By.TagName("a"))
               For Each Ele In inp
                   If Ele.GetAttribute("classname").Contains("") Then
                       Dim s As String = Ele.GetAttribute("")
                       ListBox1.Items.Add(ResolveFBAccount(Ele.GetAttribute("href")) & "")
                        ListBox2.Items.Add(Res(Ele.GetAttribute("")))
                   End If

شكرا جدا لك