mouse control

[cdkid]

this is a little useless script i made when i was bored... mouse control

arrow keys to move mouse, + key on the numpad to click, and \ to right click:

expandcollapse popup

while 1
HotKeySet("{UP}","up")
HotKeySet("{DOWN}","down")
HotKeySet("{LEFT}","left")
HotKeySet("{RIGHT}","right")
HotKeySet("{NUMPADADD}","click")
HotKeySet("\","rclick")
wend

func up()
local $array = MouseGetPos()
    local $x = $array[0]
    local $y = $array[1] - 15
    mousemove($x,$y,2)
endfunc

func down()
    local $array = MouseGetPos()
    local $x = $array[0]
    local $y = $array[1] + 15
    mousemove($x,$y,2)
EndFunc

func left()
    local $array = MouseGetPos()
    local $x = $array[0] - 15
    local $y = $array[1]
    mousemove($x,$y,2)
EndFunc

func right()
    local $array = MouseGetPos()
    local $x = $array[0] + 15
    local $y = $array[1]
    mousemove($x,$y,2)
endfunc

func click()
    mouseclick("left")
EndFunc

Func rclick()
    mouseclick("right")
EndFunc

Edited January 5, 2006 by cdkid

[Orangey]

Simply awesome

[Shinies]

lol i made the same script wen i was bored a little while ago. the clicking is kinda messed up for me tho when i click on icons.

[DJ VenGenCe]

Based on your Code, I added some diagnals to this. Using a standard Keyboard, you can use Home, End, Pgup and Pg Down on an old-style keyboard. I added to the code, + an exit function to use the ESC Key to exit.

Cool idea to feed off. Thanks for the code!

expandcollapse popup

while 1
;normal updownleftright
HotKeySet("{ESC}", "endit")
HotKeySet("{UP}","up")
HotKeySet("{DOWN}","down")
HotKeySet("{LEFT}","left")
HotKeySet("{RIGHT}","right")
;diags
HotKeySet("{HOME}","upleft")
HotKeySet("{END}","downleft")
HotKeySet("{PGUP}", "upright")
HotKeySet("{PGDN}", "downright")


HotKeySet("{NUMPADADD}","click")
HotKeySet("\","rclick")
wend

func up()
local $array = MouseGetPos()
    local $x = $array[0]
    local $y = $array[1] - 15
    mousemove($x,$y,2)
endfunc

func down()
    local $array = MouseGetPos()
    local $x = $array[0]
    local $y = $array[1] + 15
    mousemove($x,$y,2)
EndFunc

func left()
    local $array = MouseGetPos()
    local $x = $array[0] - 15
    local $y = $array[1]
    mousemove($x,$y,2)
EndFunc

func right()
    local $array = MouseGetPos()
    local $x = $array[0] + 15
    local $y = $array[1]
    mousemove($x,$y,2)
endfunc


func upleft()
local $array = MouseGetPos()
    local $x = $array[0] - 15
    local $y = $array[1] - 15
    mousemove($x,$y,2)
endfunc

func downleft()
    local $array = MouseGetPos()
    local $x = $array[0] - 15
    local $y = $array[1] + 15
    mousemove($x,$y,2)
EndFunc

func upright()
local $array = MouseGetPos()
    local $x = $array[0] + 15
    local $y = $array[1] - 15
    mousemove($x,$y,2)
endfunc

func downright()
local $array = MouseGetPos()
    local $x = $array[0] + 15
    local $y = $array[1] + 15
    mousemove($x,$y,2)
endfunc


func click()
    mouseclick("left")
EndFunc

Func rclick()
    mouseclick("right")
EndFunc

func endit()
    exit
EndFunc

[cdkid]

thanks

[cdkid]

only thing i couldnt figure out was how to click & drag....

[TK_Incorperate]

Maybe set a different button to hold mouse, and another button to let the mouse up. For example like this....

HotKeySet("RALT}", "Mdown")
HotKeySet("RCTRL}", "Mup")

Func Mdown()
     MouseDown("left")
EndFunc

Func Mup()
     MouseUp("left")
EndFunc

You only need one control and alt anyways lol, then you just hafta find more keys to use for the right click.

(if you cant tell, this holds down the left mouse button when pressing the right Alt button, and lets go of the left mouse botton when you press the right Ctrl button)

Not sure if this will work because i havent tried it, but in theory it should be perfectly fine.

[w0uter]

why not just send ALT+SHIFT+NUMLOCK

and control it with the keypad.

[TK_Incorperate]

why not just send ALT+SHIFT+NUMLOCK

and control it with the keypad.

Because it's always funner knowing you made it yourself lol

[w0uter]

well ... thats true