Andrey_A_A
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Artem_Butenko
Код: #include <Timers.au3>
Global $iNum_Time=9, $sText_1='Привет >> ', $sText_2=' << Пока', $sTitle_Time='Сообщение'
$hGui = GUICreate("")
$Timer = _Timer_SetTimer($hGui, 1000, "_UpdateMsgBox")
MsgBox(262144 + 64, $sTitle_Time, $sText_1 & $iNum_Time & $sText_2, $iNum_Time)
_Timer_KillTimer($hGui, $Timer)
Func _UpdateMsgBox($hWnd, $Msg, $iIDTimer, $dwTime)
$iNum_Time-=1
ControlSetText($sTitle_Time, "", "Static2", $sText_1 & $iNum_Time & $sText_2)
EndFunc |
Код: #include <Timers.au3>
Global $iNum_Time=90, $sText_1='=*=*=*=*=*=*='&@CR&' >> ', $sText_2=' << '&@CR&'=*=*=*=*=*=*=*', $sTitle_Time='Сообщение '
$hGui = GUICreate("")
$Timer = _Timer_SetTimer($hGui, 1000, '_UpdateMsgBox')
MsgBox(262144 + 64, $sTitle_Time & $iNum_Time, $sText_1 & $iNum_Time & $sText_2, $iNum_Time)
_Timer_KillTimer($hGui, $Timer)
Func _UpdateMsgBox($hWnd, $Msg, $iIDTimer, $dwTime)
$iNum_Time-=1
ControlSetText($sTitle_Time, '', 'Static2', $sText_1 & $iNum_Time & $sText_2)
ControlSetText($sTitle_Time, '', 'Button1', 'OK (' & $iNum_Time & ')')
WinSetTitle($sTitle_Time, '', $sTitle_Time & $iNum_Time)
EndFunc |
|
