Hola soy nuevo en este foro y quiero aportar tanto como recibir el aporte de ustedes y a continuación les explico de que va mi proyecto y el problema que se me ha presentado el el cual llevo 2 días tratando de resolver y no encuentro solución
.
Bueno ahora les explico mi proyecto trata de hacer un pixelbot que detecte una imagen o un pixel en la pantalla y haga click sobre la imagen o pixel el problema no es que no funcione por que realmente lo activo y hace todas las funciones jejeje pero no puedo hacer que dicha opción se active solo si se activa una casilla aquí dejo un fragmento del código
Imagen del fragmento:
Y la única manera que pude hacer funcionar las variables fue de la siguiente manera
---------------------------------------------------------------------
Switch $Form1_1
Case $activpetcaj = activarpetcaj()
Case $camunav = camunave()
EndSwitch
De esta manera funciona pero da igual si la casilla esta marcada o no
----------------------------------------------------------------------
Y bueno en fin esa es mi duda como hacer que la función se active solo cuando la casilla este marcada ?
Código aun no terminado:
---------------------------------------------------------------------------------
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <ImageSearch.au3>
#include <AutoItConstants.au3>
HotKeySet("{f2}", "iniciar")
HotKeySet("{ESC}", "salir")
Global $X = 0
Global $Y = 0
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("CaltaBot v0.01", 242, 186, 228, 156)
$Group1 = GUICtrlCreateGroup("Boxes", 8, 96, 97, 81)
$bbox = GUICtrlCreateCheckbox("Normales", 16, 120, 65, 17)
$ebox = GUICtrlCreateCheckbox("Eventos", 16, 144, 65, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("P.E.T", 112, 96, 121, 81)
$activpetcaj = GUICtrlCreateCheckbox("Activar Pet Cajero", 120, 120, 105, 17)
$reppet = GUICtrlCreateCheckbox("Reparar Pet", 120, 144, 81, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Anti-Ban", 112, 8, 121, 81)
$camunav = GUICtrlCreateCheckbox("Camuflar nave", 120, 32, 97, 17)
$offbot = GUICtrlCreateCheckbox("Desc. en 6h", 120, 56, 97, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Teclas", 8, 8, 97, 81)
$Label1 = GUICtrlCreateLabel("F2 - Iniciar", 16, 32, 77, 17)
GUICtrlSetFont(-1, 8, 800, 0, "Verdana")
$Label2 = GUICtrlCreateLabel("ESC - Salir", 16, 56, 64, 17)
GUICtrlSetFont(-1, 8, 800, 0, "Verdana")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func iniciar()
$rX = 180
$rY = 110
Global $m_pos = MouseGetPos()
$Search = _ImageSearch('minimap.bmp', 1, $X, $Y, 0)
While 1
If $Search = 1 Then
MouseClick("left", $X + (Random(0, $rX, 1)), $Y + (Random(0, $rY, 1)))
MouseMove($m_pos[0], $m_pos[0], 0)
Sleep(6000)
Else
MsgBox(0, "Error", "No se encontro el minimapa")
ExitLoop
EndIf
Switch $Form1_1
Case $activpetcaj
activarpetcaj()
Case $camunav
camunave()
EndSwitch
WEnd
EndFunc ;==>iniciar
Func activarpetcaj()
$onpet_x = 0
$onpet_y = 0
$search_onpet = _ImageSearch('on_pet.bmp', 1, $onpet_x, $onpet_y, 0)
If $search_onpet = 1 Then
MouseClick($MOUSE_CLICK_LEFT, $onpet_x, $onpet_y, 1)
EndIf
EndFunc ;==>activarpetcaj
Func camunave()
$camu_x = 0
$camu_y = 0
$search_camu1 = _ImageSearch('camu1.bmp', 1, $camu_x, $camu_y, 0)
$search_camu2 = _ImageSearch('camu2.bmp', 1, $camu_x, $camu_y, 0)
If $search_camu1 = 1 Then
MouseClick($MOUSE_CLICK_LEFT, $camu_x, $camu_y, 1)
ElseIf $search_camu2 = 1 Then
MouseClick($MOUSE_CLICK_LEFT, $camu_x, $camu_y, 1)
EndIf
EndFunc ;==>camunave
Func salir()
Exit
EndFunc ;==>salir
-----------------------------------------------------------------------------------------------------
