[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