Hola, podrías ayudarme con un script por favor

Esta sección es para preguntas sobre programación/scripting usando AutoHotkey.

Moderator: Flipeador

Heartxz
Posts: 1
Joined: 20 Dec 2019, 22:54

Hola, podrías ayudarme con un script por favor

Post by Heartxz » 20 Dec 2019, 23:04

Quisiera que me ayudaras con este script que sirve para que el cursor suba por sí solo dependiendo de la velocidad que le asigne pero lo que busco es que el script mientras suba se detenga digamos que a 30 píxeles hacía arriba pero sin perder dicha velocidad. Conozco otro script que me permite subir o bajar el cursor a X píxeles le asigne pero en ese caso el curso llega de tal punto al otro en poco tiempo y lo que trato de decir es que yo quiero que el cursor suba a cierta velocidad que pueda ser cambiada y se detenga al llegar 30 píxeles arriba

Code: Select all

#NoEnv
SendMode Input

~LButton::autofire()
x::suspend

autofire() {

	Loop {
		if GetKeyState("LButton", "P") {
			Sleep 1
			mouseXY(0, -4) ;; 0, -2
		}
			
		else
		break
                }
	} ;; loop
	
} ;; autofire()

mouseXY(x,y) {
	DllCall("mouse_event",uint,1,int,x,int,y,uint,0,int,0)
}

#NoEnv
SendMode Input

devnullsp
Posts: 73
Joined: 21 Nov 2017, 09:00

Re: Hola, podrías ayudarme con un script por favor

Post by devnullsp » 17 Jan 2020, 11:40

perdona, pero muy claro no ha quedado...

A ver si...

"yo quiero que el cursor suba a cierta velocidad que pueda ser cambiada y se detenga al llegar 30 píxeles arriba"

Supongo que velocidad te refieres al número de pixeles a subir y el limite serian 30 pixeles arriba

¿Lo de cambiar la velocidad es usando algunas tecla?

Este escript que te pongo lo hace MANTENIENDO pulsado el boton 3 del ratón pero es facil de cambiar si tu lo quieres sin necesidad de estar pulsando. Además de que es más sencillo :)

Ya me dirás si he acertado ;)

Code: Select all

#NoEnv
CoordMode, Mouse, Screen
GLOBAL velocidad:=2 ; en pixeles
GLOBAL limite:=30   ; en pixeles
GLOBAL pausa:=150   ; en ms
;------ Ctr++ en el teclado numerico para incrementar velocidad
^NumpadAdd::cambia(1)
;------ Ctr-- en el teclado numerico para reducir velocidad
^NumpadSub::cambia(-1)
;----- Ctrl+* en el teclado numerico para salir ---------------------
^NumpadMult::ExitApp
;----- Rutina para el cambio de velocidad ----------------------------
cambia(v){
    velocidad+=v
    ToolTip, %velocidad%
    sleep 750
    ToolTip
}
;----- Mantener pulsado el boton 3 del raton ------------------------
XButton1::
    MouseGetPos, ox,oy 
    max := oy-limite
    while(GetKeyState("XButton1","P"))
	{
        oy := oy-velocidad
        if(oy < max)
            return
        MouseMove, ox, oy
   		sleep %pausa%
	} 
return

Huellamonster
Posts: 2
Joined: 23 Aug 2021, 19:23

Re: Hola, podrías ayudarme con un script por favor

Post by Huellamonster » 23 Aug 2021, 20:11

esta macro sirve para levantar la mira pero solo suve infinitamente me gustaria que al pisar disparar osea LBUTTON O CLICK IZQUIERDO QUE SUBA EL CURSOR Y AL SOLTARLO QUE VAJE AUTOMATICAMENTE AL PUNTO INCIAL DE DONDE COMENSO NESESITO AYUDA QUIERO QUE AL SOLTARLO BAJE DE UN A ASIA EL CENTRO DE LA PANTALLA A SU LUGAR DE INICIO.

Code: Select all

#NoEnv
SendMode Input

_auto := true

~LButton::autofire()
+LButton::_auto := ! _auto
f::suspend
send z::suspend

autofire()
{
global _auto
if _auto
{
Loop
{
if GetKeyState("LButton", "P")
{
Sleep 1
mouseXY(0,-9)
Sleep 1
}
else
break
} ;; loop
} ;; if
} ;; autofire()

mouseXY(x,y)
{
DllCall("mouse_event",uint,1,int,x,int,y,uint,0,int,0)
}

gmoises
Posts: 74
Joined: 18 Nov 2017, 16:43

Re: Hola, podrías ayudarme con un script por favor

Post by gmoises » 01 Sep 2021, 09:52

Podrías pasar un valor a la función, y hacer pruebas para ver que valor te conviene.
Asegúrate de que el valor sea un número entero positivo.

Code: Select all

autofire(Numero) {
	global _auto
	if _auto
	{
		Loop, %Numero%
		{
			if GetKeyState("LButton", "P")
			{
				Sleep 1
				mouseXY(0,-9)
				Sleep 1
			} else
				break
		}
	}
}
También puede ponerse un valor Default:

Code: Select all

autofire(Numero = 10) {
    ...
}
En este caso, pasar el parámetro es opcional y ya tiene un valor para el caso de que se omita

Matii

Re: Hola, podrías ayudarme con un script por favor

Post by Matii » 19 Jan 2022, 16:02

hola alguien me podria pasar un scrip q la mira baje gracias

sofista
Posts: 645
Joined: 24 Feb 2020, 13:59
Location: Buenos Aires

Re: Hola, podrías ayudarme con un script por favor

Post by sofista » 19 Jan 2022, 16:39

Para bajar la mira, reemplaza el número negativo de esta línea

Code: Select all

mouseXY(0,-9)
por otro positivo, por ejemplo

Code: Select all

mouseXY(0,9)

Post Reply

Return to “Pedir Ayuda”