web sitesi bağlantısı hk.

[chakistes]

iyi yıllar arkadaşlar e-okul veli bilgilendirme sistemine bağlantı yapmaya çalışıyorum fakat yapamadım. bu konuda yardıma ihtiyacım var.
aşağıdaki şekilde denedim fakat olmadı.
On Error Resume Next
Dim objIEBrowser
Set objIEBrowser = CreateObject("InternetExplorer.Application")
objIEBrowser.Visible = True
objIEBrowser.Navigate2 "https://e-okul.meb.gov.tr/"
bekleT
objIEBrowser.Document.getElementById("butonsag.png").getElementsByTagName("img")(3).Click
Do While objIEBrowser.Busy
Loop

 

[PLİNT]

Merhaba
Yukarıdaki kodlarınızı; aşağıdaki gibi değiştirerek denermisiniz?

Dim objIEBrowser
Set objIEBrowser = CreateObject("InternetExplorer.Application")
objIEBrowser.Visible = True
objIEBrowser.Navigate2 "https://e-okul.meb.gov.tr/"
Do While Not objIEBrowser.ReadyState = 4: DoEvents: Loop
objIEBrowser.document.getElementById("information").getElementsByTagName("img")(1).Click

 

[chakistes]

teşekkür ederim işe yaradı daha önceki sürümde image dosyasına ekrandaki güvenlik kodunu da çekebiliyorum. bunuda yapma imkanı varmıdır.