Code: Select all

;OPTIMIZACIONES - NO CAMBIAR
#NoEnv
#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
CoordMode, mouse, screen
;OPTIMIZACIONES - NO CAMBIAR

;INICIAMOS GLOBALES - NO CAMBIAR
MouseGetPos, mx, my
global MOUSE_X:=mx ;GUARDAREMOS LA POSICIÓN X DEL MOUSE
global MOUSE_Y:=my ;GUARDAREMOS LA POSICIÓN Y DEL MOUSE
;INICIAMOS GLOBALES - NO CAMBIAR
;/////////////////////////////
;
;        CONFIGURACIONES - CONFIGURABLE
;
;;/////////////////////////////
    global VELOCIDAD := 0.03 ;CUANTOS PIXELES SE MOVERA POR MOVIMIENTO. POSITIVO PARA QUE AVANCE, 0 PARA QUE NO FUNCIONE Y NEGATIVO PARA INVERTIR DIRECCIONES
    global BUCLE := true ;REPETIR AL MANTENER PRESIONADO. DEBE SER "true" o "false"
    global DELAY := 0 ;TIEMPO DE ESPERA PARA EL BUCLE. DEBE SER 0 O MAYOR
;/////////////////////////////
;NO CONFIGURABLE
    mm(x,y){
        if(BUCLE)
            while getkeystate(A_ThisHotKey,"p"){
                MOUSE_X+=x
                MOUSE_Y+=y
                MouseMove, % MOUSE_X, % MOUSE_Y, 0
                sleep, % DELAY
            }
        else{
            MouseMove, % MOUSE_X, % MOUSE_Y, 0
            sleep, % DELAY
        }
        
    }
    a::mm(-VELOCIDAD,0)
    d::mm(VELOCIDAD,0)
    s::mm(0,VELOCIDAD)
    w::mm(0,-VELOCIDAD)
;NO CONFIGURABLE
;/////////////////////////////

Code: Select all

#NoEnv
#SingleInstance Force

SetBatchLines -1
CoordMode Mouse, Screen


Count := 5

i:: Move(0, -Count)
j:: Move(-Count, 0)
k:: Move(0, Count)
l:: Move(Count, 0)

Move(X, Y)
{
    local
    MouseGetPos CX, CY
    MouseMove % CX+X, CY+Y
}

Code: Select all

#NoEnv
#SingleInstance Force

SetBatchLines -1
CoordMode Mouse, Screen


Count := 5

i:: MouseEvent(0, -Count)
j:: MouseEvent(-Count, 0)
k:: MouseEvent(0, Count)
l:: MouseEvent(Count, 0)

MouseEvent(X, Y)
{
    DllCall("User32.dll\mouse_event", "UInt", 1, "Int", X, "Int", Y, "UInt", 0, "Ptr", 0, "Int")
    tickcount := A_TickCount
}