Login en mail

Iniciado por ANTRAX, Julio 26, 2010, 11:43:19 AM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Imprimir
Ir Abajo Páginas1
Acciones del Usuario
Julio 26, 2010, 11:43:19 AM Ultima modificación: Enero 14, 2015, 07:57:08 PM por Expermicid
Código: vb
Private Sub Form_Activate()
Webbrowser1.Navigate "http://login.passport.net/uilogin.srf?id=2" 'Este es hotmail debes poner la dirección exacta
End Sub

Private Sub Command1_Click()
Do Until Webbrowser1.ReadyState = READYSTATE_COMPLETE
  DoEvents
Loop
On Error Resume Next
Webbrowser1.Document.Form1.login.Value = "[email protected]"
Webbrowser1.Document.Form1.passwd.Value = "password"
Webbrowser1.Document.Form1.submit
End Sub


Solo debes tener en cuenta el nombre de la caja de texto y el del formulario, en gmail sería :

Código: vb
Webbrowser1.Document.Forms(0).email.Value = "[email protected]" 'por ejemplo...

Imprimir
Ir Arriba Páginas1
Acciones del Usuario