mesudiye_052
Destek Ekibi
- Katılım
- 26 Haz 2022
- Mesajlar
- 207
- Çözümler
- 61
- Aldığı beğeni
- 280
- Excel V
- Office 2016 TR
Merhabalar
(tüm Sayfalardaki url ler değişmiyor navigate2 işe yaramıyor)
1.sayfa parola sayfası
2.sayfa kullanıcıların listelendiği sayfa burada devam butouna bastıktan sonra 3. sayfaya geçiliyor
3. sayfa ana sayfa
Aşağıdaki kod ile anasayfaya kadar gidiliyor fakat ana sayfa elementlerine erişim yapılamıyor, değişkenimiz anasayfayı refere etmiyor
HTMLDoc değişkeni 2. sayfanın elementlerini gösteriyor, refere ediyor
Anasayfanın elementlerini nasıl erişim yaptırabiliriz.
(tüm Sayfalardaki url ler değişmiyor navigate2 işe yaramıyor)
1.sayfa parola sayfası
2.sayfa kullanıcıların listelendiği sayfa burada devam butouna bastıktan sonra 3. sayfaya geçiliyor
3. sayfa ana sayfa
Aşağıdaki kod ile anasayfaya kadar gidiliyor fakat ana sayfa elementlerine erişim yapılamıyor, değişkenimiz anasayfayı refere etmiyor
HTMLDoc değişkeni 2. sayfanın elementlerini gösteriyor, refere ediyor
Anasayfanın elementlerini nasıl erişim yaptırabiliriz.
PHP:
Sub GetHTMLDocument()
Dim IE As New SHDocVw.InternetExplorer
Dim HTMLDoc As MSHTML.HTMLDocument
Dim HTMLInput As MSHTML.IHTMLElement
Dim HTMLButtons As MSHTML.IHTMLElementCollection
Dim HTMLButton As MSHTML.IHTMLElement
IE.Visible = True
IE.navigate "http://xxxxxxx"
Do While IE.ReadyState <> READYSTATE_COMPLETE
Loop
Set HTMLDoc = IE.Document
'Birinci sayfa parola sayfası
Set HTMLInput = HTMLDoc.getElementById("sap-user")
HTMLInput.Value = "xxxxxx"
Set HTMLInput = HTMLDoc.getElementById("sap-password")
HTMLInput.Value = "xxxxxx"
Set HTMLInput = HTMLDoc.getElementById("LOGON_BUTTON")
HTMLInput.Click
'ikinci sayfa kullanıcı ve davam et sayfası
Application.Wait Now + TimeValue("00:00:10")
Set HTMLButtons = HTMLDoc.getElementsByTagName("a")
For Each HTMLButton In HTMLButtons
Debug.Print HTMLButton.innerText
If HTMLButton.getAttribute("innertext") = "Devam" Then
HTMLButton.Click
Exit For
End If
Next HTMLButton
'3.cü sayfa ana sayfa
Set HTMLButtons = HTMLDoc.getElementsByTagName("div")
For Each HTMLButton In HTMLButtons
Debug.Print HTMLButton.getAttribute("innertext")
Next HTMLButton
Stop
End Sub
Son düzenleme:
