Элементы GUI Назначить функции на элементы окна

[Alex58reg]

ребята есть скрипт точное 3 скрипта мне нужна помощь в их соединении
вкл - выкл по чекбоксам они присутствуют в основном коде

вот основной код

#NoTrayIcon
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
#include <Misc.au3>
Global $Autoshoot = 0, $i, $color = 0xFF0000, $scan = 0
Global $smena31 = 0, $q, $color = 0xFF0000, $scan = 0
Global $fastzoom = 0, $p, $color = 0xFF0000, $scan = 0
Global $Auto = 0, $a, $color = 0xFF0000, $scan = 0
$hGui = GuiCreate('        ', 156, 340, 0, 0, 0, $WS_EX_TOOLWINDOW)
$Checkbox1 = GUICtrlCreateCheckbox("", 8, 8, 17, 17)
GUICtrlSetState(-1, $GUI_ENABLE)
$Label1 = GUICtrlCreateLabel("  Автомат", 25, 10, 120, 14)
GUICtrlSetFont(-1, 9, 800, 0, "Sylfaen")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0x1a1a1a)
$Checkbox2 = GUICtrlCreateCheckbox("", 8, 36, 17, 17)
GUICtrlSetState(-1, $GUI_ENABLE)
$Label2 = GUICtrlCreateLabel("  Одиночный", 25, 39, 120, 14)
GUICtrlSetFont(-1, 9, 800, 0, "Sylfaen")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0x1a1a1a)
$Checkbox3 = GUICtrlCreateCheckbox("", 8, 64, 17, 17)
GUICtrlSetState(-1, $GUI_ENABLE)
$Label3 = GUICtrlCreateLabel("  Быстрая смена", 25, 67, 120, 14)
GUICtrlSetFont(-1, 9, 800, 0, "Sylfaen")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0x1a1a1a)
$Checkbox4 = GUICtrlCreateCheckbox("", 8, 92, 17, 17)
GUICtrlSetState(-1, $GUI_ENABLE)
$Label4 = GUICtrlCreateLabel("  Zoom + Смена", 25, 93, 120, 14)
GUICtrlSetFont(-1, 9, 800, 0, "Sylfaen")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0x1a1a1a)
$Checkbox5 = GUICtrlCreateCheckbox("", 8, 120, 17, 17)
GUICtrlSetState(-1, $GUI_ENABLE)
$Label5 = GUICtrlCreateLabel("  Прицел", 25, 122, 120, 14)
GUICtrlSetFont(-1, 9, 800, 0, "Sylfaen")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0x1a1a1a)
$Checkbox6 = GUICtrlCreateCheckbox("", 8, 148, 17, 17)
GUICtrlSetState(-1, $GUI_ENABLE)
$Label6 = GUICtrlCreateLabel("  Размер окна", 25, 148, 120, 14)
GUICtrlSetFont(-1, 9, 800, 0, "Sylfaen")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0x1a1a1a)
$Checkbox7 = GUICtrlCreateCheckbox("", 8, 178, 17, 17)
GUICtrlSetState(-1, $GUI_ENABLE)
$Label7 = GUICtrlCreateLabel("  Макрос", 25, 180, 120, 14)
GUICtrlSetFont(-1, 9, 800, 0, "Sylfaen")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0x1a1a1a)
$Checkbox8 = GUICtrlCreateCheckbox("", 8, 213, 17, 17)
GUICtrlSetState(-1, $GUI_ENABLE)
$Label8 = GUICtrlCreateLabel("  Подбор", 25, 215, 120, 14)
GUICtrlSetFont(-1, 9, 800, 0, "Sylfaen")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0x1a1a1a)
$Button1 = GUICtrlCreateButton("В ы х о д", 0, 276, 150, 17)
$Label1 = GUICtrlCreateLabel("  " , 0, 293, 150, 21)
GUICtrlSetFont(-1, 8, 800, 0, "Sylfaen")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0x1a1a1a)
GUICtrlSetState(-1, $GUI_ENABLE)
GUISetBkColor(0x1a1a1a)
GUISetState(@SW_SHOW)
TraySetClick(0)
WinSetTrans($hGui, "", 250)
Opt('GUICloseOnESC', 0)
HotKeySet('{HOME}','_ShowGUI')
GUISetState(@SW_SHOW, $hGui)
$GUI = GUICreate("", 30, 30, 929, 551, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW, $WS_EX_TRANSPARENT, $WS_EX_LAYERED))
GUISetBkColor(0xFF1000)
_WinAPI_SetLayeredWindowAttributes($GUI, 0xFF1000, 0, $LWA_COLORKEY)
GUICtrlCreateLabel("•", 0, 0, 3, 3, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetFont(-1, 48)
GUISetState()
GUISetState(@SW_HIDE, $GUI)
While 1
      $nMsg = GUIGetMsg()
      Switch $nMsg
      Case $GUI_EVENT_CLOSE
      Exit
      Case $Button1
      Exit
      Case $Checkbox1
      If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED Then
      startauto()
      Else
      offauto()
      EndIf
      Case $Checkbox2
      If BitAND(GUICtrlRead($Checkbox2), $GUI_CHECKED) = $GUI_CHECKED Then
      startAutoshoot()
      Else
      offAutoshoot()
      EndIf
      Case $Checkbox3
      If BitAND(GUICtrlRead($Checkbox3), $GUI_CHECKED) = $GUI_CHECKED Then
      startsmena31()
      Else
      offsmena31()
      EndIf
      Case $Checkbox4
      If BitAND(GUICtrlRead($Checkbox4), $GUI_CHECKED) = $GUI_CHECKED Then
      startzoom()
      GUI_Show()
      Else
      offzoom()
      GUI_Hide()
      EndIf
      Case $Checkbox5
      If BitAND(GUICtrlRead($Checkbox5), $GUI_CHECKED) = $GUI_CHECKED Then
      GUI_Show()
      Else
      GUI_Hide()
      EndIf
      Case $Checkbox6
      If BitAND(GUICtrlRead($Checkbox6), $GUI_CHECKED) = $GUI_CHECKED Then
      WinMove("  игра   ","" ,0,0, @DesktopWidth-60,@DeskTopHeight-0)
      Else
      WinMove("  игра   ","" ,+150,0, @DesktopWidth-250,@DeskTopHeight-30)
      EndIf
      Case $Checkbox7
      If BitAND(GUICtrlRead($Checkbox7), $GUI_CHECKED) = $GUI_CHECKED Then

      Else

      EndIf
      Case $Checkbox8
      If BitAND(GUICtrlRead($Checkbox8), $GUI_CHECKED) = $GUI_CHECKED Then

      Else

      EndIf
EndSwitch
If $auto = 1 then
PixelSearch(960,535,250,250,$color)
If Not @error = 1 then
$a = 1
While $a < 2
Call('aug')
$a = $a + 1
WEnd
EndIf
EndIf
If $Autoshoot = 1 then
PixelSearch(950,530,249,249,$color)
If Not @error = 1 then
$i = 1
While $i < 2
Call('clicks')
$i = $i + 1
WEnd
EndIf
EndIf
If $smena31 = 1 then
PixelSearch(960,540,250,250,$color)
If Not @error = 1 then
$q = 1
While $q < 2
Call('smena31')
$q = $q + 1
WEnd
EndIf
EndIf
If $fastzoom = 1 then
PixelSearch(960,540,245,245,$color)
If Not @error = 1 then
$p = 1
While $p < 2
Call('fastzoom')
$p = $p + 1
WEnd
EndIf
EndIf
WEnd
Func aug()
MouseDown("left")
Sleep(150)
MouseUp("left")
EndFunc
Func clicks()
MouseDown("left")
Sleep(12)
MouseUp("left")
EndFunc
Func smena31()
MouseDown("left")
Sleep(12)
MouseUp("left")
Send("{3 5}")
Send("{1 10}")
Sleep(600)
EndFunc
Func fastzoom()
MouseDown('right')
Sleep(35)
MouseUp("right")
MouseDown("left")
Sleep(16)
MouseUp("left")
Send("{3 5}")
Send("{1 10}")
Sleep(600)
EndFunc
Func _ShowGUI()
Switch BitAND(WinGetState($hGui), 2)
Case  2
GUISetState(@SW_HIDE, $hGui)
case 0
GUISetState(@SW_SHOW, $hGui)
EndSwitch
EndFunc
Func GUI_Show()
GUISetState(@SW_SHOWNOACTIVATE, $GUI)
EndFunc
Func GUI_Hide()
GUISetState(@SW_HIDE, $GUI)
EndFunc
Func startAutoshoot()
$Autoshoot = 1
$auto = 0
EndFunc
Func offAutoshoot()
$Autoshoot = 0
EndFunc
Func startsmena31()
$smena31 = 1
EndFunc
Func offsmena31()
$smena31 = 0
EndFunc
Func startzoom()
$fastzoom = 1
EndFunc
Func offzoom()
$fastzoom = 0
EndFunc
Func startauto()
$auto = 1
EndFunc
Func offauto()
$auto = 0
EndFunc
Func _Exit()
Exit
EndFunc

это нужно в него запихать

#NoTrayIcon
#include <Misc.au3>
Opt("MouseClickDelay", 10)
Opt("MouseClickDownDelay", 10)
Opt('GUICloseOnESC', 0)
Global $paused, $t, $hDll
HotKeySet("{F6}", "start")
HotKeySet("{F7}", "pause")
HotKeySet("{F10}", "quit")
Func start()
ToolTip(" МАКРОС ЗАПУЩЕН      ПАУЗА   F7.", 200, 1)
$paused = False
EndFunc
Func pause()
$paused = True
ToolTip("  ПРОДОЛЖИТЬ   F6.", 200, 1)
While $paused = True
Sleep(100)
WEnd
EndFunc
Func macros()
If $t = True Then Return SetError(1, 0, 0)
$t = True
MouseClick("left", Default, Default, Random(1, 1, 1))
MouseClick("left")
MouseClick("left")
Send("{3 5}")
Send("{1 10}")
$t = False
EndFunc
start()
$hDll = DllOpen("user32.dll")
While 1
$lkmpressed = _IsPressed("01", $hDll)
If $lkmpressed Then
macros()
EndIf
WEnd
DllClose($hDll)
Func quit()
Exit
EndFunc

и это тоже в него

Sleep(5000)
Opt("SendKeyDelay", 500)
Local $iKey
For $i = 0 To 9999
$iKey = $i
  While 1
   If StringLen ( $iKey ) > 0 Then ExitLoop
   $iKey = "0"&$iKey
   Sleep(500)
WEnd
Send($iKey)
Sleep(600)
Send("{ENTER}")
Next

помогите кто может очень нужно заранее огромное спасибо

 

[joiner]

во втором коде основная функция macros(). она должна в цикле выполняться или запускаться по чекбоксу?
в третьем коде это тоже отдельная функция , которая выполняется по нажатию элемента?
нужно чуть подробнее объяснить, что к чему привязать и как это должно работать.

Кстати, какой смысл в

$a = 1
            While $a < 2
                Call('aug')
                $a = $a + 1
            WEnd

если цикл рассчитан на один проход?

If $Auto Then
        PixelSearch(960, 535, 250, 250, $color)
        If Not @error Then aug()
    EndIf

 

[Alex58reg]

нужно функцию макрос привязать к чекбоксу макрос и ее цикл должен запускаться по нажатию чекбокса и остановка по его снятию а подбор чисел привязать к чекбоксу подбор и тоже самое
должно работать так когда я ставлю птичку на чекбоксе макрос то должна работать функци макрос тоже самое и с подбором

 

[joiner]

второе окно точно нужно?
проблема возникает с макросом. там эмуляция нажатия мыши . в окне появляется задержка на клик мыши и возможно произвольное закрытие.

 

[Alex58reg]

нет не то функция макрос не должна реагировать на пиксель она должна быть в простое до ее включения и при включении должна реагировать только на лкм то есть поставил птичку на чекбоксе нажал лкм сработала функция макрос отжал лкм все функция остановилась

 

[joiner]

для теста установил клавишу Q вместо лкм.
если оставить лкм, то при установленном чек могут быть срабатывания на однократное нажатие кнопкой мыши. например, в окне программы. что не есть гуд
исправленный код в предыдущем сообщении

 

[Alex58reg]

все равно из того что мне нужно не получается но спасибо за примеры как то же я все это собрал думаю через пару лет и соединить сумею
да и такой вопрос есть кто то кто сможет мой код переписать к примеру в с++