键盘鼠标

#NoEnv
; =======================================
; 单击 CapsLock 键切换键盘鼠标模式
; 长按 CapsLock 键切换大写锁定模式
; =======================================
$CapsLock::
	KeyWait, CapsLock, T.4
	if ErrorLevel
	{
		KeyWait, CapsLock
		if (A_PriorKey == "CapsLock")
		{
			SetCapsLockState, % GetKeyState("CapsLock", "T") ? "Off" : "On"
			ToolTip, % "大写锁定: " . (GetKeyState("CapsLock", "T") ? "开启" : "关闭"), , , 13
			SetTimer, RemoveToolTip, 1000
		}
	}
	else
	{
		KeyWait, CapsLock
		MouseMode := !MouseMode
		ToolTip, % "键盘鼠标模式: " . (MouseMode ? "开启" : "关闭"), , , 13
		SetTimer, RemoveToolTip, 1000
	}
return

; =========================================================
; 键盘鼠标模式开启、或者按住 CapsLock 键时，有如下快捷键：
; =========================================================
; w: 向上移动光标
; a: 向左移动光标
; s: 向下移动光标
; d: 向右移动光标
; j: 发送鼠标左键
; k: 发送鼠标右键
; =========================================================
; 需要更多快捷键的话自己添加到下面两个 #If 之间……
; =========================================================
#If MouseMode Or GetKeyState("CapsLock", "P")
j::LButton
k::RButton
w::MoveCursor("w")
a::MoveCursor("a")
s::MoveCursor("s")
d::MoveCursor("d")
F12::Reload
#If


MoveCursor(dir, speed := 1)
	{
		loop
		{
			if (A_Index