EL Q´ LO LOGRA LE COMPRO UN PANDA (L
Publicado: 29 Mar 2009, 19:15
hola gente
si pudieran ayudarme con este asunto me salvarian la vida demasiado jaja
el tema pasa por fotolog ,tengo un bloc de notas con el nombre de usuario y contraseña de fotologs
y quisiera saber algun scrip o algo que cuando la passworld o el name sea incorrecto
vuelva al bloc de notas y siga intentando entrar con otra cuenta..
yo la parte que va y copia el name y pass y lo pega en la pagina, lo automatice (abajo esta) y funca .me gustaria q si da el error de que la pass o el name es incorrecto que haga lo q esta ak abajo
ai un srip de un programa q cuando te da error el pass o name te avisa .se los dejo abajo de todo asi tienen una idea de que hablo :) . muchas grax a todos :D
MouseMove(231,758)
MouseDown("left")
MouseUp("left")
WinWait("Buscar","")
If Not WinActive("Buscar","") Then WinActivate("Buscar","")
WinWaitActive("Buscar","")
Send("login")
MouseMove(640,422)
MouseDown("left")
MouseUp("left")
MouseMove(543,344)
MouseDown("left")
MouseUp("left")
WinWait("passs y name .txt - Bloc de notas","")
If Not WinActive("passs y name .txt - Bloc de notas","") Then WinActivate("passs y name .txt - Bloc de notas","")
WinWaitActive("passs y name .txt - Bloc de notas","")
Send("{RIGHT}{RIGHT}{CTRLDOWN}{SHIFTDOWN}{RIGHT}{SHIFTUP}{CTRLUP}{CTRLDOWN}c{CTRLUP}")
MouseMove(586,755)
MouseDown("left")
MouseUp("left")
WinWait("Iniciar Sesión - Fotolog - InterGratis.com","")
If Not WinActive("Iniciar Sesión - Fotolog - InterGratis.com","") Then WinActivate("Iniciar Sesión - Fotolog - InterGratis.com","")
WinWaitActive("Iniciar Sesión - Fotolog - InterGratis.com","")
Send("{CTRLDOWN}v{CTRLUP}{TAB}")
MouseMove(121,585)
MouseDown("left")
MouseUp("left")
WinWait("passs y name .txt - Bloc de notas","")
If Not WinActive("passs y name .txt - Bloc de notas","") Then WinActivate("passs y name .txt - Bloc de notas","")
WinWaitActive("passs y name .txt - Bloc de notas","")
MouseMove(418,434)
MouseDown("left")
MouseUp("left")
WinWait("Buscar","")
If Not WinActive("Buscar","") Then WinActivate("Buscar","")
WinWaitActive("Buscar","")
Send("{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}passwd")
MouseMove(637,426)
MouseDown("left")
MouseUp("left")
MouseMove(449,334)
MouseDown("left")
MouseUp("left")
WinWait("passs y name .txt - Bloc de notas","")
If Not WinActive("passs y name .txt - Bloc de notas","") Then WinActivate("passs y name .txt - Bloc de notas","")
WinWaitActive("passs y name .txt - Bloc de notas","")
Send("{RIGHT}{RIGHT}{CTRLDOWN}{SHIFTDOWN}{RIGHT}{SHIFTUP}{CTRLUP}{CTRLDOWN}c{CTRLUP}")
MouseMove(568,750)
MouseDown("left")
MouseUp("left")
WinWait("Iniciar Sesión - Fotolog - InterGratis.com","")
If Not WinActive("Iniciar Sesión - Fotolog - InterGratis.com","") Then WinActivate("Iniciar Sesión - Fotolog - InterGratis.com","")
WinWaitActive("Iniciar Sesión - Fotolog - InterGratis.com","")
MouseMove(305,351)
MouseDown("left")
MouseUp("left")
Send("{CTRLDOWN}v{CTRLUP}")
send("{TAB}")
Send("{Enter}")
sleep(2000)
_IELoadWait($ie)
-----------------------------------------------------------------------------------------------------------------------------------------------------
Func login(ByRef $iE)
If $DEBUG Then
Return True
EndIf
alert("Iniciando Sesion")
ie_navigate($iE, "http://account.fotolog.com/login")
alert("Enviando la informacion")
local $flag = _IEGetObjById($iE, "login_form")
If $flag == 0 Then
alert("No se puede Iniciar sesion con esta Cuenta o Clave...", 4000)
_FileWriteLog($DEBUG_LOG_FILE, @ScriptLineNumber & " -> " & "No se encontro la ID 'login_form'." )
Return False
EndIf
Local $oForm = _IEFormGetCollection($iE, 2)
Local $u_name = _IEFormElementGetCollection($oForm, 1)
Local $p_word = _IEFormElementGetCollection($oForm, 2)
_IEFormElementSetValue($u_name, $USERNAME)
_IEFormElementSetValue($p_word, $PASSWORD)
_FileWriteLog($DEBUG_LOG_FILE, @ScriptLineNumber & " -> " & "Informacion de Formulacio puesta" )
_IEFormSubmit($oForm, 0)
_FileWriteLog($DEBUG_LOG_FILE, @ScriptLineNumber & " -> " & "Formulario loggin enviado" )
;~ Sleep(3000)
_IELoadWait($iE)
_FileWriteLog($DEBUG_LOG_FILE, @ScriptLineNumber & " -> " & "Formulario loggin enviado y listo" )
$flag = _IEGetObjById($iE, "bottomPromos")
If $flag <> 0 Then
alert("No se pudo entrar correctamente a Fotolog™...", 4000)
_FileWriteLog($DEBUG_LOG_FILE, @ScriptLineNumber & " -> " & "No se pudo iniciar sesion con la cuenta " & $USERNAME )
Return False
EndIf
_FileWriteLog($LOG_FILE, "--------------------------------------------------------")
_FileWriteLog($LOG_FILE, "A iniciado una nueva sesion con " & $USERNAME)
Return True
EndFunc ;==>login
si pudieran ayudarme con este asunto me salvarian la vida demasiado jaja
el tema pasa por fotolog ,tengo un bloc de notas con el nombre de usuario y contraseña de fotologs
y quisiera saber algun scrip o algo que cuando la passworld o el name sea incorrecto
vuelva al bloc de notas y siga intentando entrar con otra cuenta..
yo la parte que va y copia el name y pass y lo pega en la pagina, lo automatice (abajo esta) y funca .me gustaria q si da el error de que la pass o el name es incorrecto que haga lo q esta ak abajo
ai un srip de un programa q cuando te da error el pass o name te avisa .se los dejo abajo de todo asi tienen una idea de que hablo :) . muchas grax a todos :D
MouseMove(231,758)
MouseDown("left")
MouseUp("left")
WinWait("Buscar","")
If Not WinActive("Buscar","") Then WinActivate("Buscar","")
WinWaitActive("Buscar","")
Send("login")
MouseMove(640,422)
MouseDown("left")
MouseUp("left")
MouseMove(543,344)
MouseDown("left")
MouseUp("left")
WinWait("passs y name .txt - Bloc de notas","")
If Not WinActive("passs y name .txt - Bloc de notas","") Then WinActivate("passs y name .txt - Bloc de notas","")
WinWaitActive("passs y name .txt - Bloc de notas","")
Send("{RIGHT}{RIGHT}{CTRLDOWN}{SHIFTDOWN}{RIGHT}{SHIFTUP}{CTRLUP}{CTRLDOWN}c{CTRLUP}")
MouseMove(586,755)
MouseDown("left")
MouseUp("left")
WinWait("Iniciar Sesión - Fotolog - InterGratis.com","")
If Not WinActive("Iniciar Sesión - Fotolog - InterGratis.com","") Then WinActivate("Iniciar Sesión - Fotolog - InterGratis.com","")
WinWaitActive("Iniciar Sesión - Fotolog - InterGratis.com","")
Send("{CTRLDOWN}v{CTRLUP}{TAB}")
MouseMove(121,585)
MouseDown("left")
MouseUp("left")
WinWait("passs y name .txt - Bloc de notas","")
If Not WinActive("passs y name .txt - Bloc de notas","") Then WinActivate("passs y name .txt - Bloc de notas","")
WinWaitActive("passs y name .txt - Bloc de notas","")
MouseMove(418,434)
MouseDown("left")
MouseUp("left")
WinWait("Buscar","")
If Not WinActive("Buscar","") Then WinActivate("Buscar","")
WinWaitActive("Buscar","")
Send("{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}passwd")
MouseMove(637,426)
MouseDown("left")
MouseUp("left")
MouseMove(449,334)
MouseDown("left")
MouseUp("left")
WinWait("passs y name .txt - Bloc de notas","")
If Not WinActive("passs y name .txt - Bloc de notas","") Then WinActivate("passs y name .txt - Bloc de notas","")
WinWaitActive("passs y name .txt - Bloc de notas","")
Send("{RIGHT}{RIGHT}{CTRLDOWN}{SHIFTDOWN}{RIGHT}{SHIFTUP}{CTRLUP}{CTRLDOWN}c{CTRLUP}")
MouseMove(568,750)
MouseDown("left")
MouseUp("left")
WinWait("Iniciar Sesión - Fotolog - InterGratis.com","")
If Not WinActive("Iniciar Sesión - Fotolog - InterGratis.com","") Then WinActivate("Iniciar Sesión - Fotolog - InterGratis.com","")
WinWaitActive("Iniciar Sesión - Fotolog - InterGratis.com","")
MouseMove(305,351)
MouseDown("left")
MouseUp("left")
Send("{CTRLDOWN}v{CTRLUP}")
send("{TAB}")
Send("{Enter}")
sleep(2000)
_IELoadWait($ie)
-----------------------------------------------------------------------------------------------------------------------------------------------------
Func login(ByRef $iE)
If $DEBUG Then
Return True
EndIf
alert("Iniciando Sesion")
ie_navigate($iE, "http://account.fotolog.com/login")
alert("Enviando la informacion")
local $flag = _IEGetObjById($iE, "login_form")
If $flag == 0 Then
alert("No se puede Iniciar sesion con esta Cuenta o Clave...", 4000)
_FileWriteLog($DEBUG_LOG_FILE, @ScriptLineNumber & " -> " & "No se encontro la ID 'login_form'." )
Return False
EndIf
Local $oForm = _IEFormGetCollection($iE, 2)
Local $u_name = _IEFormElementGetCollection($oForm, 1)
Local $p_word = _IEFormElementGetCollection($oForm, 2)
_IEFormElementSetValue($u_name, $USERNAME)
_IEFormElementSetValue($p_word, $PASSWORD)
_FileWriteLog($DEBUG_LOG_FILE, @ScriptLineNumber & " -> " & "Informacion de Formulacio puesta" )
_IEFormSubmit($oForm, 0)
_FileWriteLog($DEBUG_LOG_FILE, @ScriptLineNumber & " -> " & "Formulario loggin enviado" )
;~ Sleep(3000)
_IELoadWait($iE)
_FileWriteLog($DEBUG_LOG_FILE, @ScriptLineNumber & " -> " & "Formulario loggin enviado y listo" )
$flag = _IEGetObjById($iE, "bottomPromos")
If $flag <> 0 Then
alert("No se pudo entrar correctamente a Fotolog™...", 4000)
_FileWriteLog($DEBUG_LOG_FILE, @ScriptLineNumber & " -> " & "No se pudo iniciar sesion con la cuenta " & $USERNAME )
Return False
EndIf
_FileWriteLog($LOG_FILE, "--------------------------------------------------------")
_FileWriteLog($LOG_FILE, "A iniciado una nueva sesion con " & $USERNAME)
Return True
EndFunc ;==>login