Çözüldü Uyarı Butonunu aktife alma

[hasankardas]

Web den veri almaya çalışıyorum ilk butona tıkladıktan sonra Tamam -İptal butonu veriyor. Uyarı iletisinde Tamam ı nasıl otomatik tıklatabilirim..

Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
       IE.Visible = True
    IE.navigate "*******.aspx"
  
       Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
  
    IE.document.getElementsByName("ctl03$btnAktifeAl")(0).Click
      
    Application.Wait (Now + TimeValue("00:00:02"))
    IE.document.parentWindow.execScript "window.confirm = function() { return true; }", "JavaScript"
    IE.document.getElementById("ctl03_btnAktifeAl").Click
  
        Application.Wait (Now + TimeValue("00:00:02")) ' 2 saniye bekle
    IE.Quit
    Set IE = Nothing
End Sub

 

[pitchoute]

Merhaba, bu şekilde deneyip sonucu paylaşabilir misiniz;

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "*******.aspx"
    
Do While IE.Busy Or IE.readyState <> 4
    DoEvents
Loop

IE.document.parentWindow.execScript "window.confirm = function() { return true; }", "JavaScript"

Application.Wait (Now + TimeValue("00:00:01"))

IE.document.getElementById("ctl03_btnAktifeAl").Click

Application.Wait (Now + TimeValue("00:00:02"))

IE.Quit
Set IE = Nothing

 

[hasankardas]

Teşekkür ederim çalıştı

 

[pitchoute]

Rica ederim, iyi çalışmalar