şifreli giriş ile login olup Giriş botunana bastırmak

[tahsinanarat]

https://tts.turkiyeshell.com/Default.aspx?act=login sitesine aşağıdaki kod ile kullanıcı adı ve şifre girişini yaptırabiliyorum, ancak giriş butonuna tıklamam için nasıl bir kod yazılmalıdır

Sub login()
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .navigate "https://tts.turkiyeshell.com/Default.aspx?act=login"

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

        .document.all.MainContent_UCLogin1_tbCCode_I.Value = [b2]
        .document.all.MainContent_UCLogin1_tbUName_I.Value = [b3]
        .document.all.MainContent_UCLogin1_tbPaswd_I.Value = [b4]
        'giriş butonuna tıklaması için nasıl bir kod yazabilirim.
End With
End Sub

 

[tahsinanarat]

Deneme yaparak sorun çözüldü

Sub login()
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate "https://tts.turkiyeshell.com/Default.aspx?act=login"

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

        .Document.all.MainContent_UCLogin1_tbCCode_I.Value = [a1]
        .Document.all.MainContent_UCLogin1_tbUName_I.Value = [b1]
        .Document.all.MainContent_UCLogin1_tbPaswd_I.Value = [c1]
        .Document.all.ctl00_MainContent_UCLogin1_btnLogin_CD.Click
        End With
With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate "https://tts.turkiyeshell.com/Limits/LimitsAll.aspx"
        
End With
Set IE = Nothing
Set HTML_Body = Nothing
End Sub