]]>С 'SubStr' не знаком
Так а почему бы не познакомиться? Документация в свободном доступе. В данном случае мы берём символы с первого по восьмой из значения переменной A_Now, т. е. год, месяц и число. Далее командой Format форматируем заданное время на случай, если оно задано в виде 9:00 — просто добавляем нули до четырёх знаков. В принципе этот шаг можно было пропустить, если есть уверенность, что время задано в виде 09:00, и просто написать
alarmTime := SubStr(now, 1, 8) . StrReplace(alarmTime, ":") . "00"SetTimer minuteDisplay, 60000
minuteDisplay:
msgbox current minutes: %A_Min%Понятно сразу, что правильно высчитать нужное время и затем уже ждать столько времени.
Почему я не стал этого делать? Быстро на ум пришла простая идея сверки текущего времени по таймеру, который можно настроить как угодно.
Более сложного решения искать уже не стал.
С 'SubStr' не знаком, а с 'Format' имел дело лишь копируя чужой код.
Было бы очень интересно получить комментарии к строкам Вашего кода, точнее только этой строки:
alarmTime := SubStr(now, 1, 8) . Format("{:04}00", StrReplace(alarmTime, ":"))#Persistent
alarmTime = 22:00
now := A_Now
alarmTime := SubStr(now, 1, 8) . Format("{:04}00", StrReplace(alarmTime, ":"))
alarmTime -= now, s
if (alarmTime < 0)
alarmTime := 86400 + alarmTime
SetTimer, Alarm, % alarmTime * 1000
Return
Alarm:
MsgBox, Alarm!
ExitAppесли вдруг, в это определенное время еще исполняется основной код (скрипт не ждет тайминга команды Sleep) - чтобы остановка произошла сражу же после выполнения основного кода
Тут должна ещё обрабатываться ситуация, когда таймер срабатывает во время какого-то циклического действия, и он должен ждать его завершения.
]]>Будет интересно посмотреть на Ваш, возможно более элегантный код...
]]>F2 - кнопка запуска.
TimeWait - время ожидания перед очередной проверкой.
TimeOut - время (час:мин).
F2::
TimeWait := 1000* 60 ; Время между проверкой времени (раз в минуту).
TimeOut = 21:27 ; Время срабатывания.
SetTimer, Alarm, %TimeWait% ; Запускаем таймер.
Return
Alarm:
T := % A_Hour . ":" . A_Min
If (T >= TimeOut)
{
SetTimer, Alarm, Off ; Вырубаем таймер.
MsgBox,8256, Время наступило: %T%, Таймер сработал!
}
ReturnЗа подобный, простой код? Уж больно дорого. Максимальная цена ~100 Руб.
]]>Если нет желания учиться - лучше это забросить сразу.
Почему же, есть коммерческий раздел, где, думаю, за 20-30 евро напишут.
]]>