How to break a while 1 loop by pushing a button

[bittware]

Hello Experts,

Can I break a loop as this by pushing a button?

This infinite loop has already been inside OnEvent While 1 loop.

Thanks for any comments.

While 1
;doing some period stuff here
Sleep(10000)
WEnd

BRs,

bittware

Edited July 21, 2010 by bittware

[adik2dmax666]

You can use hotkeyset to trigger functions by a press of a button!

; Press Esc to terminate script, Pause/Break to "pause"

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("+!d", "ShowMessage")  ;Shift-Alt-d

;;;; Body of program would go here ;;;;
While 1
;doing some period stuff here
Sleep(10000)
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

Edited July 21, 2010 by adik2dmax666

[AdamGreenough]

Or you could try using _IsPressed( $Hex_Key )

#Include <Misc.au3>

While 1

  If _IsPressed ( '0D' ) Then ;If enter is pressed...
    Msgbox ( 0, 'Title', 'Exiting Loop...' )
    Exitloop
  EndIf

  Sleep ( 2000 )

WEnd

Edited July 21, 2010 by AdamGreenough

[Melba23]

bittware,

Perhaps this tutorial in the Wiki might help?

Please let me know you think of it.

M23