Çözüldü Excel VBA JavaScript Alert and Popup TAG'lanı Nasıl Ulaşabilirim.

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

atillaparlak

Yeni Üye
Katılım
11 Haz 2021
Mesajlar
4
En iyi yanıt
0
Puanları
3
Yaş
44
Konum
Diyarbakır
Ad Soyad
Atilla Parlak
Office Versiyon
2019
Merhaba Değerli Hocalarım,

https://parts.peugeot.com adresine ilk girişte JavaScript Alert ile Kullanıcı Adı ve Şifre kısımın TAG'larına ulaşamadım. Kullanıcı ve Şifreyi giriş yaparak oturum açmak İstiyorum. Konu hakkında yardımını rica ederim.

1623438084694.png
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,327
En iyi yanıt
11
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Versiyon
Office 365 TR+EN
Merhabalar @atillaparlak (y)
Adrese gittikten sonra SendKeys ile ilerleyebilirsiniz.

Örnek;
C++:
SendKeys "username", True
SendKeys "{tab}", True
SendKeys "Password", True
SendKeys "{enter}", True
 

atillaparlak

Yeni Üye
Katılım
11 Haz 2021
Mesajlar
4
En iyi yanıt
0
Puanları
3
Yaş
44
Konum
Diyarbakır
Ad Soyad
Atilla Parlak
Office Versiyon
2019
Merhabalar @atillaparlak (y)
Adrese gittikten sonra SendKeys ile ilerleyebilirsiniz.

Örnek;
C++:
SendKeys "username", True
SendKeys "{tab}", True
SendKeys "Password", True
SendKeys "{enter}", True

Merhaba Murat Hocam,

Öncelikle ilginiz için teşekkür Ederim. Ben kodları aşağıdaki gibi yaptım fakat olmadı. Ayrıca kullanıcı adı ve şifreyi nereye gireceğimi bilemedim. Desteğinizi rica ederim.Saygılarımla,

Private Sub CommandButton1_Click()
Dim baglan As New Selenium.WebDriver, element As WebElements
baglan.Start "chrome"
baglan.Get "https://parts.peugeot.com/sap/bc/gui/sap/its/zmenu?sap-language=EN"

baglan.SendKeys "username", True
baglan.SendKeys "{tab}", True
baglan.SendKeys "Password", True
baglan.SendKeys "{enter}", True
baglan.Quit

End Sub
 

Ekli dosyalar

  • test.xlsm
    19.9 KB · Görüntüleme: 0

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,327
En iyi yanıt
11
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Versiyon
Office 365 TR+EN
username ve password yazan yere yazmayı denediniz mi?
 

atillaparlak

Yeni Üye
Katılım
11 Haz 2021
Mesajlar
4
En iyi yanıt
0
Puanları
3
Yaş
44
Konum
Diyarbakır
Ad Soyad
Atilla Parlak
Office Versiyon
2019
username ve password yazan yere yazmayı denediniz mi?

Evet denedim Murat Hocam. Sayfaya gidiyoruz fakat alert içerisindeki textboxlara veri ulaşmıyor. Gönderdiğim örnek dosyada görebilirsiniz. Teşekkür Ederim.
 

Ekli dosyalar

  • test.xlsm
    20.5 KB · Görüntüleme: 4

atillaparlak

Yeni Üye
Katılım
11 Haz 2021
Mesajlar
4
En iyi yanıt
0
Puanları
3
Yaş
44
Konum
Diyarbakır
Ad Soyad
Atilla Parlak
Office Versiyon
2019
Murat Hocam. Konu anlattığınız gibi çözüldü. Ben başına "baglan." ekleyince hata alıyordum.

Tekrardan Teşekkür Ederim.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt