Помогите плис!
Розставте у меня на скрипте HotKeySet
Чтобы на f5 активировалсяскрипт на f6 выключался!
Розставте у меня на скрипте HotKeySet
Чтобы на f5 активировалсяскрипт на f6 выключался!
Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Макрос by Romuk", 199, 180, 859, 277)
GUISetBkColor(0xFFFFFF)
$Input1 = GUICtrlCreateInput("50", 8, 120, 185, 21)
$Button1 = GUICtrlCreateButton("Запуск", 8, 149, 185, 25)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label1 = GUICtrlCreateLabel("Макрос by Romuk", 0, 0, 199, 41)
GUICtrlSetFont(-1, 16, 800, 0, "Segoe Print")
GUICtrlSetColor(-1, 0x000000)
$Input2 = GUICtrlCreateInput("3", 8, 72, 73, 21)
$Input3 = GUICtrlCreateInput("1", 120, 72, 73, 21)
$Label2 = GUICtrlCreateLabel("Seed", 80, 96, 41, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Функция №1", 8, 48, 80, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Функция №2", 120, 48, 80, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
#include <Misc.au3>
Opt("SendKeyDownDelay", 50)
$dll = DllOpen("user32.dll")
While 1
Sleep(GUICtrlRead($Input1))
If _IsPressed('01', $dll) Then
Sleep(GUICtrlRead($Input1))
Send(GUICtrlRead($Input2))
Sleep(GUICtrlRead($Input1))
Send(GUICtrlRead($Input3))
EndIf
WEnd
EndSwitch
WEnd