Selenium.WebDriver ile seçim yapabilme

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,268
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Selenium kullanmak şart değilse, XMLHTTP ile E-Devlet sitesinden verileri almak üzere hazırlanmış bir dosyam var ...

.
 

Erdem Akdemir

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,596
Excel Vers. ve Dili
2016 PRO TÜRKÇE-İNG. 64 BİT
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

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,268
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Anlıyorum .... Selenium konusunda sanırım @veyselemre arkadaşımızın çalışmaları var. Size yardımcı olabilir....

.
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,225
Excel Vers. ve Dili
Office 2019 (64 bit) - Türkçe
Selenium konusu benim de hoşuma gitmişti ama çalışmadı. Her sistem için stabil bir uygulama değil galiba.????
 

Erdem Akdemir

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,596
Excel Vers. ve Dili
2016 PRO TÜRKÇE-İNG. 64 BİT
Zeki bey merhaba,

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

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,553
Excel Vers. ve Dili
Pro Plus 2021
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.
Kod:
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
 
Son düzenleme:

Erdem Akdemir

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,596
Excel Vers. ve Dili
2016 PRO TÜRKÇE-İNG. 64 BİT
Veysel bey elinize sağlık.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,268
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
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ı....

.
 

Ekli dosyalar

Son düzenleme:

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,180
Excel Vers. ve Dili
Ofis 365 Türkçe
Haluk bey, selenium ile başladınız bu işin sonu Python ile biter diye düşünüyorum :)
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,268
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Olabilir ... ( ͡~ ͜ʖ ͡°)

.
 
Üst