Что нового

Прокрутка колесика мышки по горячей клавише

romanzko

Новичок
Сообщения
11
Репутация
0
Всем привет!
Как бесконечно крутить колесо мышки вниз по старту клавиши клавиатуры "1" и по нажатию клавиши "2" останавливать?
 

ra4o

AutoIT Гуру
Сообщения
1 101
Репутация
222
Попробуйте так (без HotKey):
Код:
#include <Misc.au3>

Local $hDLL = DllOpen("user32.dll")

While 1
    If _IsPressed("31", $hDLL) Then
        ConsoleWrite("_IsPressed - Нажата клавиша 1." & @CRLF)
        ; Цикл ожидания, пока клавиша не будет отпущена.
        While _IsPressed("31", $hDLL)
            Sleep(250)
        WEnd
        ConsoleWrite("_IsPressed - Отпущена клавиша 1." & @CRLF)
        _MouseWheel()
    ElseIf _IsPressed("1B", $hDLL) Then
        MsgBox(4096, "_IsPressed", "Нажата клавиша Esc, поэтому скрипт завершает работу.")
        ExitLoop
    EndIf
    Sleep(250)
WEnd

DllClose($hDLL)

Func _MouseWheel()
    While 1
        If _IsPressed("32", $hDLL) Then
            ConsoleWrite("_IsPressed - Нажата клавиша 2." & @CRLF)
            ; Цикл ожидания, пока клавиша не будет отпущена.
            While _IsPressed("32", $hDLL)
                Sleep(250)
            WEnd
            ConsoleWrite("_IsPressed - Отпущена клавиша 2." & @CRLF)
            ExitLoop
        EndIf

        MouseWheel("down", 1)
        Sleep(50)
    WEnd
EndFunc   ;==>_MouseWheel
 
Автор
R

romanzko

Новичок
Сообщения
11
Репутация
0
Попробуйте так (без HotKey):
Код:
#include <Misc.au3>

Local $hDLL = DllOpen("user32.dll")

While 1
    If _IsPressed("31", $hDLL) Then
        ConsoleWrite("_IsPressed - Нажата клавиша 1." & @CRLF)
        ; Цикл ожидания, пока клавиша не будет отпущена.
        While _IsPressed("31", $hDLL)
            Sleep(250)
        WEnd
        ConsoleWrite("_IsPressed - Отпущена клавиша 1." & @CRLF)
        _MouseWheel()
    ElseIf _IsPressed("1B", $hDLL) Then
        MsgBox(4096, "_IsPressed", "Нажата клавиша Esc, поэтому скрипт завершает работу.")
        ExitLoop
    EndIf
    Sleep(250)
WEnd

DllClose($hDLL)

Func _MouseWheel()
    While 1
        If _IsPressed("32", $hDLL) Then
            ConsoleWrite("_IsPressed - Нажата клавиша 2." & @CRLF)
            ; Цикл ожидания, пока клавиша не будет отпущена.
            While _IsPressed("32", $hDLL)
                Sleep(250)
            WEnd
            ConsoleWrite("_IsPressed - Отпущена клавиша 2." & @CRLF)
            ExitLoop
        EndIf

        MouseWheel("down", 1)
        Sleep(50)
    WEnd
EndFunc   ;==>_MouseWheel
Cпасибо! Работает.
 
Верх