No Mouse Today! v0.20
Wanted to do my own variation for a mouse replacement, using the magnificent numpad.
I checked the help page (search for "numpad") and there is a huge script there to do that (>700 lines) and it seemed to be a little too complicated to my taste, and did not work on my computer (dont know if its because it is too old, didnt try to fix it)
This version supports inertia for the mouse movement, for a more convenient use.
So, here is my version.
Code:
;-------------------------------------------------------------------------------
; No Mouse Today! 0.20
; A Numpad Mouse Replacement (for days without a mouse...)
;-------------------------------------------------------------------------------
;
; • Disable Numlock to Activate
; +------------+------------+------------+------------+
; | Numlock | / (Toggle) | * | - |
; | Off | Drag | | Center Win |
; +------------+------------+------------+------------+
; | 7 | 8 | 9 | + |
; | Wheel Up | Up | Navgat Fwd | Right Clik |
; +------------+------------+------------+ |
; | 4 | 5 | 6 | |
; | Left | Click | Right | |
; +------------+------------+------------+------------+
; | 1 | 2 | 3 | Enter |
; | Wheel Down | Down | Navgat Bck | Dbl Click |
; +------------+------------+------------+ |
; | 0 (Hold) | . | |
; | Constant Move Speed | Clockwise | |
; +-------------------------+------------+------------+
; • Hold down Shift while moving for one pixel movement
; • Hold down Alt for 2468 to act like mouse wheel scroll (4 directions)
; • Pressing two movement keys together will move diagonally
; • Pressing Ctrl, Alt or Shift while clicking or mousewheeling works the same
; as with a normal mouse
; • Pressing NumpadDot will move the mouse through the four quarters of the
; screen (clockwise)
;
;-------------------------------------------------------------------------------
#SingleInstance Force
#HotkeyInterval 1000
#MaxHotkeysPerInterval 1000
CoordMode Mouse, Screen
SendMode InputThenPlay ; If not working, try: SendMode Input
; --- GENERAL CONFIGURATION ----------------------------------------------------
ConstantSpeed := 2 ; Pixels to move when Numpad0 is held down
MinSpeed := 1 ; Pixels to move at the beginning of the movement
MaxSpeed := 4 ; Pixels to move at the fastest inertia
Inertia := 0.1 ; How fast should we increase speed (higher=faster, 0=none)
InertiaDelay := 0 ; Number of movements to wait before starting inertia
WheelSleep := 80 ; MSeconds to sleep between wheel sends
; --- KEYBOARD CONFIGURATION ---------------------------------------------------
RightKey := "NumpadRight"
DownKey := "NumpadDown"
UpKey := "NumpadUp"
LeftKey := "NumpadLeft"
ClickKey := "NumpadClear" ; Clear is 5 in the numpad
DoubleClickKey:= "NumpadEnter" ; Double click cn also be done by double tapping the click key
RightClickKey := "NumpadAdd"
ForwardKey := "NumpadPgUp"
BackKey := "NumpadPgDn"
WheelUpKey := "NumpadHome"
WheelDownKey := "NumpadEnd"
CornerKey := "NumpadDel" ; Moves the mouse between the 4 quarters of the screen
CenterKey := "NumpadSub" ; Centers the mouse on the screen
DragKey := "NumpadDiv" ; Toggle to start/stop dragging
ConstantKey := "NumpadIns" ; Hold while moving to ignore inertia
; --- END OF CONFIGURATION -----------------------------------------------------
Menu Tray, NoStandard
Menu Tray, Add, Exit No Mouse Today!, Exit
SysGet ScreenW, 78
SysGet ScreenH, 79
; • Mouse Moves •
Hotkey *%RightKey%, MouseRight
Hotkey *%DownKey%, MouseDown
Hotkey *%UpKey%, MouseUp
Hotkey *%LeftKey%, MouseLeft
Hotkey %ConstantKey%, MouseConstant
; • Mouse Clicks •
Hotkey *%ClickKey%, MouseClickHandler
Hotkey *%ForwardKey%, MouseForward
Hotkey *%BackKey%, MouseBack
Hotkey $*%DoubleClickKey%, MouseDoubleClick
Hotkey $*%RightClickKey%, MouseRightClick
; • Special Functions •
Hotkey $*%DragKey%, MouseDrag
Hotkey $%CenterKey%, CenterMouse
Hotkey $%CornerKey%, CornerMouse
; • Mouse Wheel •
Hotkey *%WheelUpKey%, MouseWheelUp
Hotkey *%WheelDownKey%, MouseWheelDown
Return
;
; This routine handles the 2468 keys: Mouse moves, or mouse wheel emulation
;
MouseMoveHandler:
ControlGetFocus, fcontrol, A
Counter := 0
Loop {
If( GetKeyState( "Alt", "P" ) ) { ; Wheel Emulation through Ctrl+2468
WX := ( GetKeyState( RightKey, "P" ) ? 1 : GetKeyState( LeftKey, "P" ) ? 0 : -1 )
WY := ( GetKeyState( DownKey , "P" ) ? "WheelDown" : GetKeyState( UpKey, "P" ) ? "WheelUp" : -1 )
If( WX<>-1 )
SendMessage, 0x114, %WX%, 0, %fcontrol%, A ; 0x114 is WM_HSCROLL and the 0 after it is SB_LINERIGHT.
If( WY<>-1 )
SendInput {%WY%}
Sleep %WheelSleep%
}
Else { ; Mouse moves
InsPressed := GetKeyState( ConstantKey, "P" )
Speed := InsPressed ? ConstantSpeed : Counter>InertiaDelay ? MinSpeed+(Counter-InertiaDelay)*Inertia : MinSpeed
Speed := Speed > MaxSpeed ? MaxSpeed : Speed
Counter := InsPressed ? 0 : Counter+1 ; Reset Inertia
X := Speed * ( GetKeyState( RightKey, "P" ) ? 1 : GetKeyState( LeftKey, "P" ) ? -1 : 0 )
Y := Speed * ( GetKeyState( DownKey , "P" ) ? 1 : GetKeyState( UpKey, "P" ) ? -1 : 0 )
If( X or Y ) {
MouseMove %X%,%Y%,,R
If( GetKeyState( "Shift" , "P" ) )
Break
}
Else
Break
}
}
Return
;
; This routine handles the 17 keys: mouse wheel
;
MouseWheelHandler:
Loop {
WUp := GetKeyState( WheelUpKey, "P" )
WDn := GetKeyState( WheelDownKey, "P" )
If( WUp ) or ( WDn ) {
SendEvent % GetModifier() . ( WUp ? "{WheelUp}" : "{WheelDown}" )
Sleep %WheelSleep%
}
Else
Break
}
Return
;
; Hotkeys
; These functions are called when the hotkeys are pressed.
; For each one, if the numlock is off, we will emulate mouse functions,
; otherwise, we will echo the pressed key back to the OS.
;
MouseLeft:
If( Not GetKeyState( "Numlock", "T" ) )
Gosub MouseMoveHandler
Else
SendInput % GetModifier() . "{" . LeftKey . "}"
Return
MouseRight:
If( Not GetKeyState( "Numlock", "T" ) )
Gosub MouseMoveHandler
Else
SendInput % GetModifier() . "{" . RightKey . "}"
Return
MouseUp:
If( Not GetKeyState( "Numlock", "T" ) )
Gosub MouseMoveHandler
Else
SendInput % GetModifier() . "{" . UpKey . "}"
Return
MouseDown:
If( Not GetKeyState( "Numlock", "T" ) )
Gosub MouseMoveHandler
Else
SendInput % GetModifier() . "{" . DownKey . "}"
Return
MouseConstant:
If( Not GetKeyState( "Numlock", "T" ) )
Gosub MouseMoveHandler
Else
SendInput % GetModifier() . "{" . ConstantKey . "}"
Return
MouseWheelDown:
If( Not GetKeyState( "Numlock", "T" ) )
Gosub MouseWheelHandler
Else
SendInput % GetModifier() . "{" . WheelDownKey . "}"
Return
MouseWheelUp:
If( Not GetKeyState( "Numlock", "T" ) )
Gosub MouseWheelHandler
Else
SendInput % GetModifier() . "{" . WheelUpKey . "}"
Return
MouseClickHandler:
If( Not GetKeyState( "Numlock", "T" ) )
SendInput % GetModifier() . "{Click}"
Else
SendInput % GetModifier() . "{" . ClickKey . "}"
Return
MouseForward:
If( Not GetKeyState( "Numlock", "T" ) )
SendEvent {XButton2}
Else
SendInput % GetModifier() . "{" . ForwardKey . "}"
Return
MouseBack:
If( Not GetKeyState( "Numlock", "T" ) )
SendEvent {XButton1}
Else
SendInput % GetModifier() . "{" . BackKey . "}"
Return
MouseDoubleClick:
If( Not GetKeyState( "Numlock", "T" ) )
Click 2
Else
SendInput % GetModifier() . "{" . DoubleClickKey . "}"
Return
MouseRightClick:
If( Not GetKeyState( "Numlock", "T" ) )
SendInput % GetModifier() . "{RButton}"
Else
SendInput % GetModifier() . "{" . RightClickKey . "}"
Return
MouseDrag:
If( Not GetKeyState( "Numlock", "T" ) ) {
SendInput % "{LButton " . ( _Drag ? "Up}" : "Down}" )
_Drag := Not _Drag
}
Else
SendInput % GetModifier() . "{" . DragKey . "}"
Return
CenterMouse:
If( Not GetKeyState( "Numlock", "T" ) ) {
WinGetPos X,Y,W,H,A
MouseMove % X+W/2, % Y+H/2
}
Else
SendInput % GetModifier() . "{" . CenterKey . "}"
Return
CornerMouse:
If( Not GetKeyState( "Numlock", "T" ) ) {
MouseGetPos MX, MY
NewX := ( MY < ScreenH/2 ) ? ScreenW/4*3 : ScreenW/4
NewY := ( MX > ScreenW/2 ) ? ScreenH/4*3 : ScreenH/4
MouseMove %NewX%, %NewY%
}
Else
SendInput % GetModifier() . "{" . CornerKey . "}"
Return
GetModifier() {
Return GetKeyState( "Ctrl", "P" ) ? "^" : GetKeyState( "Alt", "P" ) ? "!" : GetKeyState( "Shift", "P" ) ? "+" : ""
}
Exit:
ExitApp
Return
^ESC::ExitApp
Login
Register
FAQ
Search
