Soru Web den Chrome ile veri çekme

[ÖmerFaruk]

Merhaba,
Siteden bulduğum kod ve çözümle Selenium driver indirdim.
Aşağıdaki kodları da kendime uyarlamaya çalışıyorum. Daha ilk aşamada takıldım.

Sub InterAktifVergiDairesiGir()
    obj.Get "https://www.apsiyon.com/manager/default.aspx"
    While obj.ExecuteScript("return document.readyState") <> "complete"
        obj.Wait (5000)
    Wend
    obj.FindElementById("txt_loginForm_emailPhone").SendKeys("TelefonNumaram")
    obj.FindElementById("egpField").SendKeys ("şifrem")
    obj.FindElementByClass("submitButton").Click
    While obj.ExecuteScript("return document.readyState") <> "complete"
        obj.Wait (5000)
    Wend
End Sub

Ancak obj.FindElementById("txt_loginForm_emailPhone").SendKeys("TelefonNumaram") satırında hata veriyor

Resim.JPG - 76 KB


Bu tür işlemlerde web sayfasında doldurulacak alan ya da butonları nasıl buluyoruz?
Kullanıcı adı ve password sonrasında site içerisindeki bazı buton - combobox ya da takvim öğelerine erişmem lazım gelecek.

 

[erenb]

Merhaba
Selenium ile (deneme yapmak amacıyla çeşitli sitelerden araştırma yapılarak) oluşturulan kod aşağıdadır.
Giriş kısmına kadar (butona tıklama dahil) çalışıyor.
Ama ondan sonrasını yani siteye girdikten sonra işlem yapma kısmını ben de bir kaç gündür arıyorum ama bulamadım.

Selenium; chrome için ayrı pencere açıyor ve (Chrome otomatik test yazılımı tarafından kontrol ediliyor ) uyarısı geliyor ekrana. İşin en kötü yanı da hiçbir bilgiyi hatırlamıyor. Yani aşağıdaki veri ile şifreyi girseniz bile; giriş bilgilerinizi (kullanıcı adı, şifre vs) hatırlamıyor.( ya da henüz nasıl yapıldığını onlarca sitede ben bulamadım)

Sub berat()

   Dim obj As WebDriver, s As String
    Set obj = New ChromeDriver

    obj.Get "https://www.apsiyon.com/manager/default.aspx"
  
  obj.FindElementByClass("account__forms__item").FindElementByClass("input", timeout:=10000).Clear
  obj.FindElementByClass("account__forms__item").FindElementByClass("input").SendKeys "0555 55 55 55"
  obj.FindElementById("txt_loginForm_password").FindElementByClass("input").SendKeys "ooooooo"
  obj.FindElementById("btn_loginForm_submit").Click
  '-----
   Stop
   
  
   
  
End Sub