SGK Sitesinde ileri butonuna tıklama sorunu

[gokhan36]

Merhaba,

sgk işe giriş sayfasında işlemi tamamlamak için ileri butonuna vba ile otamatik tıklmama yaptırmak istiyorum.

bu iki butuona tıklama yaptırmayı aşağıdak ikodu kullanrak nasıl yapabilirim.

ObjIE.document.getElementById("button1").Click


<INPUT onclick=javascript:do_belgeHazirla(); type=button value=İLERİ>

<INPUT onclick=javascript:do_belgeHazirla(); type=button value="İşe Giriş Bildirgesini Onaylamak İçin Buraya Basınız.">

Şimdiden teşekkürler.

[karisma61]

Kod: Tümünü seç

ObjIE.document.form(0).submit

şeklinde dener misin

[karisma61]

Veya

Kod: Tümünü seç

Dim ObjIE As Object
    Dim HTMLDoc As Object

Set HTMLDoc = ObjIE.document
Do
        
        Set Button = Nothing
        For Each elem In HTMLDoc.getElementsByTagName("input")
            If elem.Value = "İLERİ" Then
                Set Button = elem
                Exit For
            End If
        Next elem
        If Not Button Is Nothing Then Button.Click
        
       
        Application.Wait (Now + TimeValue("0:00:02"))

        
        Set Button = Nothing
        For Each elem In HTMLDoc.getElementsByTagName("input")
            If elem.Value = "İşe Giriş Bildirgesini Onaylamak İçin Buraya Basınız." Then
                Set Button = elem
                Exit For
            End If
        Next elem
        If Not Button Is Nothing Then Button.Click
Loop