Selenium Basic İle Popup sayfasına giriş

[masuk500]

Merhaba
Selenium basic ile www.luca.com.tr adresine girip ardından sistem giriş ve hemen ardından da Luca Net tıklıyoruz. Açılan popup sayfasına kullanıcı ve şifre bilgilerini bir türlü gönderemedim. Popup sayfaları ile ilgili farklı bir işlem mi yapmak gerekiyor?

 

[askm]

www.luca.com.tr adresi yerine https://agiris.luca.com.tr/TicariSSO/giris.erp adresinden giriş yapıp deneyin.

 

[masuk500]

www.luca.com.tr adresi yerine https://agiris.luca.com.tr/TicariSSO/giris.erp adresinden giriş yapıp deneyin.

denedim ama kullanıcı bilgileri doğru olduğu halde hatalı kullanıcı uyarısı alıyorum.

 

[askm]

Kullanıcı bilgisi atarsanız özelden akşam bakarım. Ya da ekran paylaşırsanız bakarım.

 

[masuk500]

Kullanıcı bilgisi atarsanız özelden akşam bakarım. Ya da ekran paylaşırsanız bakarım.

Kullanıcı bilgilerini paylaşmam şirket açısından etik olmaz ama ekran paylaşımı nasıl uzaktan bağlantı ile mi yapacaksınız?

 

[askm]

Amy ya da team ile ekran verirseniz bakarız.

 

[masuk500]

Amy ya da team ile ekran verirseniz bakarız.

ammyy verebilirim szie özelden mesaj yazdım

 

[mrc41353]

Merhabalar, konu çözüme ulaştı mı acaba?

 

[masuk500]

Merhabalar, konu çözüme ulaştı mı acaba?

İlgilenen arkadaş ve sizin ilginiz için teşekkürler. Maalesef çözüm bulamadık.

 

[muratboz06]

denedim ama kullanıcı bilgileri doğru olduğu halde hatalı kullanıcı uyarısı alıyorum.

Yazdığınız kodu paylaşır mısınız. Kullanıcı adı, şifre vb. bilgileri xxxx olarak belirtebilirsiniz.

 

[masuk500]

Yazdığınız kodu paylaşır mısınız. Kullanıcı adı, şifre vb. bilgileri xxxx olarak belirtebilirsiniz.

Kod aşağıdadır.
Private w As New Selenium.ChromeDriver

Sub LucaNetGiriş()

Dim MusteriNo, KullaniciAdi, Parola As String
Application.ScreenUpdating = False
MusteriNo = Worksheets("Giriş").Range("B2")
KullaniciAdi = Worksheets("Giriş").Range("C2")
Parola = Worksheets("Giriş").Range("D2")


w.Start
w.Window.Maximize
w.Get "https://www.luca.com.tr/"
'w.Get "https://agiris.luca.com.tr/TicariSSO/giris.erp"
w.FindElementByXPath("/html/body/nav/div/div[2]/ul/li[11]/a").Click
w.FindElementByXPath("/html/body/nav/div/div[2]/ul/li[11]/div/div/div/div[2]/div/div[2]/a/div").Click
w.FindElementById("musteriNo").SendKeys MusteriNo
w.FindElementByName("kullaniciAdi").SendKeys KullaniciAdi
w.FindElementByName("parola").SendKeys Parola
' w.FindElementByXPath("/html/body/form/div[3]/div[4]/input").Click



End Sub

 

[muratboz06]

Deneyiniz.

Private w As New Selenium.ChromeDriver

Sub LucaNetGiriş()

Dim MusteriNo, KullaniciAdi, Parola As String
Application.ScreenUpdating = False
MusteriNo = Worksheets("Giriş").Range("B2")
KullaniciAdi = Worksheets("Giriş").Range("C2")
Parola = Worksheets("Giriş").Range("D2")


w.Start
w.Window.Maximize
w.Get "https://agiris.luca.com.tr/TicariSSO/giris.erp"
w.Wait (1000)
w.FindElementById("musteriNo").ClickContext
w.FindElementById("musteriNo").SendKeys MusteriNo
w.FindElementById("kullaniciAdi").ClickContext
w.FindElementByName("kullaniciAdi").SendKeys KullaniciAdi
w.FindElementByName("parola").ClickContext
w.FindElementByName("parola").SendKeys Parola
w.FindElementByXPath("/html/body/form/div[3]/div[4]/input").ClickDouble

End Sub

 

[masuk500]

Deneyiniz.

Private w As New Selenium.ChromeDriver

Sub LucaNetGiriş()

Dim MusteriNo, KullaniciAdi, Parola As String
Application.ScreenUpdating = False
MusteriNo = Worksheets("Giriş").Range("B2")
KullaniciAdi = Worksheets("Giriş").Range("C2")
Parola = Worksheets("Giriş").Range("D2")


w.Start
w.Window.Maximize
w.Get "https://agiris.luca.com.tr/TicariSSO/giris.erp"
w.Wait (1000)
w.FindElementById("musteriNo").ClickContext
w.FindElementById("musteriNo").SendKeys MusteriNo
w.FindElementById("kullaniciAdi").ClickContext
w.FindElementByName("kullaniciAdi").SendKeys KullaniciAdi
w.FindElementByName("parola").ClickContext
w.FindElementByName("parola").SendKeys Parola
w.FindElementByXPath("/html/body/form/div[3]/div[4]/input").ClickDouble

End Sub

merhaba
1.aşamayı aşağıdaki şekilde aştım

Private w As New Selenium.ChromeDriver

Sub LucaNetGiriş()

Dim MusteriNo, KullaniciAdi, Parola As String
Application.ScreenUpdating = False
MusteriNo = Worksheets("Giriş").Range("B2")
KullaniciAdi = Worksheets("Giriş").Range("C2")
Parola = Worksheets("Giriş").Range("D2")


w.Start
w.Window.Maximize
w.Get "https://agiris.luca.com.tr/TicariSSO/giris.erp"
w.FindElementById("musteriNo").SendKeys MusteriNo
w.FindElementByName("kullaniciAdi").SendKeys KullaniciAdi
w.FindElementByName("parola").SendKeys Parola
w.SendKeys w.Keys.Enter
'''''''w.FindElementByXPath("/html/body/form/div[3]/div/div[1]/div").Click

End Sub

Ancak hemen akabinde bir popup daha var. Burayı aşamadım.