Что нового

как закрыть скрипт нажатием "Esk"

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
iamOmg,
Код:
$sText = 'Press Esc to exit'
$iCount = 0
HotKeySet('{Esc}', '_Exit')
While 1
	$iCount += 1
	ToolTip($iCount & @LF & $sText, 0, 0)
	Sleep(500)
WEnd

Func _Exit()
	Exit
EndFunc   ;==>_Exit
Или
Код:
#include <Misc.au3>

$sText = 'Press Esc to exit'
$iStart = TimerInit()
While 1
	If TimerDiff($iStart) >= 1000 Then
		$sTime = @MDAY & '.' & @MON & '.' & StringRight(@YEAR, 2) & '  ' & @HOUR & ':' & @MIN & ':' & @SEC
		ToolTip($sTime & @LF & $sText, 0, 0)
		$iStart = TimerInit()
	EndIf
	If _IsPressed('1B') Then Exit
	Sleep(20)
WEnd
 
Верх