Kod:
[COLOR="Yellow"][B]Option Explicit
Private Sub Command1_Click()
web.********.All.Item("email").Value = txtuser.Text
web.********.All.Item("pass").Value = txtpass.Text
web.********.All.Item("persistent").Value = Check1.Value
web.********.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
Devamı Oku: VB06 ile Facebook Giriş [/B][/COLOR]
