Auto Login Facebook (Ayuda)
Publicado: 11 May 2013, 03:40
Haber si me pueden ayudar tengo el siguiente scrip el problemas es que a veces queda en pausa
Vamos a ver en que me puede ayudar
Cuando lo ejecuto me tira lo siguiente
--> IE.au3 V2.4-0 Warning from function internal function __IEIsObjType, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)
--> IE.au3 V2.4-0 Warning from function _IELoadWait, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)
Vamos a ver en que me puede ayudar
Cuando lo ejecuto me tira lo siguiente
--> IE.au3 V2.4-0 Warning from function internal function __IEIsObjType, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)
--> IE.au3 V2.4-0 Warning from function _IELoadWait, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)
Código: Seleccionar todo
#include <IE.au3>
Global $OMyRet[2]
Global $OMyError=ObjEvent("AutoIt.Error", "MyErrFunc")
$PaginaWeb = _IECreate("http://www.facebook.com/login.php")
$Condicion = _IEFormGetObjByName($PaginaWeb, "login_form")
$CorreoElectronico = _IEFormElementGetObjByName($Condicion, "email")
$Contrasena = _IEFormElementGetObjByName($Condicion, "pass")
_IEFormElementSetValue($CorreoElectronico, "[email protected]")
_IEFormElementSetValue($Contrasena, "mipass")
;_IEFormSubmit($Condicion, 0)
$ClickButton=_IEGetObjByName($PaginaWeb, "login")
_IEAction($ClickButton,"click")
Func MyErrFunc()
$HexNumber=Hex($OMyError.Number, 8)
$OMyRet[0]=$HexNumber
$OMyRet[1]=StringStripWS($OMyError.Description, 3)
SetError(1)
Return $OMyRet[1]
EndFunc