Что нового

Элементы GUI Помогите пожалуйста

Alex58reg

Новичок
Сообщения
24
Репутация
0
ребята есть два скрипта нужна помощь в их соединении
Код:
#include "Metro\ModernCheckbox.au3"
#include "Include\GuiCtrlSetImageEx.au3"
#include "Include\GUICtrlOnHover.au3"
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <APIConstants.au3>
#Include <WinAPIEx.au3>
#include <Date.au3>
#include <Misc.au3>
#include <file.au3>

$uiWidth = 350
$uiHeight = 250

Global $Auto = 0, $a, $color = 0xFF0854, $scan = 0

$ui = GUICreate( "UI", $uiWidth, $uiHeight, 1, 1, $WS_POPUPWINDOW, $WS_EX_CONTROLPARENT + $WS_EX_TOOLWINDOW)
GUISetBkColor(0x000000, $ui)

$checkbox_7 = _GUICtrlCreateCheckboxEx(5, 3, 39, 39, 6)
$checkbox_8 = _GUICtrlCreateCheckboxEx(5, 30, 39, 39, 6)

GUICtrlCreateLabel("    Штурмовая", -90, -9, $uiWidth, 60, $SS_CENTER + $SS_CENTERIMAGE, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetFont(-1, 8, 600, Default, "Segoe UI", 5)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, -2)

GUICtrlCreateLabel("    макрос", -90, 20, $uiWidth, 60, $SS_CENTER + $SS_CENTERIMAGE, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetFont(-1, 8, 600, Default, "Segoe UI", 5)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, -2)

HotKeySet('{HOME}','_ShowUI')

While 1
    $msg = GUIGetMsg()
       Switch $msg
        Case $checkbox_7
     _Toggle7($checkbox_7)
             Case $checkbox_8
     _Toggle8($checkbox_8)
EndSwitch

If $auto = 1 then
PixelSearch(960,540,240,240,$color)
If Not @error = 1 then
$a = 1
While $a < 2
Call('aug')
$a = $a + 1
WEnd
EndIf
EndIf
WEnd

  Func _Toggle7($ctrlID)
    If _GUICtrlCheckBoxGetState($ctrlID) = False Then
        _GUICtrlCheckBoxSetState($ctrlID, True)
startauto()
    Else
        _GUICtrlCheckBoxSetState($ctrlID, False)
offauto()
  EndIf
 EndFunc

  Func _Toggle8($ctrlID)
    If _GUICtrlCheckBoxGetState($ctrlID) = False Then
        _GUICtrlCheckBoxSetState($ctrlID, True)

    Else
        _GUICtrlCheckBoxSetState($ctrlID, False)

  EndIf
 EndFunc

Func _ShowUI()
Switch BitAND(WinGetState($ui), 2)
Case  2
GUISetState(@SW_HIDE, $ui)
case 0
GUISetState(@SW_SHOW, $ui)
EndSwitch
EndFunc

Func aug()
MouseDown("left")
Sleep(150)
MouseUp("left")
EndFunc

Func startauto()
$auto = 1
EndFunc

Func offauto()
$auto = 0
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("right", Default, Default, Random(1, 1, 1))
MouseClick("right")
MouseClick("right")
Sleep(600)
Send("{5 5}")
Send("{3 10}")
$t = False
EndFunc
start()
$hDll = DllOpen("user32.dll")
While 1
$lkmpressed = _IsPressed("02", $hDll)
If $lkmpressed Then
macros()
EndIf
WEnd
DllClose($hDll)
Func quit()
Exit
EndFunc

нужно чтобы работало по включению переключателя
Сообщение автоматически объединено:

я так понимаю не можете прикрутить код к коду
 
Последнее редактирование:

joiner

Модератор
Локальный модератор
Сообщения
3 318
Репутация
567
ну вот сам подумай. действующего кода на "три строчки" , красивулек на все сто.
 
Верх