serzh82saratov, По указанной ссылке - я нашел скрипт:
#SingleInstance Force
#NoEnv
Times := ["01:00","00:59:50"]
NewTimer(Times)
Return
NewTimer(Arr) {
For k, value in Arr
odds := DifferenceTime(value)
, (!Min || Min > odds)
&& (Min := odds, Time := value)
hFunc := Func("Timer").Bind(Time, Arr)
SetTimer, % hFunc, % -Min
TrayTip, % "Следующий в:", % "`n" Time "`n`nЧерез:`n`n" FormatTime(Min)
}
Timer(Time, List) {
MsgBox, , , % Time, 1
NewTimer(List)
}
DifferenceTime(Time) {
T := StrSplit(Time, ":")
Time := Time2 := A_YYYY A_MM A_DD T[1] T[2] (T[3] ? T[3] : "00")
EnvSub, Time, A_Now, Second
Time := (Time * 1000) - A_MSec
If Time >= 0
Return Time
Time2 += 1, days
EnvSub, Time2, A_Now, Second
Return (Time2 * 1000) - A_MSec
}
FormatTime(Time) {
Rest := Mod(Time, 3600000)
Hours := Format("{:02}", Time // 3600000)
Min := Format("{:02}", Rest // 60000)
Sec := Format("{:02}", Mod(Rest, 60000) // 1000)
MSec := Format("{:03}", Mod(Rest, 1000))
Return Hours ":" Min ":" Sec "," MSec
}
А как его запустить-то ?
Я щелкаю по скрипту - ничего не происходит.
И в трее ничего не появляется.