Autoit.ES

Publicado: **03 Jun 2015, 06:06**

Hola,

Soy nuevo en esto y necesito hacer algo muy simple. es muy probable que este en el foro pero tengo muy poco tiempo para verlo.

Lo que necesito es que al momento de apretar un tecla ejemplo la "w" el cursos del maus se dirigía a un lugar especifico y haga un click, y su apretó otra se dirija a otro lugar.

me imagino que es solo un if que esta dentro de un ciclo infinito o un case que este diseñado con las teclas especificas.

cabe destacar que necesito 13 teclas que muevan el maus a 3 lugares diferentes.

Si alguien me puede ayudar

Muchas gracias.

Publicado: **03 Jun 2015, 07:53**

Local $iLoop = 1, $sText = ""
While $iLoop = 1
$sText = InputBox("Ejemplo", "Donde se movera el puntero q o w")

If @error = 1 Then
MsgBox($MB_SYSTEMMODAL, "Error", "You pressed 'Cancel' - try again!")
Else

If $sText <> "q" Then
MouseMove(390, 270)
ElseIf $sText <> "w" Then
MouseMove(600, 600)

Else
$iLoop = 0
EndIf
EndIf
WEnd

Con eso mas o menos se me ocurre pero no quiero que salga el cuadro preguntándome para donde me quiero mover

Como puedo leer las teclas del teclado sin tener que usar InputBox

Publicado: **03 Jun 2015, 16:32**

Hola mira este ejemplo que te escribi.

Presionado w s para moverlo y dar click y con ESC termina el programa.

Código: Seleccionar todo


Global $wX = 0, $wY = 0
Global $sX = @DesktopWidth, $sY = @DesktopHeight



HotKeySet("{ESC}", "Salir")
HotKeySet("w", "PresionW")
HotKeySet("s", "PresionS")

While 1
	Sleep(100)
WEnd

Func PresionW()
MouseClick("right",$wX,$wY)
EndFunc   ;==>PresionW

Func PresionS()
MouseClick("right",$sX,$sY)
EndFunc   ;==>PresionS

Func Salir()
	Exit
EndFunc   ;==>Salir

Saludos

Publicado: **14 Jun 2015, 23:23**

Muchas gracias me sirvió :)

Autoit.ES

Problema muy basico.

Problema muy basico.

Re: Problema muy basico.

Re: Problema muy basico.

Re: Problema muy basico.