Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для beve

Старожил


Сообщения: 307
Благодарности: 137

Профиль | Отправить PM | Цитировать


Цитата sashadeg:
GuI окно статуса работы скрипта: сколько раз прошел цикл + время и дата »
Вот, твой код:
Код: Выделить весь код
#include <Date.au3>
HotKeySet("{Esc}", "_Exit");нужно чтобы прекратить работу скрипта, если нажать на клавишу Esc
HotKeySet("{PAUSE}", "_Hide");нужно чтобы скрыть из вида gui-окно, нажать на клавишу PAUSE (скрипт будет продолжать свою работу, и счетчик будет работать, чтобы окно появилось вновь нужно нажать на клавишу PAUSE)

$hGui=GUICreate("Count", 188, 90)
GUICtrlCreateLabel("Счетчик запусков: ", 8, 16, 100, 17)
$nCount = GUICtrlCreateLabel("0", 112, 16, 39, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif");только чтоб красивей
GUICtrlSetColor(-1, 0xFF0000);только чтоб красивей

GUICtrlCreateLabel("Время  |  Дата запуска: ", 8, 36, 170, 17)
$Time= GUICtrlCreateLabel(_NowTime()&"  |  "&_NowDate(), 8, 56, 175, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif");только чтоб красивей
GUICtrlSetColor(-1, 0x0000FF);только чтоб красивей

GUISetState(@SW_SHOW)


$sTime = InputBox("время запуска Часы:Минуты","")
$sek = InputBox("","Время выжидания для следующего повторения СЕКУНДЫ")
_ScheduleStart_Proc($sTime & ":00")
Func _ScheduleStart_Proc($sStartTime)
    While 1
        If _NowTime() ==$sStartTime Then Return 1
        Sleep(100)
    WEnd
EndFunc
$i = 0
While 1
GUICtrlSetData($nCount,$i)
Sleep($sek*1000)
$i=$i+1
WEnd
;$i - это число выполненых раз

Func _Exit()
    Exit
EndFunc

Func _Hide()
If Not BitAND(WinGetState($hGui), 2) Then 
    GUISetState(@SW_SHOW, $hGui) 
Else 
GUISetState(@SW_HIDE, $hGui) 
EndIf 
EndFunc

-------
Не в кількості знань полягає освіта, а в повному розумінні і вмілому використанні того, що знаєш.

Это сообщение посчитали полезным следующие участники:

Отправлено: 22:36, 04-05-2009 | #11