Что нового

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

Alex58reg

Новичок
Сообщения
41
Репутация
0
ребята есть скрипт точное 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

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
во втором коде основная функция 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
 
Автор
A

Alex58reg

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

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
второе окно точно нужно?
проблема возникает с макросом. там эмуляция нажатия мыши . в окне появляется задержка на клик мыши и возможно произвольное закрытие.
 
Автор
A

Alex58reg

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

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
для теста установил клавишу Q вместо лкм.
если оставить лкм, то при установленном чек могут быть срабатывания на однократное нажатие кнопкой мыши. например, в окне программы. что не есть гуд
исправленный код в предыдущем сообщении
 
Автор
A

Alex58reg

Новичок
Сообщения
41
Репутация
0
все равно из того что мне нужно не получается но спасибо за примеры как то же я все это собрал думаю через пару лет и соединить сумею
да и такой вопрос есть кто то кто сможет мой код переписать к примеру в с++
 
Верх