Sign in to follow this  
Followers 0
DaProgrammer

Virtual Mouse

5 posts in this topic

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.

#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

Share this post


Link to post
Share on other sites



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.


Share this post


Link to post
Share on other sites

You could make your own 2nd mouse.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0