Autoit.ES

En español. Descarga programas libres y Open-Source. Añade tu programa a la librería de Scripts en Autoit.es
http://autoit.es/

MetroBooter 2.0 Source

http://autoit.es/viewtopic.php?t=1519

Página 1 de 1

MetroBooter 2.0 Source

Publicado: 02 Mar 2009, 23:07
por emma94
Here the source: :smt029

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

Re: MetroBooter 2.0 Source

Publicado: 03 Mar 2009, 01:06
por Chefito
He visto que has repetido el mensaje en dos subforos diferentes. Esta práctica no está permitida.
Hay que evitar esto, ya que se puede llenar el foro de mensajes doblados e inservibles.
EL POST QUEDA CERRADO.
Y compañero....quedas avisado. Espero no volver a alvertirte más.

Dejo el post original http://www.emesn.com/autoitforum/viewto ... f=5&t=1479

Saludos.
Todos los horarios son UTC+02:00
Página 1 de 1

Desarrollado por phpBB® Forum Software © phpBB Limited

Traducción al español por phpBB España