Virtual Mouse

[DaProgrammer]

Yet another Virtual Mouse

uses Numpad OFC, also shows tooltips and some stuff.

Numpad 1 = Left Mouse Button

Numpad 3 = Right Mouse Button

use these as you would a mouse, supports click drag for both left and right.

Numpad 7 = Decrease Mouse Sensitivity

Numpad 9 = Increase Mouse Sensitivity

Shows ToolTip.

Numpad 5 = Set Mouse Sensitivity to 10 (for fine pointing) or if already at 10 then sets to 50 (for moving fast)

Shows ToolTip.

And OFC 2,4,6,8 to move around.

basicly i made this for my gramps since he's old and is having difficulties using a regular mouse.

so i thought maybe some1 else could also use this.

expandcollapse popup

#include <Misc.au3>
Opt("TrayAutoPause",0)
HotKeySet("{NUMPAD1}", "m1")
HotKeySet("{NUMPAD3}", "m3")

HotKeySet("{NUMPAD2}", "m2")
HotKeySet("{NUMPAD4}", "m4")
HotKeySet("{NUMPAD6}", "m6")
HotKeySet("{NUMPAD8}", "m8")

HotKeySet("{NUMPAD7}", "m7")
HotKeySet("{NUMPAD9}", "m9")
HotKeySet("{NUMPAD5}", "m5")

$speed = 10

While 1
    Sleep(100)
Wend

Func m1()
    HotKeySet("{NUMPAD1}")
    MouseDown("left")
    While _IsPressed(61)
        Sleep(100)
    WEnd
    MouseUp("left")
    HotKeySet("{NUMPAD1}", "m1")
EndFunc

Func m3()
    HotKeySet("{NUMPAD3}")
    MouseDown("right")
    While _IsPressed(63)
        Sleep(100)
    WEnd
    MouseUp("right")
    HotKeySet("{NUMPAD3}", "m3")
EndFunc

Func m2()
$pos = MouseGetPos()
MouseMove($pos[0], $pos[1] + $speed, 1)
EndFunc

Func m4()
$pos = MouseGetPos()
MouseMove($pos[0] - $speed, $pos[1], 1)
EndFunc

Func m6()
$pos = MouseGetPos()
MouseMove($pos[0] + $speed, $pos[1], 1)
EndFunc

Func m8()
$pos = MouseGetPos()
MouseMove($pos[0], $pos[1] - $speed, 1)
EndFunc

Func m7()
    $speed = $speed - 1
    TrayTip("Virtual Mouse","You have set the mouse sensitivity to: " & $speed & " Pixels",3)
EndFunc

Func m9()
    $speed = $speed + 1
    TrayTip("Virtual Mouse","You have set the mouse sensitivity to: " & $speed & " Pixels",3)
EndFunc

Func m5()
    If $speed = 10 Then
        $speed = 50
    Else
        $speed = 10
    EndIf
    TrayTip("Virtual Mouse","You have set the mouse sensitivity to: " & $speed & " Pixels",3)
EndFunc

[ashley]

Shame this dont make a new mouse... if it did it would be real handy for macros.

[DaProgrammer]

  ashley said:

Shame this dont make a new mouse... if it did it would be real handy for macros.

do u mean like 2 mouses on screen ? couse as far as i know windows does not support that.

[JustinReno]

You could make your own 2nd mouse.

[BananaFredSoft]

What's wrong with MouseKeys?