ayuda bot creado con PixelPicker.sfx se relentiza

Tus preguntas. Algoritmos o Grupos de Comandos formando Programas Escripts.

ayuda bot creado con PixelPicker.sfx se relentiza

Notapor marta » 25 Ene 2017, 14:46

hola buenas cree un bot de dark orbit que basicamente recoge cajas bonux mediante PixelPicker.sfx va bien y funciona todo el problema es que a la media hora o una hora se va relentizando todo el proceso cierro el scrip lo habro y funciona rapido otra vez ( me supogo que sea algun problema del bucle que llega algun momento que se llena y responde mal ) hay alguna manera de ir limpiandolo cada nedia hora gracias
marta
 
Mensajes: 2
Registrado: 25 Ene 2017, 14:23

Re: ayuda bot creado con PixelPicker.sfx se relentiza

Notapor Chefito » 26 Ene 2017, 01:53

Das muy poca información. Seguramente tienes algo mal programado que te provoca esa lentitud con el tiempo. Necesitamos que nos muestres el código de tu programa para ver lo que puede estar mal.

Saludos
Cita vista en algún lugar de la red: En este mundo hay 10 tipos de personas, los que saben binario y los que no ;).
Avatar de Usuario
Chefito
Profesional del Autoit
 
Mensajes: 2010
Registrado: 21 Feb 2008, 18:42
Ubicación: Albacete/Cuenca (España)

Re: ayuda bot creado con PixelPicker.sfx se relentiza

Notapor marta » 26 Ene 2017, 13:04

el codigo tiene mas de 3000 mil lineas y repito funciona bien solo que se empieza a relentizar contra mas tiempo esta funcionando hay te pego alguna parte
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=robot-icono.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <GuiEdit.au3>
#include <INet.au3>
#include <MD5.au3>
#include <File.au3>
;IMAGENES
#include <src.au3>
#include <FastFind.au3>
#include <ImageSearch.au3>
;FTP
#include <FTPEx.au3>
#include <Misc.au3>
#include <ProgressConstants.au3>
;update
#include <string.au3>
#include <array.au3>
;---
#include <Misc.au3>
#include <FTPEx.au3>

HotKeySet("{F2}", "_exit")
HotKeySet("{F3}", "_test")
HotKeySet("{ESC}", "_exitbot")
Opt("CaretCoordMode", 0)
Opt("TCPTimeout", 0)

Global $sServer = '85.214.214.73'
Global $sUsername = 'macrobot'
Global $sPass = 'macrobot'
Global $hFTPSession
Global $g_sRemoteFile = "update.html"
Global $g_sLocalFile = @TempDir & "\update.html"
FileDelete(@TempDir & "\update.html")

;Global $WinSizePos[4], $WinNewSizePos[4], $WinClientSize[2]
Global $resultx[6], $resulty[6]
Global $WinName, $WinHandle, $jump = 0, $menu[40], $set[40], $browser = 0, $fleemap, $maptime, _
$disconnect, $pettimet, $repairtime, $mimaptime, $mapactual = 0, $Coor[2], $Modon, $boxes = 1, $menutimer, $counter_rep = 1
Global $Path = @ScriptDir & "\settings.dad"
Global $length = @DesktopWidth, $height = @DesktopHeight
Global $ServerIP = "85.214.214.73", $ServerPort = 64400, $DataString
Global $allow = 0, $versionNow = "048"
Global $ControlID = "[CLASS:MacromediaFlashPlayerActiveX; INSTANCE:1]"
#Region ### START Koda GUI section ### Form=C:\Users\Usuario\Desktop\MacroBot\src\gui\form1.kxf
$Form1 = GUICreate("Macrobot BETA v" & $versionNow, 369, 298, @DesktopWidth / 2, @DesktopHeight / 2)
$start = GUICtrlCreateButton("start", 0, 0, 41, 41, $BS_ICON)
GUICtrlSetImage(-1, "src\gui\start.ico", -1)
$stop = GUICtrlCreateButton("stop", 40, 0, 41, 41, $BS_ICON)
GUICtrlSetImage(-1, "src\gui\stop.ico", -1)
$save = GUICtrlCreateButton("save", 80, 0, 41, 41, $BS_ICON)
GUICtrlSetImage(-1, "src\gui\save.ico", -1)
$download = GUICtrlCreateButton("download", 120, 0, 41, 41, $BS_ICON)
GUICtrlSetImage(-1, "src\gui\download.ico", -1)
$botlabel = GUICtrlCreateLabel("MacroBot By loop88", 168, 8, 190, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Broadway")
GUICtrlSetColor(-1, 0x0000FF)
$menustart = GUICtrlCreateTab(8, 40, 353, 249)
$TabSheet1 = GUICtrlCreateTabItem("Bienvenida")
$consola = GUICtrlCreateEdit("", 16, 176, 337, 105)
GUICtrlSetData(-1, "")
$menu[1] = GUICtrlCreateInput("", 120, 72, 145, 21)
$menu[2] = GUICtrlCreateInput("", 120, 104, 145, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_PASSWORD))
$login = GUICtrlCreateButton("Identificar", 20, 129, 41, 41, $BS_ICON)
GUICtrlSetImage(-1, "src\gui\login.ico", -1)
$register = GUICtrlCreateButton("Registrar", 68, 129, 41, 41, $BS_ICON)
GUICtrlSetImage(-1, "src\gui\register.ico", -1)
$Label7 = GUICtrlCreateLabel("Nombre de usuario :", 16, 72, 99, 17)
$Label8 = GUICtrlCreateLabel("Contraseña :", 48, 104, 64, 17)
$Label13 = GUICtrlCreateLabel("No introducir usuario de Darkorbit", 112, 144, 237, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$TabSheet2 = GUICtrlCreateTabItem("Opciones")
$Group1 = GUICtrlCreateGroup("Tiempo antes de Desconectar", 180, 145, 169, 41)
$menu[3] = GUICtrlCreateInput("", 188, 161, 41, 22, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$menu[4] = GUICtrlCreateCombo("Combo1", 236, 161, 81, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("X-2", 180, 65, 169, 41)
$menu[6] = GUICtrlCreateCombo("Combo2", 276, 81, 49, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$menu[5] = GUICtrlCreateCheckbox("Huir en X-2", 188, 81, 73, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("CPU de camuflaje", 180, 105, 169, 41)
$menu[8] = GUICtrlCreateCombo("Combo4", 236, 121, 81, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group8 = GUICtrlCreateGroup("Recolectar", 12, 61, 153, 113)
$menu[9] = GUICtrlCreateCheckbox("Botin Dorado", 16, 155, 81, 17)
$menu[10] = GUICtrlCreateCheckbox("Botin Verde", 16, 131, 73, 17)
$menu[11] = GUICtrlCreateRadio("Cajas y Eventos", 16, 104, 105, 17)
$editarcolor = GUICtrlCreateButton("Editar", 120, 104, 41, 17)
$menu[12] = GUICtrlCreateRadio("Cajas", 16, 83, 49, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\src\gui\imagen\images1.bmp", 10, 174, 155, 111)
$Group13 = GUICtrlCreateGroup("Modo compatibilidad", 200, 208, 113, 57)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$compatibilidad = GUICtrlCreateCheckbox("ON", 240, 232, 41, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet3 = GUICtrlCreateTabItem("Habilidades")
$Group5 = GUICtrlCreateGroup("Aegis", 16, 144, 337, 137)
$menu[13] = GUICtrlCreateCombo("Combo1", 104, 200, 57, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$menu[14] = GUICtrlCreateCombo("Combo2", 248, 200, 57, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$menu[15] = GUICtrlCreateCombo("Combo3", 104, 232, 57, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$menu[16] = GUICtrlCreateCombo("Combo4", 176, 200, 57, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$menu[17] = GUICtrlCreateCombo("Combo5", 248, 232, 57, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$menu[18] = GUICtrlCreateCombo("Combo6", 176, 232, 57, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$Label1 = GUICtrlCreateLabel("Abilidades", 32, 168, 52, 17)
$Label2 = GUICtrlCreateLabel("Barra rapida", 32, 200, 61, 17)
$Label3 = GUICtrlCreateLabel("Escudo", 112, 168, 40, 17)
$Label4 = GUICtrlCreateLabel("Vida", 196, 167, 25, 17)
$Label5 = GUICtrlCreateLabel("Balisa", 264, 168, 32, 17)
$Label6 = GUICtrlCreateLabel("Usar al X%", 32, 232, 55, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group6 = GUICtrlCreateGroup("Spearhead", 136, 64, 217, 73)
$menu[19] = GUICtrlCreateCombo("Combo11", 152, 80, 57, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$menu[20] = GUICtrlCreateCombo("Combo11", 264, 80, 57, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$menu[21] = GUICtrlCreateCheckbox("Camuflaje", 144, 112, 65, 17)
$menu[22] = GUICtrlCreateCheckbox("reconocimiento", 254, 112, 89, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group7 = GUICtrlCreateGroup("Nave", 16, 64, 113, 73)
$menu[23] = GUICtrlCreateRadio("Aegis", 32, 80, 49, 17)
$menu[24] = GUICtrlCreateRadio("Spearhead", 32, 96, 73, 17)
$menu[25] = GUICtrlCreateRadio("Otra", 32, 112, 41, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet4 = GUICtrlCreateTabItem("P.E.T.")
$Group9 = GUICtrlCreateGroup("", 72, 136, 225, 65)
$menu[26] = GUICtrlCreateCheckbox("Usar P.E.T.", 80, 152, 73, 17)
$menu[27] = GUICtrlCreateCheckbox("Reparar P.E.T.", 80, 176, 89, 17)
$menu[28] = GUICtrlCreateRadio("Cojer Cajas", 192, 152, 97, 17)
$menu[29] = GUICtrlCreateRadio("Cojer Recursos", 192, 176, 97, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet5 = GUICtrlCreateTabItem("Reparar")
$Group10 = GUICtrlCreateGroup("", 24, 104, 321, 129)
$menu[30] = GUICtrlCreateCheckbox("Reparar", 32, 120, 65, 17)
$menu[31] = GUICtrlCreateInput("Input4", 192, 120, 49, 21)
$menu[32] = GUICtrlCreateRadio("En base + Volver", 32, 152, 100, 17)
$menu[33] = GUICtrlCreateRadio("En portal", 152, 152, 65, 17)
$menu[34] = GUICtrlCreateRadio("Insitu", 272, 152, 41, 17)
$menu[35] = GUICtrlCreateCombo("Combo13", 80, 192, 49, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$Label9 = GUICtrlCreateLabel("un maximo de", 112, 120, 69, 17)
$Label10 = GUICtrlCreateLabel("Esperar", 32, 192, 40, 17)
$Label11 = GUICtrlCreateLabel("Minutos", 136, 192, 41, 17)
$Label12 = GUICtrlCreateLabel("veces", 248, 120, 32, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet6 = GUICtrlCreateTabItem("Mapa")
$Group3 = GUICtrlCreateGroup("Botear en mapa", 68, 97, 97, 41)
$menu[7] = GUICtrlCreateCombo("Combo1", 76, 113, 81, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group11 = GUICtrlCreateGroup("Cambiar a mapa", 180, 97, 97, 41)
$menu[36] = GUICtrlCreateCombo("Combo1", 188, 113, 81, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group12 = GUICtrlCreateGroup("Cambio de Mapa Cada X Tiempo", 72, 152, 201, 73)
$menu[37] = GUICtrlCreateCheckbox("Cambiar de mapa", 80, 168, 105, 17)
$menu[38] = GUICtrlCreateCombo("Combo1", 167, 193, 81, 25)
$menu[39] = GUICtrlCreateInput("input1", 103, 193, 41, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
WinSetOnTop($Form1, "", 1)
#EndRegion ### END Koda GUI section ###
;mensages
GUICtrlSetTip($start, "Con este boton Inicias el Bot.", "Iniciar Bot", 1, 1)
GUICtrlSetTip($stop, "Con este boton paras el Bot," & @CRLF & "Tambien puedes usar la tecla 'F2'," & @CRLF & "Y la tecla 'ESC' para forzar el cierre de Bot.", "Parar Bot", 1, 1)
GUICtrlSetTip($save, "Con este boton guardas la Configuracion actual.", "Guardar Configuracion", 1, 1)
GUICtrlSetTip($download, "Con este boton descargas una actualizacion.", "Descargar actualizacion", 1, 1)
GUICtrlSetTip($login, "Aqui Inicias Secion con tu Usuario.", "Iniciar Secion", 1, 1)
GUICtrlSetTip($register, "Aqui te rejistras para poder usar el bot.", "Rejistrar Usuario Nuevo", 1, 1)
GUICtrlSetTip($editarcolor, "Aqui puedes editar que cajas de eventos quieres buscar." & @CRLF & "Por defecto ya estan agregadas las Cajas..." & @CRLF & "Cajas normales, navidad, evento ICE, halloween.", "Cajas de Eventos", 1, 1)
GUICtrlSetTip($botlabel, "Picha aqui para entra.", "www.loop88.x10host.com/loop88/", 1, 1)
GUICtrlSetTip($menu[11], "Solo usar si hay Cajas de Eventos." & @CRLF & "Para evitar que piche naves o mayores bugs.", "Cajas De Eventos", 1, 1)
GUICtrlSetTip($menu[5], "Selecciona esto para huir de invas en X-2," & @CRLF & "Y la cantidas de invas antes de huir.", "Huir de invas en X-2", 1, 1)
GUICtrlSetTip($menu[8], "Selecciona la ranura de la barra rapida 'No Premium'" & @CRLF & "en donde este la CPU de Camuflaje.", "CPU de Camuflaje", 1, 1)
GUICtrlSetTip($menu[4], "Selecciona el tiempo que quieras botear," & @CRLF & "unas ves alcansado la nave se desconecta en un portal.", "Tiempo", 1, 1)
GUICtrlSetTip($menu[26], "Se esplica por si solo o no?.", "P.E.T.", 1, 1)
GUICtrlSetTip($menu[30], "Selecciona esto para reparar la Nave.", "Reparar", 1, 1)
GUICtrlSetTip($menu[31], "Introduce aqui las vese que quieres reparar," & @CRLF &"antes de quela nave se desconecte" & @CRLF & "para evitar daños mayores.", "Veces a reparar", 1, 1)
GUICtrlSetTip($menu[32], "Repara en base y vulve al mapa.", "En base", 1, 1)
GUICtrlSetTip($menu[35], "Tiempo que espera antes de volver a aparecer en mapa.", "Tiempo antes de reparar", 1, 1)
GUICtrlSetTip($menu[7], "Selecciona aqui el mapa en el que vas a Botear.", "Mapa", 1, 1)
GUICtrlSetTip($menu[36], "Selecciona aqui el mapa al que quieres cambiar pasado el tiempo.", "Mapa al que cambiar", 1, 1)
GUICtrlSetTip($menu[37], "Selecciona esto si quieres cambiar de mapa," & @CRLF & " pon un tiempo que tenga que pasar antes de cambiar.", "Cambiar de mapa", 1, 1)
GUICtrlSetTip($compatibilidad, "Esta opciones es para cuando tengas prolemas con el navedor integrado," & @CRLF & "Marcando esto puedes usar tu navegador preferido para botear," & @CRLF & "Esta opcion no se guarda.", "Modo compatibilidad", 1, 1)

;por defecto
GUICtrlSetState($menu[9], $GUI_DISABLE)
;GUICtrlSetState($menu[10], $GUI_DISABLE)
GUICtrlSetState($menu[12], $GUI_CHECKED)
GUICtrlSetState($menu[25], $GUI_ENABLE)
GUICtrlSetState($menu[25], $GUI_CHECKED)
_update()
_settings()
If $set[1] <> "" And $set[2] <> "" Then
$set[2] = BinaryToString($set[2], 4)
_Login()
EndIf
_GUIset()
Run("MacroBot_Browser.exe")
_consoleWrite('BORRAR CARPETA SRC')
_consoleWrite('BORRAR CARPETA SRC')
_consoleWrite('ACTUALIZACION DE BONUX EVENTO CUIDADO ESTA SIN PROVAR EN MAPAS CON ESTACION')
_consoleWrite('BORRAR CARPETA SRC')
_Menu()
Func _Menu()
Local $i = 2
$imagen = TimerInit()
While 1
If TimerDiff($imagen) > 8000 Then
If $i >= 4 Then $i = 1
GUICtrlSetImage($Pic1, @ScriptDir & "\src\gui\imagen\images" & $i & ".bmp")
$i = $i + 1
$imagen = TimerInit()
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $botlabel
ShellExecute("http://loop88.x10host.com/loop88/")
Case $start
If $allow = 1 Then
_GUIread()
_Control()
If $browser = 1 Or $Modon = 1 Then
TrayTip("Iniciando MacroBot", "No tocar Raton y Teclado", 2, 2)
_Run()
EndIf
Else
_consoleWrite('Error : Poravor introdusca su Usuario antes de usar el Bot.')
EndIf
Case $save
_GUIread()
_GUIsave()
TrayTip("Guardar configuracion MacroBot", "Se a guardado la configuracion", 5, 1)
Case $login
_GUIread()
_Login()
Case $download
_update()
Case $editarcolor
_EditarColor()
Case $register
_Addclient()
Case $menu[5]
_GUIread()
_GUIset()
Case $menu[37];aqui next
_GUIread()
_GUIset()
Case $menu[30]
_GUIread()
_GUIset()
Case $menu[26]
_GUIread()
_GUIset()
Case $menu[23]
_GUIread()
_GUIset()
Case $menu[24]
_GUIread()
_GUIset()
Case $menu[25]
_GUIread()
_GUIset()
EndSwitch
WEnd
EndFunc ;==>_Menu

Func _EditarColor()
Run("notepad.exe " & @ScriptDir & "\src\colors.txt", @WindowsDir)
Run(@ScriptDir & "\src\PixelPicker.sfx.exe")
EndFunc ;==>_EditarColor

Func _Control()
If $Modon = 4 Then
Local $WinHandle = WinGetHandle("MacroBot Browser")
If @error Then
TrayTip("Error MacroBot ", "No se encuentra el Navegador 'Macrobot Browser'", 5, 3)
Else
$WinName = "MacroBot Browser[" & Round(Random(10000, 20000)) & "]"
WinSetTitle("MacroBot Browser", "", $WinName)
WinSetState($WinName, "", @SW_MAXIMIZE)
;$WinSizePos = WinGetPos($WinName)
;$WinClientSize = WinGetClientSize($WinName)
;MsgBox(0,"1(x, y, Breite, Höhe):", $WinSizePos[0] & " " & $WinSizePos[1] & " " & $WinSizePos[2] & " " & $WinSizePos[3])
;WinMove ($WinName, "",$WinSizePos[0] - $WinSizePos[2], $WinSizePos[1] - $WinSizePos[3])
;WinMove ($WinName, "",0,0)
;$WinSizePos = WinGetPos($WinName)
;MsgBox(0,"1(x, y, Breite, Höhe):", $WinSizePos[0] & " " & $WinSizePos[1] & " " & $WinSizePos[2] & " " & $WinSizePos[3])
;$WinNewSizePos = _WinCoordinates($WinSizePos[0], $WinSizePos[1], $WinSizePos[2], $WinSizePos[3])
;MsgBox(0,"2(x, y, Breite, Höhe):", $WinSizePos[0] & " " & $WinSizePos[1] & " " & $WinSizePos[2] & " " & $WinSizePos[3])
;$WinClientSize = WinGetClientSize($WinHandle)
;MsgBox(0,"Breite, Höhe):", $WinClientSize[0] & " " & $WinClientSize[1])
;MsgBox(0,"2(x, y, Breite, Höhe):", $WinSizePos[0] & " " & $WinSizePos[1H] & " " & $WinSizePos[2] & " " & $WinSizePos[3])
;MsgBox(0,"3(x, y, Breite, Höhe):", $WinNewSizePos[0] & " " & $WinNewSizePos[1] & " " & $WinClientSize[0] & " " & $WinClientSize[0])
$browser = 1
FFSetWnd($WinHandle)
;FFSnapShot()
;FFSaveBMP("testimg",False)
Local $ColorArray
;_FileReadToArray ("colors.txt", $aColorArray, 1,)
If $set[11] = 1 Then
_FileReadToArray(@ScriptDir & "\src\colors.txt", $ColorArray, 0)
FFAddColor($ColorArray)
ElseIf $set[12] = 1 Then
FFAddColor(0xFFE6C5)
EndIf
EndIf
ElseIf $Modon = 1 Then
Local $ColorArray
;_FileReadToArray ("colors.txt", $aColorArray, 1,)
If $set[11] = 1 Then
_FileReadToArray(@ScriptDir & "\src\colors.txt", $ColorArray, 0)
FFAddColor($ColorArray)
ElseIf $set[12] = 1 Then
FFAddColor(0xFFE6C5)
EndIf
EndIf
GUISetState(@SW_MINIMIZE)
EndFunc ;==>_Control


#CS
Func _WinCoordinates($x, $y, $sizex, $sizey)
Local $a[4]
$a[0] = $x
$a[1] = $y
$a[2] = $x + $sizex
$a[3] = $y + $sizey
Return $a
EndFunc ;==>_WinCoordinates
#CE

Func _test()
Local $x, $y
$minimap = _imagesearch(@ScriptDir & "\src\map\minimap.bmp", 1, $x, $y, 20)
MouseClick("left", $x + 170, $y + 53, 1, 0)
EndFunc ;==>_test

Func _settings()
If FileExists($Path) Then
_FileReadToArray($Path, $set, 1)
EndIf
EndFunc ;==>_settings

Func _GUIsave()
$set[2] = StringToBinary($set[2], 4)
_FileWriteFromArray($Path, $set, 1)
EndFunc ;==>_GUIsave

Func _GUIread()
For $i = 0 To 39
$set[$i] = GUICtrlRead($menu[$i])
Next
$Modon = GUICtrlRead($compatibilidad)
EndFunc ;==>_GUIread

Func _GUIset()
GUICtrlSetData($menu[1], $set[1])
GUICtrlSetData($menu[2], $set[2])

;$menu[10]

If $set[10] = 1 Then
GUICtrlSetState($menu[10], $GUI_CHECKED)
ElseIf $set[10] = 4 Then
GUICtrlSetState($menu[10], $GUI_UNCHECKED)
EndIf

If $set[11] = 1 Then
GUICtrlSetState($menu[11], $GUI_CHECKED)
ElseIf $set[11] = 4 Then
GUICtrlSetState($menu[11], $GUI_UNCHECKED)
EndIf

If $set[12] = 1 Then
GUICtrlSetState($menu[12], $GUI_CHECKED)
ElseIf $set[12] = 4 Then
GUICtrlSetState($menu[12], $GUI_UNCHECKED)
EndIf

If $set[8] > 0 Then
GUICtrlSetData($menu[8], "")
GUICtrlSetData($menu[8], "1|2|3|4|5|6|7|8|9|0|No usar", $set[8])
Else
GUICtrlSetData($menu[8], "")
GUICtrlSetData($menu[8], "1|2|3|4|5|6|7|8|9|0|No usar", "No usar")
EndIf

If $set[5] = 1 Then
GUICtrlSetState($menu[5], $GUI_CHECKED)
GUICtrlSetState($menu[6], $GUI_ENABLE)
GUICtrlSetData($menu[6], "")
GUICtrlSetData($menu[6], "1|2|3|4|5", $set[6])
Else
GUICtrlSetState($menu[5], $GUI_UNCHECKED)
GUICtrlSetState($menu[6], $GUI_DISABLE)
GUICtrlSetData($menu[6], "")
GUICtrlSetData($menu[6], "1|2|3|4|5", "1")
EndIf
If $set[7] <> "" Then
GUICtrlSetData($menu[7], "")
GUICtrlSetData($menu[7], "X-1|X-2|X-3|X-4|X-5|X-6|X-7|X-8|4-X", $set[7])
Else
GUICtrlSetData($menu[7], "")
GUICtrlSetData($menu[7], "X-1|X-2|X-3|X-4|X-5|X-6|X-7|X-8|4-X", "X-2")
EndIf

If $set[36] <> "" Then
GUICtrlSetData($menu[36], "")
GUICtrlSetData($menu[36], "X-1|X-2|X-3|X-4|X-5|X-6|X-7|X-8|4-X", $set[36])
Else
GUICtrlSetData($menu[36], "")
GUICtrlSetData($menu[36], "X-1|X-2|X-3|X-4|X-5|X-6|X-7|X-8|4-X", "X-2")
EndIf

If $set[37] = 1 Then
GUICtrlSetState($menu[37], $GUI_CHECKED)
GUICtrlSetState($menu[36], $GUI_ENABLE)
GUICtrlSetState($menu[38], $GUI_ENABLE)
GUICtrlSetState($menu[39], $GUI_ENABLE)
GUICtrlSetData($menu[38], "")
GUICtrlSetData($menu[38], "Minutos|Horas", $set[38])
GUICtrlSetData($menu[39], $set[39])
Else
GUICtrlSetState($menu[37], $GUI_UNCHECKED)
GUICtrlSetState($menu[36], $GUI_DISABLE)
GUICtrlSetState($menu[38], $GUI_DISABLE)
GUICtrlSetState($menu[39], $GUI_DISABLE)
GUICtrlSetData($menu[38], "")
GUICtrlSetData($menu[38], "Minutos|Horas", "Horas")
GUICtrlSetData($menu[39], $set[39])
GUICtrlSetData($menu[39], "1")
EndIf
If $set[3] <> "" Or $set[4] <> "" Then
GUICtrlSetData($menu[3], $set[3])
GUICtrlSetData($menu[4], "")
GUICtrlSetData($menu[4], "Minutos|Horas", $set[4])
Else
GUICtrlSetData($menu[3], "24")
GUICtrlSetData($menu[4], "")
GUICtrlSetData($menu[4], "Minutos|Horas", "Horas")
EndIf

If $set[30] = 1 Then
GUICtrlSetState($menu[30], $GUI_CHECKED)
GUICtrlSetState($menu[31], $GUI_ENABLE)
GUICtrlSetState($menu[32], $GUI_ENABLE)
GUICtrlSetState($menu[33], $GUI_ENABLE)
GUICtrlSetState($menu[34], $GUI_ENABLE)
GUICtrlSetState($menu[35], $GUI_ENABLE)
If $set[32] = 1 Then
GUICtrlSetState($menu[32], $GUI_CHECKED)
ElseIf $set[33] = 1 Then
GUICtrlSetState($menu[33], $GUI_CHECKED)
ElseIf $set[34] = 1 Then
GUICtrlSetState($menu[34], $GUI_CHECKED)
EndIf
GUICtrlSetData($menu[35], "")
GUICtrlSetData($menu[35], "1|2|3", $set[35])
GUICtrlSetData($menu[31], $set[31])
Else
GUICtrlSetState($menu[30], $GUI_UNCHECKED)
GUICtrlSetState($menu[31], $GUI_DISABLE)
GUICtrlSetState($menu[32], $GUI_DISABLE)
GUICtrlSetState($menu[33], $GUI_DISABLE)
GUICtrlSetState($menu[34], $GUI_DISABLE)
GUICtrlSetState($menu[35], $GUI_DISABLE)
GUICtrlSetData($menu[35], "")
GUICtrlSetData($menu[35], "1|2|3", "2")
GUICtrlSetData($menu[31], "4")
GUICtrlSetState($menu[32], $GUI_CHECKED)
EndIf

If $set[26] = 1 Then
GUICtrlSetState($menu[26], $GUI_CHECKED)
GUICtrlSetState($menu[27], $GUI_ENABLE)
GUICtrlSetState($menu[28], $GUI_ENABLE)
GUICtrlSetState($menu[29], $GUI_ENABLE)
If $set[27] = 1 Then
GUICtrlSetState($menu[27], $GUI_CHECKED)
GUICtrlSetState($menu[27], $GUI_ENABLE)
Else
GUICtrlSetState($menu[27], $GUI_UNCHECKED)
GUICtrlSetState($menu[27], $GUI_ENABLE)
EndIf

If $set[28] = 1 Then
GUICtrlSetState($menu[28], $GUI_CHECKED)
GUICtrlSetState($menu[28], $GUI_ENABLE)
GUICtrlSetState($menu[29], $GUI_UNCHECKED)
GUICtrlSetState($menu[29], $GUI_ENABLE)
EndIf

If $set[29] = 1 Then
GUICtrlSetState($menu[28], $GUI_UNCHECKED)
GUICtrlSetState($menu[28], $GUI_ENABLE)
GUICtrlSetState($menu[29], $GUI_CHECKED)
GUICtrlSetState($menu[29], $GUI_ENABLE)
EndIf
Else
GUICtrlSetState($menu[27], $GUI_UNCHECKED)
GUICtrlSetState($menu[27], $GUI_DISABLE)
GUICtrlSetState($menu[28], $GUI_DISABLE)
GUICtrlSetState($menu[28], $GUI_UNCHECKED)
GUICtrlSetState($menu[29], $GUI_DISABLE)
GUICtrlSetState($menu[29], $GUI_UNCHECKED)
EndIf

If $set[24] = 1 Then
GUICtrlSetState($menu[24], $GUI_CHECKED)
GUICtrlSetState($menu[21], $GUI_ENABLE)
GUICtrlSetState($menu[22], $GUI_ENABLE)
GUICtrlSetState($menu[19], $GUI_ENABLE)
GUICtrlSetState($menu[20], $GUI_ENABLE)

If $set[21] = 1 Then
GUICtrlSetState($menu[21], $GUI_CHECKED)
GUICtrlSetState($menu[19], $GUI_ENABLE)
EndIf
If $set[22] = 1 Then
GUICtrlSetState($menu[22], $GUI_CHECKED)
GUICtrlSetState($menu[20], $GUI_ENABLE)
EndIf

GUICtrlSetData($menu[19], "")
GUICtrlSetData($menu[19], "1|2|3|4|5|6|7|8|9|0", $set[19])
GUICtrlSetData($menu[20], "")
GUICtrlSetData($menu[20], "1|2|3|4|5|6|7|8|9|0", $set[20])
Else

GUICtrlSetState($menu[21], $GUI_DISABLE)
GUICtrlSetState($menu[22], $GUI_DISABLE)
GUICtrlSetState($menu[19], $GUI_DISABLE)
GUICtrlSetState($menu[20], $GUI_DISABLE)
GUICtrlSetState($menu[21], $GUI_UNCHECKED)
GUICtrlSetState($menu[22], $GUI_UNCHECKED)

GUICtrlSetData($menu[19], "")
GUICtrlSetData($menu[19], "1|2|3|4|5|6|7|8|9|0", "0")
GUICtrlSetData($menu[20], "")
GUICtrlSetData($menu[20], "1|2|3|4|5|6|7|8|9|0", "0")

EndIf

;Aegis
If $set[23] = 1 Then
GUICtrlSetState($menu[23], $GUI_CHECKED)
GUICtrlSetState($menu[13], $GUI_ENABLE)
GUICtrlSetState($menu[14], $GUI_ENABLE)
GUICtrlSetState($menu[15], $GUI_ENABLE)
GUICtrlSetState($menu[16], $GUI_ENABLE)
GUICtrlSetState($menu[17], $GUI_ENABLE)
GUICtrlSetState($menu[18], $GUI_ENABLE)

GUICtrlSetData($menu[16], "")
GUICtrlSetData($menu[16], "1|2|3|4|5|6|7|8|9|0", $set[16])
GUICtrlSetData($menu[13], "")
GUICtrlSetData($menu[13], "1|2|3|4|5|6|7|8|9|0", $set[13])
GUICtrlSetData($menu[14], "")
GUICtrlSetData($menu[14], "1|2|3|4|5|6|7|8|9|0", $set[14])
GUICtrlSetData($menu[18], "")
GUICtrlSetData($menu[18], "10|20|30|40|50|60|70|80|90|100", $set[18])
GUICtrlSetData($menu[15], "")
GUICtrlSetData($menu[15], "10|20|30|40|50|60|70|80|90|100", $set[15])
GUICtrlSetData($menu[17], "")
GUICtrlSetData($menu[17], "10|20|30|40|50|60|70|80|90|100", $set[17])
Else
GUICtrlSetState($menu[13], $GUI_DISABLE)
GUICtrlSetState($menu[14], $GUI_DISABLE)
GUICtrlSetState($menu[15], $GUI_DISABLE)
GUICtrlSetState($menu[16], $GUI_DISABLE)
GUICtrlSetState($menu[17], $GUI_DISABLE)
GUICtrlSetState($menu[18], $GUI_DISABLE)
GUICtrlSetData($menu[16], "")
GUICtrlSetData($menu[16], "1|2|3|4|5|6|7|8|9|0", "0")
GUICtrlSetData($menu[13], "")
GUICtrlSetData($menu[13], "1|2|3|4|5|6|7|8|9|0", "0")
GUICtrlSetData($menu[14], "")
GUICtrlSetData($menu[14], "1|2|3|4|5|6|7|8|9|0", "0")
GUICtrlSetData($menu[18], "")
GUICtrlSetData($menu[18], "10|20|30|40|50|60|70|80|90|100", "50")
GUICtrlSetData($menu[15], "")
GUICtrlSetData($menu[15], "10|20|30|40|50|60|70|80|90|100", "50")
GUICtrlSetData($menu[17], "")
GUICtrlSetData($menu[17], "10|20|30|40|50|60|70|80|90|100", "50")
EndIf


;Aegis END
EndFunc ;==>_GUIset

Func _Run()
Sleep(2000)
MouseClick("left", $length / 2, $height / 2, 1, 0)
If $Modon = 4 Then
ControlSend($WinName, "", $WinHandle, "H")
Else
Send("H")
EndIf
Sleep(3000)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $stop
_Menu()
EndSwitch
Select
Case $jump = 0
_Config()
_Map()
If $set[37] = 1 Then
$maptime = TimerInit()
EndIf
If $set[26] = 1 Then
$pettimet = TimerInit()
EndIf
If $set[30] = 1 Then
$repairtime = TimerInit()
EndIf
$disconnect = TimerInit()
$mimaptime = TimerInit()
$menutimer = TimerInit()
Case $jump = 1

Case $jump = 2
_Admin()
If $boxes = 1 Then
If $set[10] = 1 Then
_BotinVerde()
EndIf
_Bonusbox()
Else
$jump = 3
EndIf
Case $jump = 3
If TimerDiff($menutimer) > 5000 Then
;_Closemenu()
_Opciones()
;$menutimer = TimerInit()
Else
$jump = 2
EndIf
_Nav()
EndSelect
WEnd
EndFunc ;==>_Run

Func _Admin()
Local $x,$y
$Admin = _imagesearch(@ScriptDir & "\src\admin.bmp", 1, $x, $y, 50)
If $Admin = 1 Then
_Disconnect()
EndIf
EndFunc ;==>_Admin

;comprueba coniguracion de juego
Func _Config()
Local $x, $y, $settingsx, $settingsy
$opesettings = _imagesearch(@ScriptDir & "\src\settings_open.bmp", 1, $x, $y, 50)
MouseClick("left", $x, $y, 1, 0)
While 1
$settings = _imagesearch(@ScriptDir & "\src\settings_menu.bmp", 1, $settingsx, $settingsy, 30)
If $settings = 1 Then
ExitLoop
EndIf
WEnd
Sleep(1000)
MouseClick("left", $settingsx + 90, $settingsy + 20, 1, 0)
Sleep(1000)
MouseClick("left", $settingsx + 90, $settingsy + 140, 1, 0)
Sleep(1000)
MouseClick("left", $settingsx + 160, $settingsy + 20, 1, 0)
Sleep(1000)
;ataque barra
$px = PixelGetColor($settingsx + 24, $settingsy + 159)
If $px = 0xCEF7FF Then
MouseClick("left", $settingsx + 24, $settingsy + 159, 1, 0)
EndIf

;inicio auto
$px = PixelGetColor($settingsx + 24, $settingsy + 189)
If $px = 0xCEF7FF Then
Else
MouseClick("left", $settingsx + 24, $settingsy + 189, 1, 0)
EndIf
;doble click
$px = PixelGetColor($settingsx + 24, $settingsy + 219)
If $px = 0xCEF7FF Then
MouseClick("left", $settingsx + 24, $settingsy + 219, 1, 0)
EndIf
;llave botin
$px = PixelGetColor($settingsx + 24, $settingsy + 249)
If $px = 0xCEF7FF Then
MouseClick("left", $settingsx + 24, $settingsy + 249, 1, 0)
EndIf
;battleray
$px = PixelGetColor($settingsx + 24, $settingsy + 279)
If $px = 0xCEF7FF Then
MouseClick("left", $settingsx + 24, $settingsy + 279, 1, 0)
EndIf
;PV bajos
$px = PixelGetColor($settingsx + 24, $settingsy + 309)
If $px = 0xCEF7FF Then
MouseClick("left", $settingsx + 24, $settingsy + 309, 1, 0)
EndIf

Sleep(1000)
MouseClick("left", $settingsx + 240, $settingsy + 20, 1, 0)
Sleep(1000)


#CS
;nombre jugador
$px = PixelGetColor($settingsx + 24, $settingsy + 69)
If $px = 0xCEF7FF Then
MouseClick("left", $settingsx + 24, $settingsy + 69, 1, 0)
EndIf
#CE

;recursos
$px = PixelGetColor($settingsx + 24, $settingsy + 99)
If $px = 0xCEF7FF Then
MouseClick("left", $settingsx + 24, $settingsy + 99, 1, 0)
EndIf

#CS
;aciertos
$px = PixelGetColor($settingsx + 24, $settingsy + 159)
If $px = 0xCEF7FF Then
MouseClick("left", $settingsx + 24, $settingsy + 159, 1, 0)
EndIf
#CE

;vants
$px = PixelGetColor($settingsx + 24, $settingsy + 189)
If $px = 0xCEF7FF Then
MouseClick("left", $settingsx + 24, $settingsy + 189, 1, 0)
EndIf
;vants 2
$px = PixelGetColor($settingsx + 24, $settingsy + 219)
If $px = 0xCEF7FF Then
MouseClick("left", $settingsx + 24, $settingsy + 219, 1, 0)
EndIf
;cargo
$px = PixelGetColor($settingsx + 24, $settingsy + 249)
If $px = 0xCEF7FF Then
MouseClick("left", $settingsx + 24, $settingsy + 249, 1, 0)
EndIf
;cargo 2
$px = PixelGetColor($settingsx + 24, $settingsy + 279)
If $px = 0xCEF7FF Then
MouseClick("left", $settingsx + 24, $settingsy + 279, 1, 0)
EndIf
;minimapa
$px = PixelGetColor($settingsx + 24, $settingsy + 309)
If $px = 0xCEF7FF Then
MouseClick("left", $settingsx + 24, $settingsy + 309, 1, 0)
EndIf
Sleep(1000)
MouseClickDrag("left", $settingsx + 404, $settingsy + 60, $settingsx + 404, $settingsy + 300)
Sleep(1000)
;rendimiento
$px = PixelGetColor($settingsx + 24, $settingsy + 69)
If $px = 0xCEF7FF Then
MouseClick("left", $settingsx + 24, $settingsy + 69, 1, 0)
EndIf
;calidad
$px = PixelGetColor($settingsx + 24, $settingsy + 99)
If $px = 0xCEF7FF Then
MouseClick("left", $settingsx + 24, $settingsy + 99, 1, 0)
EndIf
;balancean
$px = PixelGetColor($settingsx + 24, $settingsy + 129)
If $px = 0xCEF7FF Then
MouseClick("left", $settingsx + 24, $settingsy + 129, 1, 0)
EndIf


#CS
;chat
$px = PixelGetColor($settingsx + 24, $settingsy + 159)
If $px = 0xCEF7FF Then
MouseClick("left", $settingsx + 24, $settingsy + 159, 1, 0)
EndIf
#CE


;ventanas
$px = PixelGetColor($settingsx + 24, $settingsy + 189)
If $px = 0xCEF7FF Then
Else
MouseClick("left", $settingsx + 24, $settingsy + 189, 1, 0)
EndIf

Sleep(1000)
;fondo ventanas
$px = PixelGetColor($settingsx + 24, $settingsy + 219)
If $px = 0xCEF7FF Then
Else
MouseClick("left", $settingsx + 24, $settingsy + 219, 1, 0)
EndIf
Sleep(1000)
MouseClickDrag("left", $settingsx + 404, $settingsy + 300, $settingsx + 404, $settingsy + 60)
Sleep(1000)
MouseClick("left", $settingsx + 50, $settingsy + 470, 1, 0)
Sleep(2000)
MouseClick("left", $settingsx + 423, $settingsy - 5, 1, 0)
EndFunc ;==>_Config

Func _Closemenu()
Local $loop = 1, $x, $y
Do
$menuimg = _imagesearch(@ScriptDir & "\src\menu\" & $loop & ".bmp", 1, $x, $y, 50)
If $menuimg = 1 Then
MouseClick("left", $x, $y, 1, 0)
ExitLoop
EndIf
$loop = $loop + 1
Until $loop = 12
EndFunc ;==>_Closemenu

Func _Opciones()
_Connectionlost()
If Not ($set[8] = "No usar") Then
_Cloak()
EndIf
$disconnecttime = _Timercalc($set[4], $set[3])
If TimerDiff($disconnect) > $disconnecttime Then
_Disconnect()
EndIf
marta
 
Mensajes: 2
Registrado: 25 Ene 2017, 14:23


Volver a Soporte (Ayuda >Hacker)

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 5 invitados

cron