siteye girş konusunda yarımcı olabilecek yokmu

giriş üzerindeki cod cod
<input type="submit" class="btn btn1" value="Giriş" *****margin-left:260px;" tabindex="4">

XXXXXXXXXX

[/vb]Option Compare Database

Private Sub Form_Open(Cancel As Integer)
WebBrowser1.Navigate2 "https://xxxxxxxxxxxxx"
End Sub

Private Sub Komut0_Click()

Dim objIE As SHDocVw.InternetExplorer 'microsoft internet controls referansı (eklenecek)
Dim htmlDoc As MSHTML.HTMLDocument 'Microsoft Html Object Library referansı (eklenecek)
Dim htmlInput As MSHTML.HTMLInputElement
Dim htmlColl As MSHTML.IHTMLElementCollection

Set objIE = New SHDocVw.InternetExplorer

With objIE
.Navigate "https://xxxxxxx"
.Visible = 1
Do While .ReadyState <> 4: DoEvents: Loop
timeout = Now + TimeValue("00:00:15")
Set htmlDoc = .Document
Set htmlColl = htmlDoc.getElementsByTagName("INPUT")
Do While htmlDoc.ReadyState <> "complete": DoEvents: Loop
For Each htmlInput In htmlColl
If htmlInput.name = "login-username" Then
htmlInput.Value = Me.mtn_kullaniciadi
Else
If htmlInput.name = "login-pass" Then
htmlInput.Value = Me.mtn_sifre
Else
If htmlInput.name = "captcha-pass" Then
htmlInput.Value = Me.mtn_resim
End If
Next htmlInput
Set htmlDoc = .Document
Set htmlColl = htmlDoc.getElementsByTagName("input")
Do While htmlDoc.ReadyState <> "complete": DoEvents: Loop
For Each htmlInput In htmlColl
If Trim(htmlInput.Id) = "......?......" Then
htmlInput.Click
Exit For
End If
Next htmlInput
End With

End Sub

Private Sub Komut46_Click()

WebBrowser1.Document.All("username").Value = mtn_kullaniciadi.Value
WebBrowser1.Document.All("password").Value = mtn_sifre.Value
WebBrowser1.Document.All("captcha-pass").Value = mtn_resim.Value
WebBrowser1.Document.getElementById("...... ? ......;").Click
End Sub