Mover el mouse en 8 direcciones con las flechas del teclado
Posted: 21 Mar 2021, 01:29
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