تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد تحويل الكود
#1
السلام عليكم ورحمة الله وبركاتة كيف احول هذا الكود بدل من 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
الرد
تم الشكر بواسطة: asemshahen5 , asemshahen5
#2
كود :
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
[صورة مرفقة: p_1583w56341.gif]
الرد
تم الشكر بواسطة: developermedo111 , asemshahen5
#3
(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

شكرا جدا لك
الرد
تم الشكر بواسطة: asemshahen5 , mohamedahmed1



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم