Webbrowser autorellenar web

[M1gu3l]

Quiero autorellenar campos de texto de una web y se su id.He probado

Código:

Private Sub Command1_Click()
 With WebBrowser1
        .Visible = True
        Do While .Busy = True: DoEvents: Loop
        .Document.Form1.login.Value = "miuser"
        .Document.Form1.password.Value = "mipass"
        .Document.Form1.botonlogin.Click
    End With
End Sub

Pero me da error,que puedo hacer?

[pana99]

Hola, proba asi
sino por favor pasa la URL y veo

Código:

Private Sub Command1_Click()
 With WebBrowser1
        .Visible = True
        Do While .Busy = True: DoEvents: Loop
        .Document.All.login.Value = "miuser"
        .Document.All.password.Value = "mipass"
        .Document.All.botonlogin.Click
    End With
End Sub

[M1gu3l]

tampoco me va me dice this object does not suport this propperty or method
si consigues que te funcione me podrias subir el proyecto a MegaUpload??

[pana99]

Hm puede ser qeu sea una imagen en vez de un boton.
Habria que ver el codigo fuente del sitio
Por favor pasa los datos del sitio (url y lo que puedas) asi lo podemos ver

[M1gu3l]

es s3(punto)travian(punto)net

y los nombres que uso son eb891af para el id de el campo user

y el id e71db9b para el campo pass

[pana99]

Ok. Ahora si

Mira, el tema es que se generan los campos login y password con el nombre de usuario y contraseña, por eso no podias ingresar

Este codigo lo probe y funciona. Solo me dice "Nombre No existe" pero supongo debe haber algun dato en el user o el password mal. Pero si aparece esa leyenda es porque al sitio lo esta navegando. De echo si ves el webbrowser, los campos se llenan con el valor que me pasas

Intenta ir avanzando con el debug y eso te permitira verlo bien. Te ayudara tambien, navegar el sitio desde tu Browser (IE, Mozilla, etc) y ver el codigo fuente que te muestra.

Espero te sirva

Código:

Private Sub Command1_Click()
    Me.WebBrowser1.Navigate "http://s3.travian.net/login.php"
 
 With WebBrowser1

        Do While .Busy = True: DoEvents: Loop
        .Document.All.eb891af.Value = "eb891af"
        .Document.All.e71db9b.Value = "e71db9b"
        .Document.All.s1.Click
    End With

End Sub

[M1gu3l]

lo probe y no me funciono, entonces borre el webrowser y puse otro, y en este si que funciono, debia de estar alguna propiedad mal
mil gracias!!