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
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 :P
Cita de: raul338 en 29 Junio 2010, 15:44 PM
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 :P
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
Cita de: jor1980 en 29 Junio 2010, 15:58 PM
Cita de: raul338 en 29 Junio 2010, 15:44 PM
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 :P
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 :P
hace una cosa, busca los "<input type='text'>" y extraele los nombres :)
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
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 :xD
Cita de: raul338 en 30 Junio 2010, 15:42 PM
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 :xD
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
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
Cita de: raul338 en 30 Junio 2010, 17:37 PM
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
Cita de: jor1980 en 30 Junio 2010, 18:25 PM
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
Lo ultimo que me posteaste ya lo había probado varias veces, pero me genera un error, tengo la sensación de que el botón login puede estar unido a algo de javascript.
En el código del botón de registrar aparece el evento onclick, pero en el de login no, por eso pienso que ese botón puede estar vinculado a algo.Aquí pongo la línea del botón registrar al que si logro acceder y hacer click
<input type="submit" name="btn_teaserSignUp" value="Empezar la inscripción" id="btn_teaserSignUp" class="btnB" onclick="Register.validateQuickRegister()" />
Te dejo aquí una imagen del error que me da a ver si te sirve de pista, de todas formas si quieres te mando o posteo todo el código html que no es largo a ver si viéndolo tu me puedes sacar de dudas.Muchas gracias
(http://r.i.elhacker.net/cache?url=http://www.mundoimg.com/imagenes/otros/237289_mundoimg_captura.jpg) (http://www.mundoimg.com)