Bueno estoy haciendo un programa que se loguea en una pagina bueno introdusco el user and pass pero tengo problemas con el submit no entiendo muy bien lo que desarrollo.
si alguien a realizado algo similar me puede ayduar en esto gracias :D
| ||||
Respuesta: [VB6]Ayuda en el Submit Bueno, algo mas estoy usando esta ayuda que encontre en esta web: http://www.todoexpertos.com/categorias/tecnologia-e-internet/programacion/visual-basic/respuestas/1105895/usar-mi-programa-con-internet pero no entiendo estas parte del codigo:
Código:
Webbrowser1.Document.Form1.login.Value = "[email protected]" Webbrowser1.Document.Form1.passwd.Value = "password" Webbrowser1.Document.Form1.submit
Código:
Introdusco ello o similar en mi codigo pero me sale incorrecto xq?Webbrowser1.Document.Forms(0).email.Value = "[email protected]" Webbrowser1.Document.Forms(0).passwd.Value = "password" Webbrowser1.Document.Forms(0).submit que necesito para poder usarlo o como deberia de hacer Gracias |
| ||||
![]() Tienes que mirar en el código HTML el nombre correcto de los campos para poder llenarlos ![]()
__________________ Por favor, antes de preguntar, revisa la Guía para realizar preguntas. |
| ||||
Respuesta: [VB6]Ayuda en el Submit es decir a partir de esta seccion:
Código:
es donde viene el codigo o el campo como esta estructurada la web mm yo introdusco el campo que veo pero igual Webbrowser1.Document. explicame bien tengo q usar alguna referencia? o introdoucir algun complemento en mi form? |
| ||||
![]() ¿Podrías poner el código HTML del formulario?
__________________ Por favor, antes de preguntar, revisa la Guía para realizar preguntas. |
| ||||
Respuesta: [VB6]Ayuda en el Submit Ea muchas gracias, el formulario de la web lo recorte de tal modo solo este la cajita y bueno no es que sea reservado, pero es que no me gustaria que alguien me adelante en el trabajo que estoy realizando :D
Código:
Bueno e intentando de todo pero no logro que automaticamente me de la descarga, bueno, es decir, logro leer el codigo que me aparece y logro enviar el codigo en la cajita asignada, pero ahora para dar el ultimo paso el del submit no logro eso.<script language="javascript"> function doSubmit() { var frm=document.securefrm; var securcode=frm.securitycode.value; var securecode1=frm.securecode.value; if(securcode=="") { alert("Escribe el código de seguridad"); frm.securitycode.focus(); return false; } else if(securcode!="" && securcode!=securecode1) { alert("Escribe un código de seguridad válido"); frm.securitycode.value=""; frm.securitycode.focus(); return false; } frm.Keyword.value='Ok'; return true; } function viewAd300() { var i = Math.round(2*Math.random()); var url="banner300.php?num="+i; xmlHttpad300=GetXmlHttpObject(adHandler300); xmlHttpad300.open("GET",url,true); xmlHttpad300.send(null); var b=setTimeout("viewAd300()",30000); } function adHandler300() { if(xmlHttpad300.readyState==4) { document.getElementById("viewads300").innerHTML=xmlHttpad300.responseText; } } </script> <tr> <td valign="top"> <table border="0" width="372" height="122" cellspacing="0" cellpadding="0" class="border3sideblue"> <!-- MSTableType="nolayout" --> <tr> <td align="center"> <table border="0" height="116" cellspacing="0" cellpadding="0" width="357"> <form name="securefrm" action="/downloadfile.php" method="post" onSubmit="return doSubmit()" style="margin:0; display:inline;" > <!-- MSTableType="nolayout" --> <tr> <td width="36%" align="right" height="25"><span class="tahoma12">Nombre de archivo :</span></td> <td width="2%" height="25"> </td> <td width="32%" height="25" colspan="2" valign="center"> <span class="tahoma12"><b>MSWINSCK.zip</b></span></td> </tr> <tr> <td align="right" height="25"><span class="tahoma12">Tamaño de archivo :</span></td> <td height="25"> </td> <td height="25" colspan="2" valign="center"><span class="tahoma12"><b>53.37 KB</b></span></td> </tr> <tr> <td width="36%" align="right" height="30"><span class="tahoma12">Código de verificación: :</span> </td> <td width="2%" height="30"></td> <td width="32%" height="30"> <input type="hidden" name="fid" id="fid" value="1872212"> <input type="hidden" name="tid" id="tid" value="MjAwOC0wOC0wOA=="> <input name="securitycode" type="text" id="securitycode" size="10"/> <input type="hidden" name="fname" id="fname" value="MSWINSCK.zip"> </td> <td width="30%" height="30"> <input type="hidden" name="securecode" id="securecode" value="26s9nk"> <img src="/png.php?number=26s9nk" align="absmiddle"></td> </tr> <tr> <td width="36%" height="36" rowspan="2"> </td> <td width="2%" height="36" rowspan="2"> </td> <td width="32%"> <input type="hidden" name="Keyword"> <input type="submit" name="submit" value="Descargar"></td> <td width="30%" valign="top"> </td> </tr> </form> </table> </td> </tr> </table> </td> </tr> Gracias por tu ayuda. |
| ||||
![]() Solo necesitas poner el nombre del form (en este caso securefrm) y el nombre del input que queremos llenar (por ejemplo, el código de verificación se llama securitycode). Sería así: Código PHP:
__________________ Por favor, antes de preguntar, revisa la Guía para realizar preguntas. |
| ||||
Respuesta: [VB6]Ayuda en el Submit Haber como te dije anteriormente si logro hacer eso, leer el codigo de verifiacion y logro introducir el codigo :
Código:
pero lo que no logro es que el envio del INPUT es decir luego de introducir en la cajita del codigo, que me envie dicho dato y que me genere la ventanita de "GuarDar el Archivo"WebBrowser1.Document.securefrm.securitycode.value = "valor" o en el ejemplo que te di, cuando le das al boton "Descargar" y has ingresado un codigo incorrecto te sale mensaje de codigo incorrecto, bueno eso es lo q no logro que me envie ya a dicho boton y me genere la descarga. |
| ||||
![]() ¿Con el submit no funciona? Código PHP:
__________________ Por favor, antes de preguntar, revisa la Guía para realizar preguntas. |
| |||
Respuesta: [VB6]Ayuda en el Submit WebBrowser1.Document.securefrm.submit.click quiza sea la forma de lograr que descargue, igual te vas a ver en aprietos cuando tengas que poner algun codigo antibot, m....... creo que vi una forma de buscar con el componente webbrowser, osea, buscar si la web contiene algun texto, igual no creo que te sirva de mucho, porque tendrias que trabajarlo, igual lo pongo: Private Sub Command6_Click() On Local Error Resume Next ' Opción Copiar texto del Webbrowser WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT End Sub esto busca algun texto dentro de la web, m..... digamos que si te sentas a pensar, con una sentencia IF, y este comando, podrias llegar a cagar las funciones "anti bot" de muchas web. otra cosa, te paso el link de la web de donde lo saque http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/146-webbrowser-execwb.htm |