Autor
|
Tema: Averiguar nombre de textbox y button de web para login (Leído 5,501 veces)
|
jor1980
Desconectado
Mensajes: 30
|
Hola a todos, he creado una pequeña aplicación con el objetivo de loguearme automáticamente a una página de la fifa, este código fue creado para loguearse a gmail y el problema es que no se como averiguar el nombre que la pagina le da al textbox usuario y contraseña. Por otro lado además me crea el siguiente problema, cuando depuro el programa por primera me abre el explorer sin problema, pero si cierro esa ventana del explorer si haber detenido la depuración cuando vuelvo a tratar de depurar no me llega a abrir el explorer hasta que voy a administrador de tareas y finalizo el proceso iexplorer. Aquí os dejo el codigo a ver si me orientais sobre como puedo averiguar el nombre del textbox usuario y contraseña para rellernarlos: 'no hagais mucho caso a los comentarios del código ya que es un borrador Public Sub LaunchGamil() 'Sirve para loguearse en una web, abrirla, leer html, etc.. 'usa el control de objetos html y el internet control(ver referencias) 'http://mail.google.com
Const strURL_c As String = "http://es.fifa.com/theclub/login.htmx" Const strUsr_c As String = "aquielcorreo" Const strPwd_c As String = "aquilacontraseña" Dim objIE As SHDocVw.InternetExplorer Dim ieDoc As mshtml.HTMLDocument Dim tbxPwdFld As mshtml.HTMLInputElement Dim tbxUsrFld As mshtml.HTMLInputElement Dim btnSubmit As mshtml.HTMLInputElement On Error GoTo Err_Hnd 'Create Internet Explorer Object objIE = New SHDocVw.InternetExplorer 'Navigate the URL objIE.Navigate(strURL_c) 'Wait for page to load Do Until objIE.ReadyState = SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE : Loop 'Get document object ieDoc = objIE.Document
'prueba para averiguar los nombres de los items dentro de la web For Each HtmlElementCollection In ieDoc.all RichTextBox1.Text += HtmlElementCollection.ToString Next
'Get username/password fields and submit button. 'Passwd,Email,signIn
tbxPwdFld = ieDoc.all.item("Passwd") tbxUsrFld = ieDoc.all.item("Email") btnSubmit = ieDoc.all.item("signIn") 'Fill Fields tbxUsrFld.value = strUsr_c tbxPwdFld.value = strPwd_c 'Click submit btnSubmit.click() 'Wait for page to load Do Until objIE.ReadyState = SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE : Loop Err_Hnd: '(Fail gracefully) objIE.Visible = True End Sub
|
|
|
En línea
|
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
1º Para averiguar el nombrede los textboxes tienes que examinar en el codigo html de la pagina. Usa algun depurador web tipo Firebug o DrangFly 2º SHDocVw.InternetExplorer ???? Usa el control web de microsoft
|
|
|
En línea
|
|
|
|
jor1980
Desconectado
Mensajes: 30
|
1º Para averiguar el nombrede los textboxes tienes que examinar en el codigo html de la pagina. Usa algun depurador web tipo Firebug o DrangFly 2º SHDocVw.InternetExplorer ???? Usa el control web de microsoft Hola gracias por tu respuesta, tengo otro pequeño programita que lee el código html de la página y crea un nuevo documento html usando el control wininet y ahí creo que puedo leer el nombre de las textbox. Sería posible loguearme en la web usando winsock y no este código?alguien tiene un ejemplo sobre esto? Gracias por la ayuda
|
|
« Última modificación: 29 Junio 2010, 16:12 pm por jor1980 »
|
En línea
|
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
1º Para averiguar el nombrede los textboxes tienes que examinar en el codigo html de la pagina. Usa algun depurador web tipo Firebug o DrangFly 2º SHDocVw.InternetExplorer ???? Usa el control web de microsoft Hola gracias por tu respuesta, tengo otro pequeño programita que lee el código html de la página y crea un nuevo documento html usando el control wininet y ahí creo que puedo leer el nombre de las textbox. Sería posible loguearme en la web usando winsock y no este código?alguien tiene un ejemplo sobre esto? Gracias por la ayuda Si si, es posible, casi la misma tecnica hace una cosa, busca los "<input type='text'>" y extraele los nombres
|
|
|
En línea
|
|
|
|
jor1980
Desconectado
Mensajes: 30
|
he probado haciendo busqueda del texto que pone al lado de las textbox, y me funcionó, el problema me surje con el botón de enviar, porque al ejecutar la linea:
btnSubmit = ieDoc.all.item("signIn") da error(el nombre no es signin pero ahora no recuerdo el real)
el error que me da es el siguiente: no se puede convertir en un objeto de tipo mshtml.HTMLDivElementClass al tipo mshtml.HTMLInputElement
En el código el botón singIn aparece como: input type="submit"
no se si eso servirá de ayuda
|
|
« Última modificación: 30 Junio 2010, 14:05 pm por jor1980 »
|
En línea
|
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
Piensa! no tiene nombre, y estas obteniendo el contenedor! lo tienes casi servido! Usando el contenedor, recorre todos los hijos, y si el hijo es un input de tipo submit (y si en caso haya mas de uno xD, comprueba que tiene el texto "Enviar") es ese, y lo separas a otro objeto Luego le haces click y wala
|
|
|
En línea
|
|
|
|
jor1980
Desconectado
Mensajes: 30
|
Piensa! no tiene nombre, y estas obteniendo el contenedor! lo tienes casi servido! Usando el contenedor, recorre todos los hijos, y si el hijo es un input de tipo submit (y si en caso haya mas de uno xD, comprueba que tiene el texto "Enviar") es ese, y lo separas a otro objeto Luego le haces click y wala Gracias de nuevo, pero no entendí lo que querías decir, no se html, espero no volverte loco, podrías explicarme un poco más como hacer eso que dices? perdona por darte tantas molestias Lo que he hecho ahora es cambiar lo siguiente: Dim btnSubmit As mshtml.HTMLDivElement btnSubmit = ieDoc.all.item("d_buttons") btnSubmit.click() basándome en esta línea de html: <div id="d_buttons"><input type="submit" id="btn_login" name="btn_login" value="Iniciar sesión" class="btnB" /></div> no da errores, me rellena las textbox, pero no parece que haga click y no inicia sesión
|
|
« Última modificación: 30 Junio 2010, 18:13 pm por jor1980 »
|
En línea
|
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
Mira, segun creo yo. Cada control contenedor es como una colleccion de controles. Sabes usar colecciones/arrays ? BUeno, esto es igual, seria algo asi For Each control as HTMLControl In contenedor.Childs if control.Text = "Enviar" Then ' Es el boton! control.Click End if NExt
|
|
|
En línea
|
|
|
|
jor1980
Desconectado
Mensajes: 30
|
Mira, segun creo yo. Cada control contenedor es como una colleccion de controles. Sabes usar colecciones/arrays ? BUeno, esto es igual, seria algo asi For Each control as HTMLControl In contenedor.Childs if control.Text = "Enviar" Then ' Es el boton! control.Click End if NExt
Contestamos justo a la vez je je, te había puesto que cambié lo siguiente: Dim btnSubmit As mshtml.HTMLDivElement btnSubmit = ieDoc.all.item("d_buttons") btnSubmit.click() basándome en esta línea de html: <div id="d_buttons"><input type="submit" id="btn_login" name="btn_login" value="Iniciar sesión" class="btnB" /></div> No da errores pero parece que no hace click,Sabes por qué? Estaba probando el código que me acabas de postear pero no encuentro el espacio de nombres que contiene HTMLControl. He logrado hacer funcionar el botón para registrarse logrando que funcione la función de hacer click, ese botón es un HtlmlInputElement. Mientras que el botón Iniciar sesión es un HTMLDivElement y no logro ejecutar la función hacer click Muchas gracias por todo
|
|
« Última modificación: 1 Julio 2010, 01:04 am por jor1980 »
|
En línea
|
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
Dim btnSubmit As mshtml.HTMLDivElement btnSubmit = ieDoc.all.item("d_buttons") btnSubmit.click()
basándome en esta línea de html: <div id="d_buttons"><input type="submit" id="btn_login" name="btn_login" value="Iniciar sesión" class="btnB" /></div>
No da errores pero parece que no hace click,Sabes por qué?
He logrado hacer funcionar el botón para registrarse logrando que funcione la función de hacer click, ese botón es un HtlmlInputElement. Mientras que el botón Iniciar sesión es un HTMLDivElement y no logro ejecutar la función hacer click
Si! vos estas obteniendo el div como dije. Tenes que obtener el boton input. Basandote en la linea seria Dim btnSubmit As mshtml.HtlmlInputElement btnSubmit = ieDoc.all.item("btn_login") btnSubmit.click()
Para ejecutar el click, hazlo igual que el boton registrarse
|
|
|
En línea
|
|
|
|
|
|