WebBrowser

[‭lipman]

He buscado por internet y en muchos sitios pone lo mismo, como se nota el copiar y pegar...., en fin.

Lo que busco:
-Cuando aprete un boton del formulario aprete un botón de la página
-Cuando aprete un boton del formulario, que se escriba algo en un text
-Cuando aprete un botón del formulario, que escoja una opción de un desplegable
-Cuando aprete un botón del formulario, que aprete un optionbutton de la página

Los dos últimos de estos no tengo ni idea de como se hace, sin embargo, el primero ya he leido de que es:

Código [Seleccionar] Expandir

Document.NombreDelForm.NombredelBotón.Click

Y el segundo:

Código [Seleccionar] Expandir

Document.NombreDelForm.NombreDelText.Value = "Texto"

Sin embargo, tengo problemas con estos dos primeros en algunas páginas, ya que algunos forms, algunos botones y algunos texts, no tienen nombre, entonces si no tienen nombre no tengo ni idea de como se hace.

Saludos y Gracias

[LeandroA]

hola seguramente tienen un id o hay muchas otras formas mas. con el id seria algo asi

dim obj as objet

set obj = webbrowser.document.getelementbyid(AcaElNumeroDeID)

obj.value=1

todo esto es javascript podes encntrar mucha ayuda en un foro de javascript. o sino pasa la url de la pagina y si tengo tiempo te doy una mano.

[‭lipman]

Gracias por lo de la ID, había visto varios que si que tenian, pero yo me lo quiero poner más dificil. Buscando entre mis sitios favoritos, encontré a anonymouse, la página webproxy para navegar con otra IP, ya saben, pues el form, el text y el botón, son estos:

Código [Seleccionar] Expandir

<FORM action="cgi-bin/anon-redirect.cgi" method="POST">

<INPUT type="text" size="36" value="http://" name="what" onClick="if(dblclick!=1){this.select();dblclick=1;}" onBlur="dblclick=0;">

<input type="submit" value="Surf anonymously">


El que si que tiene nombre es el text, pero sin el nombre/id de form y botón, no hacemos nada.

Saludos y Gracias

[LeandroA]

hola es facil suponiedo que sea el unico form de la pagina seria = 0 entonces

WebBrowser1.Document.Forms(0).Submit.Click


Saludos

[‭lipman]

hmm, no entiendo porque no funciona

En anonymouse solo hay un form, el código que pongo es este:

Código [Seleccionar] Expandir

WebBrowser1.Document.Forms(0).what.Value = "http://google.com"
WebBrowser1.Document.Forms(0).Submit.Click

De todas formas todavia me quedan las otras dos dudas:

-Cuando aprete un botón del formulario, que escoja una opción de un desplegable
-Cuando aprete un botón del formulario, que aprete un optionbutton de la página

Gracias Saludos

[LeandroA]

hola no lo avia provado pero si es cierto si le pones clic no anda ponele solo esto

WebBrowser1.Document.Forms(0).what.Value = "http://google.com"
WebBrowser1.Document.Forms(0).Submit

por si te sirve fijate que una forma mas directa de hacer lo que  queres es ir directamente a esta pagina

http://anonymouse.org/cgi-bin/anon-www.cgi/http://www.megaupload.com/?d=L4Q97W63

http://anonymouse.org/cgi-bin/anon-www.cgi/http://www.google.com/webhp?hl=en


por lo de mas que preguntateste te paso un ejemplo

http://ar.geocities.com/leandroascierto/Tagmodell_des_Webbrowsers.zip

[‭lipman]

Gracias de verdad me ha servido de mucho 

Sin embargo tengo otra duda respecto a los Ifs

Imaginemos, estoy en la página de anonymouse, donde está el cuadro de texto todo el rato (recuerdo que se llama, 'what') y quiero que cuando me valla a otra página con otro cuadro de texto llamado 'dbp' salte un mensaje.

Para hacer esto, tengo 2 formas de hacerlo, aunque no me sale de ninguna:

1.-Puedo poner un timer para que esté mirando si existe la barra what, y cuando no exista salga el mensaje
2.-Puedo poner un timer para que esté mirando si la barra dbp no existe, y cuando exista salga el mensaje

De ninguna de las maneras me funciona y no entiendo porqué, simplemente pongo esto:

Código [Seleccionar] Expandir

Timer

If Webbrowser1.Document.Forms(0).what <> "" then
MsgBox "existe"
Else
MsgBox "no existe"

End sub

Si la página del anonymouse está todo el rato, salta el mensaje de existe, hasta ahí bien, pero cuando cambio la página a otra, es decir, cuando no me detecta el cuadro de texto what, simplemente da un error y me fastidia el programa, y lo que quiero es que me salte el mensaje.

Alguna idea?

Muchas gracias

[CobranzA]

hey, yo tambien tengo problemas, en una web, en realidad es la web de metroflog;
ya consegui loguearme con un:
Private Sub Command12_Click()

Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
  DoEvents
Loop
On Error Resume Next
WebBrowser1.Document.Forms(0).Recordar.Value = "S"
WebBrowser1.Document.Forms(0).username.Value = "usuario"
WebBrowser1.Document.Forms(0).password.Value = "contraseña"
WebBrowser1.Document.Forms(0).enviar.Click

End Sub
con eso consegui que me logee en la web, ahora lo que quiero es que me firme, tengo un codigo exactamente igual  (alto copiar y pegar).
pero no me firma, logro ver, que donde va la "firma" llega a escribir la firma que puse en el code del programita, pero no la firma, logra hacer click en el boton firmar, pero no firma, nose que le sucede, si voy manualmente a la web pongo la "firma" y luego le doy click a "firmar" esta todo bien, sucede, pero cuando le doy a firmar desde mi programa no llega a firmarlo, que es lo que sucede?¿
codigo fuente de la web:
<form method="post" action="#Msg">
<b>Mensaje</b><br>
<textarea cols="50" rows="8" name="mensaje" onkeyup="if (this.value.length > 1500) this.value = this.value.substr(0,1500);" onkeydown="if (this.value.length > 1500) this.value = this.value.substr(0,1500);"></textarea>
<br>
<input type="submit" name="enviarmensaje" value="Firmar" style="margin-top: 4px;">
<input type="hidden" name="ID" value="303145445">           
<input type="hidden" name="Key" value="KNWYEVWNRIKJTTA">
<input type="hidden" name="fecha" value="20081013">
<input type="hidden" name="nf" value="">
<input type="hidden" name="titulo" value="amiguitas_queridas_del_alma">
<input type="hidden" name="pos" value="">
<input type="hidden" name="pos_nf" value="">
</form>
eso seria loguedo, sin loguear, el codigo es otro, pero quiero firmar en un metroflog logueado, pueden ayudarme?¿