Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: CobranzA en 20 Octubre 2008, 06:47 am



Título: ayuda con componente "microsoft internet controls"
Publicado por: CobranzA en 20 Octubre 2008, 06:47 am
hola que tal, mi nombre es mauricio, tengo una maldita duda, que me esta matando ya...
estoy armando un programilla, en vb 6.0 trabajando con el componente "Microsoft internet controls" pues, resulta que llegue a un punto donde necesito que mi programita "firme" una web, digamos que en vez de yo firmar la web de forma normal, tengo todos los privilegios para firmar, es una cuenta en metroflog, quiero automatizar las cosas, dejar todo grabado en un CommandButton, mire el codigo fuente de la web, es este:

<form method="post" action="#Msg">
<b>De</b><br>
<INPUT type="text" name="nombre" size="40" value="">
<br>
<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>
<b>Datos de acceso (sólo usuarios registrados - aparecerá tu link)</b><br>
usuario <INPUT size="8" name="username" value=""> contraseña <INPUT type="password" name="password" size="8">    <span style="cursor: pointer" onclick="document.getElementById('Recordar2').checked=!document.getElementById('Recordar2').checked;">recordar usuario</span> <input type="checkbox" id="Recordar2" name="Recordar" value="S" checked>
<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>
bueno, pedazo de codigo jaja, y este es el codigo automatizado que arme para un cmdbutton:

Private Sub Command13_Click()
Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
On Error Resume Next

WebBrowser1.Document.Forms(0).nombre.Value = "nick"
WebBrowser1.Document.Forms(0).mensaje.Value = "probando ando"
WebBrowser1.Document.Forms(0).submit.Click

End Sub
esta todo bien, yo desde mi "navegador" (el programa que estoy armando); llego a ver, donde va el mensaje, como se escribe el valor de "mensaje" y tambien actualiza la web, como si firmase, pero el mensaje no esta, si firmo de forma manual, queda el mensaje, ya no entiendo que es lo que sucede, soy nuevito en esto, y me esta matando la duda, ya trate de agregar en el code el valor de ID, Key, fecha, nf, titulo, pos y pos_nf, aun asi no me firma la web, desde ya muchas gracias por ayudarme


Título: Re: ayuda con componente "microsoft internet controls"
Publicado por: CobranzA en 20 Octubre 2008, 07:33 am
me parece que esto me ta cagando el programa:
<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>


Título: Re: ayuda con componente "microsoft internet controls"
Publicado por: CobranzA en 20 Octubre 2008, 07:53 am
disculpen chicos, es que soy tan nuevo, que no entendi cuando me dijeron relee el code de la web  ;D
el error fue el siguiente, que yo lo firmada asi:
webbrowser1.document.forms(0).submit.click
pero la forma correcta, fue darle el nombre del boton "firmar" este se llama enviar mensaje, quedaria asi:
webbrowser1.document.forms(0).ENVIARMENSAJE.click
jajajaja, que tonto soy :) igual gracias por leerlo


Título: Re: ayuda con componente "microsoft internet controls"
Publicado por: CobranzA en 20 Octubre 2008, 08:55 am
ahora tengo otra duda, como identifico un link para ejecutarlo desde mi aplicacion, m... osea, lo que quiero es que mi programa pueda abrir link's que estan en una determinada web, nose como hacerlo, porque con los botones, puedo ver su name, y ejecutarlos, con una simple sintaxis:
 webbrowser.documents.forms(0).nombreboton.value = "valor"
pero como hacer con los link dentro de una web?¿ no tienen name, voy a leer un poquito mas,  pero igual me gustaria que me guien, gracias desde ya


Título: Re: ayuda con componente "microsoft internet controls"
Publicado por: CobranzA en 21 Octubre 2008, 04:58 am
ya consegui mi objetivo con php, pero no es la intencion, lo que quiero es hacerlo en visual basic, quiero leer los link de la web, abrirlos y firmarmlos con el componente webbrowser, alguien bueno, que me ayude