HOla Foreros;)!
Este es un codigo algo "basico" de como logearse en una pagina (tambien con algunos cambios puedes enviar mensajes automaticos por hi5 .. o aceptar a los amigos del facebook).... Si saben de otro metodo .. Postealo..
PAra este proyecto se usara :
+ 1 COmmand
+ 1 WebBrowser
+ 2 cajas de texto (usuario y contraseña)
De ejemplo usaremos
www.hi5.com ...
Private Sub Form_Load()
WebBrowser1.Navigate ("
http://hi5.com")
End Sub
Asumimos que :
<input type="text" name="
email" maxlength="255" size="24" tabindex="1" value="" id="email">
<input type="password" name="
password" maxlength="255" size="24" tabindex="2" value="">
El codigo dentro del Command1 es :
Private Sub Command1_Click()
Me.WebBrowser1.Document.All("email").Value = Text1.Text
Me.WebBrowser1.Document.All("password").Value = Text2.Text
Dim HTML
Dim HTMLI
Set HTML = WebBrowser1.Document
For Each HTMLI In HTML.getElementsByTagName("input")
If HTMLI.Value = "Iniciar sesión" Then
HTMLI.Click
Exit Sub
End If
Next
End Sub
Y listo
...!! ya pueden logearse ... pueden probar con redes coaiels como
www.hi5.com ,
www.webear.ning.com ,
www.facebook.com con el msn no he probado
Spero les sirva!
