#include <GUIConstantsEx.au3>
#Include <Timers.au3>
Global $win_main, $mem_label,$time1
$time=4000
$time1=$time/1000
$win_main = GUICreate("Таймера на "&$time1&" секунды", 300, 100, -1, -1)
GUISetState(@SW_SHOW)
$mem_label = GUICtrlCreateLabel('0', 15, 25, 280, 20)
GUICtrlSetFont (-1,15) ; размер шрифта 15
GUICtrlSetColor($mem_label,0xEE0000) ; цвет шрифта красный
_Timer_SetTimer($win_main, $time, '_Update_mem')
$SECORIG=@SEC ; зафиксировали время
For $i=1 To 60
Sleep(500)
$SEC=@SEC
If $SEC < $SECORIG Then $SEC +=60
$SEC1=$time1 - $SEC + $SECORIG
GUICtrlSetData($mem_label, $SEC1)
If $SEC1 = 0 Then ExitLoop
Next
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
;If $SEC1 = 0 Then ExitLoop
WEnd
Func _Update_mem($hWnd, $Msg, $iIDTimer, $dwTime)
ShellExecute("Notepad.Exe")
GUICtrlSetData($mem_label, StringFormat("%02d:%02d:%02d", @HOUR, @MIN, @SEC))
EndFunc |
