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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=34561)

اريد تحويل الكود - developermedo111 - 02-05-20

السلام عليكم ورحمة الله وبركاتة كيف احول هذا الكود بدل من 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

RE: اريد تحويل الكود - mohamedahmed1 - 02-05-20

كود :
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


RE: اريد تحويل الكود - developermedo111 - 02-05-20

(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

شكرا جدا لك