ホットキーすり抜け対策（要管理者権限）

; ホットキーすり抜け対策、ただし高負荷時では完全には防げない
; ※BlockInputには管理者権限が必要

#NoEnv
#MaxHotkeysPerInterval 400 ; Default 70
#InstallKeybdHook
#InstallMouseHook
SetBatchLines -1 ; 10

Esc::ExitApp

; ---------------------------------------------------------
#WheelUp::Wheel("WheelUp", 5) ; Win + ホイール回転
#WheelDown::Wheel("WheelDown", 5)
#^WheelUp::Wheel("WheelUp", 20) ; Win + Ctrl + ホイール回転
#^WheelDown::Wheel("WheelDown", 20)

; LWin::F13
; #If GetKeyState("F13")
; WheelUp::Wheel("WheelUp", 5) ; F13 + ホイール回転
; WheelDown::Wheel("WheelDown", 5)
; ^WheelUp::Wheel("WheelUp", 20) ; F13 + Ctrl + ホイール回転
; ^WheelDown::Wheel("WheelDown", 20)
; #If

Wheel(Key, Stroke="") {
    BlockInput On ; 過剰な入力を抑制
    SendInput {%Key% %Stroke%}
    BlockInput Off
    ; Sleep 200 ; 低スペ・高負荷用
}

Wheel2(Key, Stroke="") {
    BlockInput Send ; Send中の過剰な入力を抑制
    SendInput {%Key% %Stroke%}
    BlockInput Default
    ; Sleep 200 ; 低スペ・高負荷用
}

; ---------------------------------------------------------
; 一部のホットキー条件が離れるので可読性が悪くなる

; LWin & WheelUp::Wheel3("WheelUp")
; LWin & WheelDown::Wheel3("WheelDown")

Wheel3(Key) {
    BlockInput On ; 過剰な入力を抑制
    if GetKeyState("Ctrl", "P")
        SendInput {%Key% 20}
    else
        SendInput {%Key% 5}
    BlockInput Off
    ; Sleep 200 ; 低スペ・高負荷用
}