Option Explicit

Private Sub Command1_Click()
web.Document.All.Item("email").Value = txtuser.Text
web.Document.All.Item("pass").Value = txtpass.Text
web.Document.All.Item("persistent").Value = Check1.Value
web.Document.All.Item("login").Click
End Sub

Private Sub Form_Load()
web.Navigate "https://www.facebook.com/login.php"
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 "https://www.facebook.com/login.php"
Timer1.Enabled = False
End Sub


kesinlikle alıntı degildir arkadaşlar..
__________________