Loguearse en una web desde vb6

[Edu]

Bueno, quiero ver si se puede loguearse en una web desde vb6, por ejemplo vidajurasica.com, quiero q en un text1 y un text2 se pongan el usuario y contraseña y se envien al login de esa web para poder ingresar y luego yo la voy manejando usando el webbrowser1.navigate (...), para eso otro no hay problema por ahora, pero me falta lo mas importante q es eso del login :S

[bizco]

bueno no se si el webbrowser admite cookies y el envio de formularios (imagino que si) solo tienes que logearte con el formulario de dicha web.

[Edu]

Y como hago esas cosas? yo lo de las cookies habia pensado crear una asi cuando entre en vidajurasica.com ya estaba logeado xD, pero es invento mio.. como todo jaja

[raul338]

http://foro.elhacker.net/programacion_visual_basic/ayuda_logearse_en_web_con_vb6-t283255.0.html

http://foro.elhacker.net/programacion_visual_basic/ayuda_bot_fotolog-t271776.0.html;msg1333415#msg1333415

http://foro.elhacker.net/programacion_visual_basic/ayuda_bot_fotolog-t271776.0.html;msg1367209#msg1367209

[Edu]

Muchisimas gracias raul338, pero la verdad mucha info no hay, me baje un code q pusiste pero necesito q me expliquen como es eso de .document. y no se q mas por ahi, es decir.. me decis los datos q tengo q tener, como busco esos datos xD
Todo esto si tenes ganas claro pero estaria bueno asi hago un lindo programita

[Petro_Boca]

y ahi entran los creditos



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 ...

Código (vb) [Seleccionar] Expandir


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 :

Código (vb) [Seleccionar] Expandir


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


Espero que te sirva

[Edu]

Ya mismo pruebo xD gracias!! espero q me sirva xD

edit: Vamooooo gracias kapo!! me funciona perfecto, ahora con eso q aprendi tengo muchas mas ideas para mi programa q las daba por imposible xD

GRACIAS!