Login en mail

  • 0 Respuestas
  • 1947 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5730
  • Actividad:
    63.33%
  • Country: ar
  • Reputación 40
  • ANTRAX
  • Skype: underc0de.org
  • Twitter: @Underc0de
    • Ver Perfil
    • Underc0de
    • Email

Login en mail

  • en: Julio 26, 2010, 11:43:19 am
Código: (vb) [Seleccionar]
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) [Seleccionar]
Webbrowser1.Document.Forms(0).email.Value = "[email protected]" 'por ejemplo...
« Última modificación: Enero 14, 2015, 07:57:08 pm por Expermicid »