senuba
Yeni Üye
- Katılım
- 28 Eyl 2018
- Mesajlar
- 9
- En iyi yanıt
- 0
- Puanları
- 1
- Yaş
- 36
- Konum
- Türkiye
- Ad Soyad
- Yasin Coşkuner
Merhaba,
Kaydol butonuna tıklayınca resimdeki uyarıyı veriyor. Bunu engelleme veya sayfada ayrıl'a tıklamak mümkün mü?
"Bu Sayfadan Ayrılmak İstediğinizden Emin misiniz?" diye soruyor ve "sayfadan ayrıl" seçmek istiyorum.
Ayrıca Bu Linkte başka biri daha karşılaşmış ve galiba çözmüş. Fakat Vba'ya uyarlayamadım.
Kullandığım kod şu şekilde ("oelement.Click" yordamında ek pencere geliyor) :
Kaydol butonuna tıklayınca resimdeki uyarıyı veriyor. Bunu engelleme veya sayfada ayrıl'a tıklamak mümkün mü?
"Bu Sayfadan Ayrılmak İstediğinizden Emin misiniz?" diye soruyor ve "sayfadan ayrıl" seçmek istiyorum.
Ayrıca Bu Linkte başka biri daha karşılaşmış ve galiba çözmüş. Fakat Vba'ya uyarlayamadım.
Kullandığım kod şu şekilde ("oelement.Click" yordamında ek pencere geliyor) :
Kod:
Private Sub Command1_Click()
WebBrowser2.Navigate "https://www.instagram.com"
WebBrowser2.Document.All("emailOrPhone").innerText = "adres"
WebBrowser2.Document.All("fullName").innerText = "ad"
WebBrowser2.Document.All("username").innerText = "k.adı"
WebBrowser2.Document.All("password").innerText = "şifre"
Dim oCol As IHTMLElementCollection
Set oCol = Form1.WebBrowser2.Document.All.tags("button")
For Each oelement In oCol
If InStr(oelement.className, "oF4XW sqdOP L3NKy ") > 0 Then
oelement.Click
End If
Next oelement
End Sub