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

[romanzko]

Всем привет!
Как бесконечно крутить колесо мышки вниз по старту клавиши клавиатуры "1" и по нажатию клавиши "2" останавливать?

 

[ra4o]

Попробуйте так (без 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

 

[romanzko]

Попробуйте так (без 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пасибо! Работает.