Código: Seleccionar todo
#include <WindowsConstants.au3>
#include <GuiConstants.au3>
#include <EditConstants.au3>
#include <File.au3>
#include <IE.au3>
Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode", 1)
TraySetIcon("Diseño\icono.ico")
TraySetState()
TraySetPauseIcon("Diseño\icono.ico")
$ERR = _IELOADWAITTIMEOUT(2000)
_IEERRORNOTIFY(False)
Local $ERROR1
Global $IE, $FIRMAS
Local $ERROR2
$NOMBRE = @ScriptDir & "\Historial\Historial.txt"
FileWrite($NOMBRE, "Historial del día: " & @MDAY & "/" & @MON & "/" & @YEAR & @CRLF & @CRLF)
$FORM1_1 = GUICreate("MetroBooter V2.0 - Por Defeka", 553, 452, 193, 125)
GUISetIcon("Diseño\icono.ico")
$LABEL1 = GUICtrlCreateLabel("Usuario:", 24, 16, 60, 26)
GUICtrlSetFont(-1, 12, 400, 0, "Sylfaen")
$LABEL2 = GUICtrlCreateLabel("Clave:", 38, 40, 45, 26)
GUICtrlSetFont(-1, 12, 400, 0, "Sylfaen")
$INPUT1 = GUICtrlCreateInput(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MetroBooter\MetroBooter 2.0", "usuario"), 88, 16, 121, 21)
$INPUT2 = GUICtrlCreateInput(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MetroBooter\MetroBooter 2.0", "password"), 88, 40, 121, 21)
$TAB1 = GUICtrlCreateTab(24, 72, 505, 281)
GUICtrlSetFont(-1, 10, 400, 0, "Sylfaen")
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TABSHEET1 = GUICtrlCreateTabItem("Mensaje 1")
$EDIT1 = GUICtrlCreateEdit(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MetroBooter\MetroBooter 2.0", "post 1"), 32, 104, 489, 241)
$TABSHEET2 = GUICtrlCreateTabItem("Mensaje 2")
$EDIT2 = GUICtrlCreateEdit(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MetroBooter\MetroBooter 2.0", "post 2"), 32, 104, 489, 241)
$TABSHEET3 = GUICtrlCreateTabItem("Mensaje 3")
$EDIT3 = GUICtrlCreateEdit(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MetroBooter\MetroBooter 2.0", "post 3"), 32, 104, 489, 241)
$TABSHEET4 = GUICtrlCreateTabItem("Mensaje 4")
$EDIT4 = GUICtrlCreateEdit(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MetroBooter\MetroBooter 2.0", "post 4"), 32, 104, 489, 241)
$TABSHEET5 = GUICtrlCreateTabItem("Créditos")
$EDIT5 = GUICtrlCreateEdit(StringFormat("MetroBooter 2.0, Todos los derechos reservados " & " \r\n\r\n\r\nCreador: Emmanuel Abuslaiman \r\n" & @CRLF & "Edad: 15 Años\r\n" & @CRLF & "\r\nContacto: [email protected]\r\n"), 32, 104, 489, 241, $ES_READONLY)
GUICtrlSetFont(-1, 13, 400, 2 + 4 + 6 + 8, "Sylfaen")
GUICtrlSetColor(-1, 32768)
GUICtrlCreateTabItem("")
$BUTTON1 = GUICtrlCreateButton("Comenzar ...", 24, 416, 97, 25, 0)
GUICtrlSetFont(-1, 10, 400, 0, "Sylfaen")
GUICtrlSetColor(-1, 32768)
$EMBBED = _IECREATEEMBEDDED()
$MINI = GUICtrlCreateObj($EMBBED, 355, 5, 190, 90)
_IENAVIGATE($EMBBED, "http://www.odaclick.com/emma93/")
$LABEL3 = GUICtrlCreateLabel("ATENCIÓN:", 24, 360, 71, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$LABEL4 = GUICtrlCreateLabel("En caso contrario, complete todas las casillas y pulse en comenzar.", 96, 380, 355, 22)
GUICtrlSetFont(-1, 10, 400, 0, "Sylfaen")
GUICtrlSetColor(-1, 16711680)
$LABEL5 = GUICtrlCreateLabel("Antes de comenzar, por favor asegurese de que escribió texto en los 4 mensajes.", 96, 357, 426, 22)
GUICtrlSetFont(-1, 10, 400, 0, "Sylfaen")
GUICtrlSetColor(-1, 16711680)
GUISetState(@SW_SHOW)
$PAGINA_WEB = TrayCreateItem("Acceder a la web oficial")
TrayItemSetOnEvent(-1, "Abrir_Web")
$CREDITOS = TrayCreateItem("Créditos")
TrayItemSetOnEvent(-1, "Creditos")
$HISTORIAL = TrayCreateItem("Historial")
TrayItemSetOnEvent(-1, "Mostrar_Historial")
$SALIR = TrayCreateItem("Salir")
TrayItemSetOnEvent(-1, "Salir")
While 1
$NMSG = GUIGetMsg()
Switch $NMSG
Case $GUI_EVENT_CLOSE
SALIR()
Case $BUTTON1
SINIMAGENES()
Global $ARRAY_MENSAJES[5] = ["", "", "", "", ""]
$ARRAY_MENSAJES[1] = GUICtrlRead($EDIT1)
$ARRAY_MENSAJES[2] = GUICtrlRead($EDIT2)
$ARRAY_MENSAJES[3] = GUICtrlRead($EDIT3)
$ARRAY_MENSAJES[4] = GUICtrlRead($EDIT4)
$NUMERO_RANDOM = Random(1, 4)
$MENSAJE_RANDOM = $ARRAY_MENSAJES[$NUMERO_RANDOM]
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\MetroBooter\MetroBooter 2.0", "usuario", "REG_SZ", GUICtrlRead($INPUT1))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\MetroBooter\MetroBooter 2.0", "password", "REG_SZ", GUICtrlRead($INPUT2))
If GUICtrlRead($INPUT1) = "" Or GUICtrlRead($INPUT2) = "" Then
MsgBox(16, "Error", "Falta nombre de usuario o contraseña, por favor complete estos campos e inténtelo de nuevo", 0, $FORM1_1)
ContinueLoop
$ERROR1 = 1
ElseIf COMPROBARMENSAJES($EDIT1, $EDIT2, $EDIT3, $EDIT4) Then
$ERROR2 = 1
Else
$ERROR2 = 0
EndIf
If $ERROR1 = 0 And $ERROR2 = 0 Then
GUISetState(@SW_HIDE)
LOGUEARSE(GUICtrlRead($INPUT1), GUICtrlRead($INPUT2))
While 1
VISITARMETRO($MENSAJE_RANDOM)
WEnd
EndIf
EndSwitch
WEnd
Func COMPROBARDATOS($CONTROL1, $CONTROL2)
If GUICtrlRead($CONTROL1) = "" And GUICtrlRead($CONTROL2) = "" Then
Return MsgBox(16, "Error", "Faltan Datos, por favor complete los datos y vuelva a intentarlo", 0, $FORM1_1)
EndIf
EndFunc
Func COMPROBARMENSAJES($MENSAJE1, $MENSAJE2, $MENSAJE3, $MENSAJE4)
Global $ARRAY[5] = ["", "", "", "", ""]
$ARRAY[1] = $MENSAJE1
$ARRAY[2] = $MENSAJE2
$ARRAY[3] = $MENSAJE3
$ARRAY[4] = $MENSAJE4
For $I = 1 To 4
If GUICtrlRead($ARRAY[$I]) = "" Then
Return MsgBox(16, "Datos Vacíos", "Se han encontrado mensajes donde no se ha escrito nada, por favor, complete estos datos y continue", 0, $FORM1_1)
EndIf
Next
EndFunc
Func LOGUEARSE($USUARIO, $CONTRASENA)
_IELOADWAITTIMEOUT(9000)
MENSAJE("Verificación", "Verificando que el usuario y clave sean correctos")
$IE = _IECREATE("http://www.metroflog.com/logout.php", 0, 0)
_IELOADWAIT($IE)
If @error = $_IESTATUS_LOADWAITTIMEOUT Then
_IEACTION($IE, "refresh")
EndIf
$USER = _IEGETOBJBYID($IE, "username")
$PASS = _IEGETOBJBYID($IE, "password")
$BTN_INGRESAR = _IEGETOBJBYID($IE, "enviar")
_IEFORMELEMENTSETVALUE($USER, $USUARIO)
_IEFORMELEMENTSETVALUE($PASS, $CONTRASENA)
_IEACTION($BTN_INGRESAR, "click")
_IELOADWAIT($IE)
$CODIGO_FUENTE = _IEBODYREADTEXT($IE)
If StringInStr($CODIGO_FUENTE, "Subir Fotos") Then
MENSAJE("Datos Correctos", "Se ha logueado correctamente")
_IEQUIT($IE)
EndIf
If StringInStr($CODIGO_FUENTE, "Tu usuario y/o contraseña") Then
MENSAJE("Datos Incorrectos", "Usted se ha logueado incorrectamente, vuelva a iniciar el programa e inténtelo de nuevo")
_IEQUIT($IE)
Sleep(3000)
Exit
EndIf
EndFunc
Func MENSAJE($TITULO, $TEXTO)
TraySetIcon("Diseño\icono.ico")
TraySetPauseIcon("Diseño\icono.ico")
TraySetState()
Opt("TrayMenuMode", 1)
TrayTip($TITULO, $TEXTO, 1, 1)
EndFunc
Func SALIR()
$SALIR = MsgBox(8228, "Cerrando Aplicación", "Se está cerrando MetroBooter " & @CRLF & @CRLF & "Desea continuar?", 0, $FORM1_1)
If $SALIR = 7 Then Return
MENSAJE("Hasta luego!", "MetroBooter se ha cerrado correctamente")
CONIMAGENES()
Sleep(1000)
Exit
EndFunc
Func VISITARMETRO(ByRef $MENSAJE_RANDOM)
_IEERRORNOTIFY(False)
$TIEMPO_FUERA = _IELOADWAITTIMEOUT(9000)
$IE = _IECREATE("http://www.metroflog.com/directory/random", 0, 0)
_IELOADWAIT($IE)
$WEB = _IEPROPERTYGET($IE, "locationurl")
While StringInStr($WEB, "random")
$INI = 1
If $FIRMAS = 10 Then
LOGOUT($IE)
EndIf
SINIMAGENES()
If @error = $_IESTATUS_LOADWAITTIMEOUT Then
VISITARMETRO($IE)
EndIf
$SOURCE = _IEDOCREADHTML($IE)
$EXPRESION = '">(.*?)</A><BR>'
$FLOG = StringRegExp($SOURCE, $EXPRESION, 1)
$WEB = "http://www.metroflog.com/" & $FLOG[0]
_IENAVIGATE($IE, $WEB)
_IELOADWAIT($IE)
$MENSAJE = _IEGETOBJBYID($IE, "mensaje")
$BTN_ENVIAR = _IEGETOBJBYID($IE, "enviarmensaje")
_IEFORMELEMENTSETVALUE($MENSAJE, $MENSAJE_RANDOM)
_IEACTION($BTN_ENVIAR, "click")
$PAGINA_ACTUAL = _IEPROPERTYGET($IE, "locationurl")
$TEXTO_WEB = _IEBODYREADTEXT($IE)
If StringInStr($TEXTO_WEB, "Sólo los Favoritos") Then
HISTORIAL("No se pudo firmar en: " & $PAGINA_ACTUAL)
HISTORIAL("Razón: Sólo los favoritos pueden firmarle" & @CRLF)
_IENAVIGATE($IE, "http://www.metroflog.com/directory/random")
ExitLoop
EndIf
If StringInStr($TEXTO_WEB, "Esta foto ha alcanzado") Then
HISTORIAL("No se pudo firmar en " & $PAGINA_ACTUAL)
HISTORIAL("Razón: Libro lleno" & @CRLF)
_IENAVIGATE($IE, "http://www.metroflog.com/directory/random")
ExitLoop
EndIf
$FIRMAS = $FIRMAS + 1
HISTORIAL($FIRMAS & ": " & "Firma correcta en: " & $PAGINA_ACTUAL & @CRLF)
Sleep(500)
_IEQUIT($IE)
Return VISITARMETRO($MENSAJE_RANDOM)
WEnd
EndFunc
Func SINIMAGENES()
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "REG_SZ", "no")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Play_Animations", "REG_SZ", "no")
EndFunc
Func CONIMAGENES()
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "REG_SZ", "yes")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Play_Animations", "REG_SZ", "yes")
EndFunc
Func HISTORIAL($TEXTO)
Local $RUTA = @ScriptDir & "\Historial\Historial.txt"
_FILEWRITELOG($RUTA, $TEXTO & @CRLF)
EndFunc
Func LOGOUT(ByRef $IE)
_IELINKCLICKBYTEXT($IE, "Salir")
_IELOADWAIT($IE)
$USER = _IEGETOBJBYID($IE, "username")
$PASS = _IEGETOBJBYID($IE, "password")
$BTN_INGRESAR = _IEGETOBJBYID($IE, "enviar")
_IEFORMELEMENTSETVALUE($USER, RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MetroBooter\MetroBooter 2.0", "usuario"))
_IEFORMELEMENTSETVALUE($PASS, RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MetroBooter\MetroBooter 2.0", "password"))
_IEACTION($BTN_INGRESAR, "click")
_IELOADWAIT($IE)
Global $FIRMAS = 0
_IENAVIGATE($IE, "http://www.metroflog.com/directory/random")
Return
EndFunc
Func ABRIR_WEB()
$WEB_METROBOOTER = _IECREATE("http://www.odaclick.com/emma93/")
EndFunc
Func CREDITOS()
MsgBox(0, "Créditos", "Creado por Fekaa. Para dudas y/o sugerencias, por favor no dude en enviarme un e-mail" & @CRLF & @CRLF & "Dirección de correo electronico: [email protected]", 0, $FORM1_1)
EndFunc
Func MOSTRAR_HISTORIAL()
ShellExecute(@ScriptDir & "\Historial\Historial.txt")
EndFunc
xlomenos decime k no keres compartir y listo pibe, 
, pero no es para mas tarde sacar en cara nada pero despues estas cosas uno las tiene en cuenta, ya k ni sie kiera responde, igualmente tambpoco obligacion a responder tiene, no al foro bardo 
es joda, respeto tu trabajo, pero si, deberias blindarlo, xq he probado esa herramienta y si los decompila, asik ten kuidado 
k garronm!, ya te estaba agradeciendo por posteadr el code! igual gracias, 
