Option Explicit

Private Sub Command1_Click()
lblwait.Caption = " Please wait a few moments..."
web.Document.All.Item("vb_login_username").Value = txtuser.Text
web.Document.All.Item("vb_login_password").Value = txtpass.Text
web.Document.All.Item("cookieuser").Value = Check1.Value

web.Document.All.Item("sa").Value = sa.Text 'burası da frmtr ara butonun ismini degiştiriyoo ugraşırken rasgele buldum
End Sub

Private Sub Form_Load()
web.Navigate "http://www.frmtr.com/"
Timer1.Enabled = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
web.Navigate "http://www.frmtr.com/"
Timer1.Enabled = False
End Sub

resim eklemek istedim ama olmadı ugraşırken kodu bulunca hemen paylaşmak istedim yalnız giriş butonun ismini bulamadım onun icin giriş yapılamıyo sadece şifreleri aktarıyoo
__________________