Хочу сделать так, чтоб оно работало при зажаитии MOUSE4
а если это не возможно, скажите как настроить на кнопку "ё"
Код:
#include <Misc.au3>
Opt('MustDeclareVars', 1)
Opt('TrayAutoPause', 0)
Global $aiPauseRandom[2] = [20, 120], _ ;рандомная пауза между MouseClick в этом диапазоне (мсек)
$fClick, _ ;индикатор
$sKey = '5A';z (я русская) ;(см. _IsPressed в справке) при удерживании этой клавиши будет выполняться MouseClick
_WinAPI_LoadKeyboardLayoutEx()
HotKeySet('{Esc}', '_Exit');Esc - выход
HotKeySet('^x', '_StartEnd');Ctrl+x(ч русская) - кликаем или нет. При первом нажатии сочетания - кликаем.
While 1
If $fClick Then
If _IsPressed() Then
Do
MouseClick('primary')
Sleep(Random($aiPauseRandom[0], $aiPauseRandom[1], 1))
Until Not _IsPressed($sKey)
EndIf
Sleep(20)
EndIf
Sleep(100)
WEnd
Func _Exit()
Exit
EndFunc ;==>_Exit
Func _StartEnd()
$fClick = Not $fClick
EndFunc ;==>_StartEnd
Func _WinAPI_LoadKeyboardLayoutEx($sLayoutID = 0x0409, $hWnd = 0)
;~ CreatoR http://autoit-script.ru/index.php/topic,5745.0.html
Local Const $__WM_INPUTLANGCHANGEREQUEST = 0x50
Local $aRet = DllCall('user32.dll', 'long', 'LoadKeyboardLayoutW', 'wstr', Hex($sLayoutID, 8), 'int', 0)
If Not @error And $aRet[0] Then
If $hWnd = 0 Then
$hWnd = WinGetHandle(AutoItWinGetTitle())
EndIf
DllCall('user32.dll', 'ptr', 'SendMessage', 'hwnd', $hWnd, 'int', $__WM_INPUTLANGCHANGEREQUEST, 'int', 1, 'int', $aRet[0])
Return 1
EndIf
Return SetError(1)
EndFunc ;==>_WinAPI_LoadKeyboardLayoutEx
Сообщение автоматически объединено:
а если это не возможно, скажите как настроить на кнопку "ё"
Последнее редактирование: