AutoLogin (AYUDA)...

[manuelhn]

Hola señores he hecho ya varias busquedas en este foro y me ha sido muy util

Estoy empezando en la rama soy novato en esto pero creo que todos empezamos desde este punto.

Resulta que ya me han servido ciertos scrip como el AutoLogin de facebook

Código: Seleccionar todo

#include <IE.au3>
$PaginaWeb = _IECreate("http://www.facebook.com/login.php")
$Formulario = _IEFormGetObjByName($PaginaWeb, "login_form")
$CorreoElectronico = _IEFormElementGetObjByName($Formulario, "email")
$Contrasena = _IEFormElementGetObjByName($Formulario, "pass")
_IEFormElementSetValue($CorreoElectronico, "[email protected]")
_IEFormElementSetValue($Contrasena, "pass")
_IEFormSubmit($Formulario, 1)

Y el AutoLogin de Twiter

Código: Seleccionar todo

#include <IE.au3>
$PaginaWeb = _IECreate("https://twitter.com/login")
$Formulario = _IEFormGetCollection($PaginaWeb, 3)
$CorreoElectronico = _IEFormElementGetObjByName($Formulario, "session[username_or_email]")
$Contrasena = _IEFormElementGetObjByName($Formulario, "session[password]")
_IEFormElementSetValue($CorreoElectronico, "[email protected]")
_IEFormElementSetValue($Contrasena, "pass")
_IEFormSubmit($Formulario, 1)

Pero resulta que ahora tengo una pagina donde quiero llenar un formulario que uso debes en cuando.
ya he intentado con

Código: Seleccionar todo

_IEFormGetObjByName

Código: Seleccionar todo

_IEFormGetCollection

pero no me ha funcionado.

Código: Seleccionar todo

#include <IE.au3>
$PaginaWeb = _IECreate("http://www.infopvirtual.com/webapp/index.html#matricula")
;$Formulario = _IEFormGetObjByName($PaginaWeb, 7)
;$Formulario = _IEFormGetCollection($PaginaWeb, 7)
$Nombres = _IEFormElementGetObjByName($Formulario, "nombres")
_IEFormElementSetValue($Nombres, "Manuel Juan")

Muchas gracias por su ayuda de antemano...
Vale recalcar que no quiero usar la siguiente manera.

Código: Seleccionar todo

#include <IE.au3>
$PaginaWeb = _IECreate("http://www.infopvirtual.com/webapp/index.html#matricula")
Sleep(1000)
Send("Nombres")
Send("{TAB}")
Send("Apellidos")

[Chefito]

No te funciona porque no hay ningún formulario (objeto form) .
Lo que tienes que hacer es atacar a los objetos de la página directamente. Para eso eso tienes algunas funciones en la udf ie.au3 que estás utilizando.
Te pongo un ejemplo con algunos objetos de esa página.

Código: Seleccionar todo

#include <IE.au3>

; ejemplo de rellenado de campos input type de la página

$oIE = _IECreate("http://www.infopvirtual.com/webapp/index.html#matricula")
$nombres=_IEGetObjById($oIE, "nombres")
$nombres.value="chefito"
$apellidos=_IEGetObjById($oIE, "apellidos")
$apellidos.value="autoit"

;ejemplo de selección de los objetos select

$tipoparticipante=_IEGetObjById($oIE, "tipoparticipante")
$tipoparticipante.selectedindex=15

;con esto cliqueas el boton "matricular" y envías los datos.
$matricular=_IEGetObjById($oIE, "send-feedback")
$matricular.click

Una aclaración. En los objetos select (son las listas desplegables), aunque no te aparezca en ellas el valor seleccionado, no te preocupes, se selecciona. No se por qué no te la muestra . Pero te aseguro que se selecciona. Despliega la lista y verás que el valor que está seleccionado dentro de la lista, pertenece al número que le has puesto (en el ejemplo el número 15). Y si quieres comprobarlo mejor, introduce al final del código esto: msgbox(0,"",$tipoparticipante.value) y verás como el valor que tiene seleccionado es el adecuado .

Si tienes alguna duda, pregunta.

Saludos.

[melvinhn]

Excelente el ejemplo cuando un Form no tiene nombre.

[manuelhn]

Muchas gracias Chefito, me sirvió de mucho tu ejemplo, me sacaste de un gran apuro, y ahora aprendí algo nuevo.
Dios me los bendiga.