Jump to content
Sign in to follow this  
James

MouseyKey

Recommended Posts

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

#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

Share this post


Link to post
Share on other sites
jokke

Just a thought...

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


UDF:Crypter a file encrypt / decrypt tool with no need to remember a password again. Based on Caesar cipher using entire ASCII Table.Script's: PixelSearch Helper, quick and simple way to create a PixelSeach.Chatserver - simplified, not so complicated multi-socket server.AutoIT - Firewall, simple example on howto create a firewall with AutoIt.

Share this post


Link to post
Share on other sites
James

#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 :)

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  

×