Mover el mouse en 8 direcciones con las flechas del teclado

[Jamjize]

Code: Select all

;Optimizar el código para una respuesta rápida
#NoEnv
#SingleInstance, Force
#MaxHotkeysPerInterval 99000000
#HotkeyInterval 99000000
#KeyHistory 0
ListLines Off
Process, Priority, , A
SetBatchLines, -1
SetKeyDelay, -1, -1
SetMouseDelay, -1
SetDefaultMouseSpeed, 0
SetWinDelay, -1
SetControlDelay, -1
SendMode Input
SetWorkingDir %A_ScriptDir%
CoordMode Mouse, Screen

Mover = 90 ;Cuanto se moverá el Mouse.

Enter::MouseGetPos CX, CY ;Al presionar enter, se guarda la posición inicial del mouse.

Left::
Right::
Up::
Down::
;Si alguna tecla de dirección se presiona, el mouse se mueve en esa dirección, si se suelta, el mouse regresa a su posición inicial (CX, CY)
loop{
	MouseMove, X := GetKeyState("left","P") ? CX-Mover : GetKeyState("right","P") ? CX+Mover : CX, Y := GetKeyState("up","P") ? CY-Mover : GetKeyState("down","P") ? CY+Mover : CY
}Until X=CX && Y=CY
return

Esc::ExitApp