fastkey 键盘代替鼠标动作 autohotkey v2代码

纯键盘操作者福音

ahk2

; 定义全局变量

global mouseMode := true

global speed := 2.0

global moveX := 0

global moveY := 0

; 每10ms执行一次MoveMouse函数，函数定义见最下方

SetTimer MoveMouse, 10

; 绑定hjkl键位，控制鼠标指针的左、下、上、右移动

#HotIf mouseMode ; 此行代码以下的键位绑定要求mouseMode == true

j:: {

    global moveX

    moveX := -10

}

j up:: {

    global moveX

    if (moveX < 0)

        moveX := 0

}

l:: {

    global moveX

    moveX := 10

}

l up:: {

    global moveX

    if (moveX > 0)

        moveX := 0

}

I:: {

    global moveY

    moveY := -10

}

I up:: {

    global moveY

    if (moveY < 0)

        moveY := 0

}

k:: {

    global moveY

    moveY := 10

}

k up:: {

    global moveY

    if (moveY > 0)

        moveY := 0

}

; 设置五级变速，当按住设定的a、s、d、f键位时会改变鼠标移动速度，

; 速度以a s d f递增，我用以下四个单词称呼他们：

; fast, dash, slow, and amble

f:: {

    global speed

    speed := 8.0

}

f up:: {

    global speed

    speed := 2.0

}

d:: {

    global speed

    speed := 4.0

}

d up:: {

    global speed

    speed := 2.0

}

s:: {

    global speed

    speed := 1.0

}

s up:: {

    global speed

    speed := 2.0

}

a:: {

    global speed

    speed := 0.5

}

a up:: {

    global speed

    speed := 2.0

}

; 控制鼠标点击操作

; left click

space:: {

    Click "Down"

}

space up:: {

    Click "Up"

}

; right click

o:: {

    Click 'R'

}

; u，i键绑定鼠标滚轮向上/向下

u:: {

    Click 'WheelUp'

}

N:: {

    Click 'WheelDown'

}

; 使用不常见的键位绑定ctrl+shift+[绑定这个鼠标模式，当按下这个键时，会切换鼠标模式

#HotIf ; 此行代码以下的任何键位绑定不需要任何要求

!space:: {

    global mouseMode

    mouseMode := !mouseMode

}

MoveMouse() {

    global moveX, moveY, mouseMode, speed

    if ((moveX or moveY) and mouseMode) {

        MouseMove(moveX * speed, moveY * speed, 0, "R")

    }

}