منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : اريد تحويل الكود
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاتة كيف احول هذا الكود بدل من 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
كود :
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
(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

شكرا جدا لك