[Время, дата] Обработка события "Изменение системного времени"
- Автор темы snoitaleR
- Дата начала
- Сообщения
- 5,379
- Репутация
- 2,724
Код:
#Include <Date.au3>
#Include <GUIConstantsEx.au3>
#Include <WindowsConstants.au3>
Global $hForm = GUICreate('')
GUIRegisterMsg($WM_TIMECHANGE, 'WM_TIMECHANGE')
Do
Until GUIGetMsg() = -3
Func WM_TIMECHANGE($hWnd, $iMsg, $wParam, $lParam)
Switch $hWnd
Case $hForm
$tTime = _Date_Time_GetLocalTime()
ConsoleWrite(_Date_Time_SystemTimeToDateTimeStr($tTime) & @CR)
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_TIMECHANGE
Автор
snoitaleR
AutoIT Гуру
- Сообщения
- 855
- Репутация
- 223
Yashied
Спасибо... +1
Благодаря твоему примеру, я нашел ошибку в своем...
Оказывается, я не создал GUI...
Думал, зачем мне окно, без него обойдусь...
Но событие без GUI, пусть даже скрытого, не регистрируется...
Вот результат минимализма:
Хотел бы еще уточнить: можно ли нагружать функции, связанные с событиями, какими либо действиями или это может сказаться на стабильности работы операционной системы?
Спасибо... +1
Благодаря твоему примеру, я нашел ошибку в своем...
Оказывается, я не создал GUI...
Думал, зачем мне окно, без него обойдусь...
Но событие без GUI, пусть даже скрытого, не регистрируется...
Вот результат минимализма:
Код:
; НАЧАЛО
GUICreate("")
GUIRegisterMsg(0x1E,"TIMECHANGE")
$TC=false
While true
if $TC then
SplashTextOn("Внимание!","Изменилось системное время",300,50)
Sleep(3000)
SplashOff()
$TC=false
endif
Sleep(100)
Wend
Func TIMECHANGE()
$TC=true
Return "GUI_RUNDEFMSG"
EndFunc
; КОНЕЦХотел бы еще уточнить: можно ли нагружать функции, связанные с событиями, какими либо действиями или это может сказаться на стабильности работы операционной системы?
- Сообщения
- 8,673
- Репутация
- 2,486
snoitaleR [?]
Это ощущается после нескольких лет кодингда, например, когда открываешь свои старые исходники, и понимаешь, что... нифига в них не понятно :laugh:, даже свой собственный код воспринимается как чужой и корявый.
Хотя может быть это только я...
[?]
т.е не должно ничего блокировать подобные функций, и выход из них должен происходить как можно раньше.
Минимализм в программирований не всегда приветствуется ;)
Это ощущается после нескольких лет кодингда, например, когда открываешь свои старые исходники, и понимаешь, что... нифига в них не понятно :laugh:, даже свой собственный код воспринимается как чужой и корявый.
Хотя может быть это только я...
[?]
Не желательно, в справке написано:
т.е не должно ничего блокировать подобные функций, и выход из них должен происходить как можно раньше.
- Сообщения
- 5,379
- Репутация
- 2,724
Re: [Время, дата] Обработка события \"Изменение системного времени\"
Нагружать можно (правда, лучше обойтись без этого), но тормозить нельзя, иначе зависнет программа.
И еще, я заметил, что функция WM_TIMECHANGE может вызываться два раза. Тебе лучше это предусмотреть (если нужно). Например, попробуй изменить дату/время через панель управления...
Добавлено:
Если не хочешь создавать GUI, то можешь повесить hook на скрытое окно AutoIt - AutoItWinGetTitle(), но оно надо...?
snoitaleR сказал(а):
Нагружать можно (правда, лучше обойтись без этого), но тормозить нельзя, иначе зависнет программа.
И еще, я заметил, что функция WM_TIMECHANGE может вызываться два раза. Тебе лучше это предусмотреть (если нужно). Например, попробуй изменить дату/время через панель управления...
Добавлено:
Сообщение автоматически объединено:
snoitaleR сказал(а):
Если не хочешь создавать GUI, то можешь повесить hook на скрытое окно AutoIt - AutoItWinGetTitle(), но оно надо...?
- Сообщения
- 5,379
- Репутация
- 2,724
Это можно пофиксить брутальным способом.
Код:
#Include <Date.au3>
#Include <GUIConstantsEx.au3>
#Include <WindowsConstants.au3>
Global $Timer = 0, $hForm = GUICreate('')
GUIRegisterMsg($WM_TIMECHANGE, 'WM_TIMECHANGE')
Do
Until GUIGetMsg() = -3
Func WM_TIMECHANGE($hWnd, $iMsg, $wParam, $lParam)
Switch $hWnd
Case $hForm
If (Not $Timer) Or (TimerDiff($Timer) > 1000) Then
$tTime = _Date_Time_GetLocalTime()
ConsoleWrite(_Date_Time_SystemTimeToDateTimeStr($tTime) & @CR)
EndIf
$Timer = TimerInit()
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_TIMECHANGE- Сообщения
- 8,673
- Репутация
- 2,486
- Сообщения
- 5,379
- Репутация
- 2,724
Теоретически, это не должно работать, т.к. все сообщения должны помещаться в очередь. Простая задержка ничего не должна изменить, но GUIRegisterMsg() не совсем сообщения системы... И видимо это каким-то образом срабатывает...
- Сообщения
- 8,673
- Репутация
- 2,486
