Mover el mouse en 8 direcciones con las flechas del teclado

Esta sección es para compartir scripts, librerías y herramientas.

Moderator: Flipeador

Jamjize
Posts: 7
Joined: 16 Apr 2017, 05:17

Mover el mouse en 8 direcciones con las flechas del teclado

Post by Jamjize » 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

Return to “Scripts y Funciones”