MouseyKey

[James]

Howdy all,

I was bored after my timetable for this part of the day in revising for my R.E exam on Thursday, so I felt like making this. You can move your mouse by pressing the following Number Pad buttons:

2 : Down

4 : Left

5 : Left Click

6 : Right

8 : Up

0 : Right Click

expandcollapse popup

#NoTrayIcon

HotKeySet("{NUMPAD0}", "m0")
HotKeySet("{NUMPAD2}", "m2")
HotKeySet("{NUMPAD4}", "m4")
HotKeySet("{NUMPAD5}", "m5")
HotKeySet("{NUMPAD6}", "m6")
HotKeySet("{NUMPAD8}", "m8")
HotKeySet("^!e", "_exit")

$speed = 20

While 1
    Sleep(100)
Wend

Func m0()
    MouseClick("right")
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 m5()
    MouseClick("left")
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 _exit()
    Exit
EndFunc

I know that when you press the other numbers you get a number, I just dont want to add a function for them to do nothing.

See ya,

Secure

[jokke]

Just a thought...

You could add + to add speed and - to decrease speed

[James]

Alright. I will get back to you on that!

[James]

expandcollapse popup

#NoTrayIcon
#include <Misc.au3>

HotKeySet("{NUMPAD0}", "m0")
HotKeySet("{NUMPAD2}", "m2")
HotKeySet("{NUMPAD4}", "m4")
HotKeySet("{NUMPAD5}", "m5")
HotKeySet("{NUMPAD6}", "m6")
HotKeySet("{NUMPAD8}", "m8")
HotKeySet("^!e", "_exit")

Global $Speed
$Speed = 20

While 1
    Sleep(10)
    If _IsPressed('67') Then $Speed += 10
    If _IsPressed('69') Then $Speed = 10
Wend

Func m0()
    MouseClick("right")
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 m5()
    MouseClick("left")
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 _exit()
    Exit
EndFunc

7 = Speed up

8 = Set Speed to 10, else the keys switch places