Выход по нажатию

[Nihau]

Есть цикл
do
...
while
как сделать выход из цикла при нажатии к примеру f5 ?

 

[skype4com]

HotKeySet ( "{f5}" ,"Exit")

; что то делаем)

Func Exit()
    Exit
EndFunc

 

[snoitaleR]

Nihau
Мой вариант...

; НАЧАЛО

 GUICreate("Акселераторы")

 $DUMMY=GUICtrlCreateDummy()

 Dim $AccelKeys[1][2]=[["{F5}",$DUMMY]]
 GUISetAccelerators($AccelKeys)

 GUISetState()

 While True

  Switch GUIGetMsg()
   Case $DUMMY
    ExitLoop
  EndSwitch

  Sleep(100)

 WEnd

 MsgBox(0,"","Цикл завершен...")

; КОНЕЦ

 

[Yashied]

skype4com

как сделать выход из цикла при нажатии к примеру f5 ?

Nihau

Цикла Do...While не существует.

#Include <Misc.au3>

While ...
	If _IsPressed('74') Then
		ExitLoop
	EndIf
	...
WEnd

или

#Include <Misc.au3>

Do
	...
Until _IsPressed('74')

 

[Nihau]

мой провал, перепутал until \ while
#Include <Misc.au3>

Do
...
Until _IsPressed('74')
оно, его и хотелось.

 

[DOZOMIGAMIUS]

HotKeySet ( "{f5}" ,"Exit")

; что то делаем)

Func Exit()
    Exit
EndFunc

А ето работает?

 

[Garrett]

DOZOMIGAMIUS [?]

А ето работает?

Нет. Потому как Exit зарезервированное слово!
Так работает:

HotKeySet ( "{f5}" ,"_Exit")

While 1
	ToolTip("Делаем что-то!", @DesktopWidth/2, @DesktopHeight/2)
WEnd
Func _Exit()
    Exit
EndFunc