Selenium.WebDriver ile seçim yapabilme

[Erdem Akdemir]

Merhaba,

Selenium nesnesi ile aşağıdaki adresteki ilçe seçme işlemini nasıl yapabiliriz.
URL ile giriş yapmadan, nesne üzerinden nasıl seçim yapabilirim.

https://www.istanbuleczaciodasi.org.tr/nobetci-eczane/

Teşekkürler

 

[Haluk]

Selenium kullanmak şart değilse, XMLHTTP ile E-Devlet sitesinden verileri almak üzere hazırlanmış bir dosyam var ...

.

 

[Erdem Akdemir]

Haluk bey teşekkür ederim.Ögrenme amaçlı sordum,sizin çalışmanız bende mevcut.

Selenium ile kodlamak çok rahat ama burda tıkandım maalesef.

 

[Haluk]

Anlıyorum .... Selenium konusunda sanırım @veyselemre arkadaşımızın çalışmaları var. Size yardımcı olabilir....

.

 

[Zeki Gürsoy]

Selenium konusu benim de hoşuma gitmişti ama çalışmadı. Her sistem için stabil bir uygulama değil galiba.????

 

[Erdem Akdemir]

Zeki bey merhaba,

Standartta olmaması ve kurulum gerektiriyor olması dezavantaj.
Kodlanmasının basitliği ve öğrenimin kolaylığı avantajı.

 

[veyselemre]

Bende hakim değilim ama acemice makro kaydet gibi adım adım ikinci kodumu yazmış oldum. Çok kolay yöntemi vardır, ama pek kaynak yok, ayrıca her sitenin bin bir türlü huyu var, deneme yanılma yaparak yazdım. Belki bir sene sonra bu koda çok güleriz.

Dim driver As ChromeDriver
Dim keys As Selenium.keys
Sub test2()
    If driver Is Nothing Then
        Set driver = New ChromeDriver
        Set keys = New Selenium.keys
        driver.Get "https://www.istanbuleczaciodasi.org.tr/nobetci-eczane"
        driver.Wait 1000
    End If
    Call ilceTikla("Ataşehir")
End Sub
Sub ilceTikla(ilce)
    Set ara = driver.FindElementByXPath("//*[@id=""filter_form""]/span/input")
    driver.Window.Maximize
    driver.Mouse.MoveTo ara
    driver.Mouse.Click
    driver.SendKeys keys.Delete
    driver.Wait 1000
    For i = 1 To Len(ilce) - 1
        driver.SendKeys Mid(ilce, i, 1)
    Next i
    driver.SendKeys keys.ArrowDown
    driver.SendKeys keys.Enter
    driver.Wait 1000
    driver.TakeScreenshot.Copy
    [a1].Select
    ActiveSheet.Paste
End Sub

 

[Erdem Akdemir]

Veysel bey elinize sağlık.

 

[Haluk]

Biraz geç kaldım, aradan 2 yıl geçmiş ama ben de Selenium'a ısınmaya çalışırken ekli dosyayı hazırladım.... Burada bulunsun diye ekliyorum,

A2 hücresinde ilçe seçimi yaptıktan sonra, butona basınca nöbetçi eczanelerin verileri listeleniyor ve harita sayfaya geliyor.

Not: Dosyada revizyon yapıldı....

.

 

[Necdet]

Haluk bey, selenium ile başladınız bu işin sonu Python ile biter diye düşünüyorum

 

[Haluk]

Olabilir ... ( ͡~ ͜ʖ ͡°)

.