Página 1 de 1

Pulsar tecla para parar,pausar.

Publicado: 16 Feb 2009, 11:19
por Socram
Hola, ¿como hago para que cuando se pulse una tecla determinada, el script se pare o se quede en pausa?.

Re: Pulsar tecla para parar,pausar.

Publicado: 16 Feb 2009, 18:03
por timistar
mirate en el archiovo de ayuda el HotKeySet con el ejemplo te sale lo que necesitas

Re: Pulsar tecla para parar,pausar.

Publicado: 21 Jun 2009, 09:36
por adrigalilea
lo cierto es que no me hace eso lo que hace es,, se pausa un seg me muestra el msg y se despausa,,
habre escrito algo mal?

Re: Pulsar tecla para parar,pausar.

Publicado: 22 Jun 2009, 03:09
por Chefito
m_jero tiene razón. El ejemplo de la función HotkeySet hace exactamente lo que pides al darle a la tecla de "pausa".
El código del ejemplo es:

Código: Seleccionar todo

Global $Paused

HotKeySet("{PAUSE}", "TogglePause")

HotKeySet("{ESC}", "Terminate")

HotKeySet("+!d", "ShowMessage")  ;Shift-Alt-d



;;;; Body of program would go here ;;;;

While 1

    Sleep(100)

WEnd

;;;;;;;;



Func TogglePause()

    $Paused = NOT $Paused

    While $Paused

        sleep(100)

        ToolTip('Script is "Paused"',0,0)

    WEnd

    ToolTip("")

EndFunc



Func Terminate()

    Exit 0

EndFunc



Func ShowMessage()

    MsgBox(4096,"","This is a message.")

EndFunc

 
Saludos.