internet explorer nesnesi ile veri alma

[Erdem Akdemir]

Merhaba,

İnternet explorer nesnesi ile veri alırken sitenin yüklenmesini aşağıdaki kod ile kontrol edebiliyoruz.
Bazen kod ile kontrol etmesine rağmen çalışmak istediğimde İD bulunamadı hatası veriyor.
ID bulunana kadar kontrol etmesi şartını nasıl ekleyebilirim.

 Do While .Busy: DoEvents: Loop: Do While Not .ReadyState = 4: DoEvents: Loop

ie.document.getElementById("gen__1006")

 

[Haluk]

Eskiden bu iş için hazırladığım bir kod aşağıdadır. İşinize yarayabilir....

Sub Test()
    'Haluk - 17/02/2019
    'E-Posta: sa4truss@gmail.com
    '
    Dim IE As Object, elapsedTime As Long
    Const MAX_WAIT_SEC As Long = 5
    
    Set IE = CreateObject("InternetExplorer.Application")
    IE.navigate "https://www.tcmb.gov.tr/wps/wcm/connect/tr/tcmb+tr/main+page+site+area/bugun"
    
    elapsedTime = Timer
    
    Do While Not IE.readyState = 4
        DoEvents
    Loop
    
    Do
        If IE.Document.getElementsByClassName("deger").Length > 0 Then Exit Do
        If Timer - elapsedTime > MAX_WAIT_SEC Then
            MsgBox "Bekleme süresini aştı..... kod sonlandırıldı!"
            GoTo SafeExit:
        End If
    Loop
    
    KurAlis = IE.Document.getElementsByClassName("deger")(2).innerText
    KurSatis = IE.Document.getElementsByClassName("deger")(1).innerText
    
    MsgBox "KurAlis = " & KurAlis & vbCrLf & vbCrLf & "KurSatis =" & KurSatis
SafeExit:
    Set IE = Nothing
End Sub

.

 

[Erdem Akdemir]

Teşekkür ederim @Haluk bey, elinize sağlık.

 

[Erdem Akdemir]

@Haluk bey 5 çalıştırmanın birinde permission denied hatası alıyorum.
Bunu çözme imkanımız var mı?

 

[Haluk]

Erdem Bey, hangi URL'den veri alıyorsunuz bilmiyorum ama, eğer sık aralıklarla sorgulama yapıyorsanız; sunucunun yapılandırılmasından dolayı bu bir "saldırı" olarak değerlendirilip, gönderdiğiniz istekler reddedilebilir......Devamında yine tekrarlanması halinde IP'niz yasaklanabilir.

Ya da, sizin internet hızınızla ilgili bir durum olabilir...

.

 

[Zeki Gürsoy]

@Erdem Akdemir, sahi ne oldu bizim iş? Gerçi ben hatırlattıktan sonra önemi kalmaz ama nezaket gereği bir cevap beklemiştim...

.