EL Q´ LO LOGRA LE COMPRO UN PANDA (L

[iamchavo]

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

[Nahuel]

Nos gustaría ayudarte, pero lamentablemente (en mi opinión) tus intenciones son un tanto extrañas. Yo diría que esperemos la opinión de un moderador o del administrador.

Saludos.

[Chefito]

Pienso lo mismo que tú Nahuel. Más que extrañas, parecen dañinas . Aquí no se ayudan en esos temas. Leete las normal del foro: http://www.emesn.com/autoitforum/viewtopic.php?f=1&t=8
A ver que explicación da y según veamos se cierra el tema o no.
Por mi parte tampoco pienso contestar esto.

Saludos.