Автоматизация Помогите со скриптом

[Alex58reg]

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

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]

Как вариант. возможно)
Замечание, код нужно брать в теги. выделяем строки и жмем кнопку на панели редактора - </>

Спойлер

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt('SendKeyDelay', 500)
Global $iStop
Global $Form1 = GUICreate('Form1', 271, 97, 671, 370)
Global $Checkbox1 = GUICtrlCreateCheckbox('Checkbox1', 40, 40, 97, 17)
GUISetState()
GUIRegisterMsg($WM_SYSCOMMAND, 'WM_SYSCOMMAND')
GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')

While Sleep(10)
    If $iStop Then _Send()
WEnd

Func _Send()
    ConsoleWrite('begine' & @LF)
    Sleep(500)
    Local $iKey
    For $i = 0 To 9999
        $iKey = $i
        While 1
            If Not $iStop Then Return ConsoleWrite('Exit 1' & @LF)
            If StringLen($iKey) > 0 Then ExitLoop
            $iKey = '0' & $iKey
            Sleep(500)
        WEnd
        If Not $iStop Then Return ConsoleWrite('Exit 2' & @LF)
        Send($iKey)
        Sleep(600)
        Send('{ENTER}')
    Next
    $iStop = Not $iStop
EndFunc   ;==>_Send

Func WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
    Local $nID = BitAND($wParam, 0x0000FFFF)
    If $nID = $Checkbox1 Then $iStop = Not $iStop
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_COMMAND


Func WM_SYSCOMMAND($hWnd, $Msg, $wParam, $lParam)
    Local $iID = BitAND($wParam, 0xFFFF)
    If $iID = 61536 Then Exit
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_SYSCOMMAND

 

[Alex58reg]

спасибо а можно еще другой сделать тоже на чекбокс а не на хоткей
вот скрипт паузу вообще убрать просто вкл и выкл

#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

 

[joiner]

основная функция в коде - macros()
она должна в цикле выполняться? то есть, пока не остановим