AutoHotkey: Control mouse pointer via keyboard + left/right click + scroll

control-mouse-via-keyboard.ahk

#KeyHistory 0
#NoTrayIcon
#SingleInstance force
#Persistent
SetStoreCapslockMode, off

; Moves the mouse pointer, with a smaller jump if Shift is held.
MouseControl(deltaX, deltaY, regularJump := 60, smallJump := 8) {
  multiplier := regularJump
  if GetKeyState("Shift", "P")
    multiplier := smallJump
  MouseMove, deltaX * multiplier, deltaY * multiplier, 0, R
}

; Disable default Caps Lock handling (it can still be toggled with Ctrl + Caps Lock).
CapsLock::return
LCtrl & CapsLock::Send {CapsLock}

; Mouse control via keyboard
CapsLock & Up::MouseControl(0, -1)
CapsLock & Down::MouseControl(0, 1)
CapsLock & Left::MouseControl(-1, 0)
CapsLock & Right::MouseControl(1, 0)
CapsLock & Enter::Click
CapsLock & BS::Click, right
CapsLock & Home::Send {WheelUp}
CapsLock & End::Send {WheelDown}