Что нового

можно-ли забиндить на этот скрипт кнопку mouse4?

Yamma

Новичок
Сообщения
6
Репутация
0
Хочу сделать так, чтоб оно работало при зажаитии 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

Сообщение автоматически объединено:

а если это не возможно, скажите как настроить на кнопку "ё"
 
Последнее редактирование:
Автор
Y

Yamma

Новичок
Сообщения
6
Репутация
0
Код:
HotKeySet[/URL]('ё', '_StartEnd')

вы ведь не в китайский свиток смотрите, просто заменить "е" на "ё" и сработает.
ну я же написал, это на включение скрипта, а мне нужно на эту строку If _IsPressed($sKey) Then тоесть мне нужно поменять sKey на ё
 
Верх