AutoHotkey Community

Time = 2:00 ; time - HH24:MM

T := 86400 - (SubStr(A_Now,-5,2)*60 + SubStr(A_Now,-3,2))*60 + SubStr(A_Now,-1,2) + (RegExReplace(Time,"^[0-9]{1,2}:([0-9]{2})$","$1") + RegExReplace(Time,"^([0-9]{1,2}):[0-9]{2}$","$1")*60)*60

SetTimer, DoSomething, % T*1000 ; DoSomething at "Time"

StringMid,MC,A_Now,11,2
StringMid,HC,A_Now,9,2
DL := (60-MC+(25-HC)*60)*60000
If (A_Hour > 1 And A_Hour < 7)
{
   Shutdown 5
}
Sleep %DL%
Shutdown 5

; Time Registration
#Persistent
#SingleInstance,force

REGISTER_FUTURE:
TNowHour := SubStr(A_Now,-5,2)
TNowMin := SubStr(A_Now,-3,2)
TNowSec := SubStr(A_Now,-1,2)
TNowInSec := ((TNowHour*60 + TNowMin) * 60 + TNowSec)

TParamHour := RegExReplace(timeParam,"^([0-9]{1,2}):[0-9]{2}$","$1")
TParamMin := RegExReplace(timeParam,"^[0-9]{1,2}:([0-9]{2})$","$1")
TParamInSec := (TParamHour*60 + TParamMin) * 60

delayInSec := 0

If (TParamInSec > TNowInSec) {
   ;now : 9u00
   ;to run: 9u05
   ;delay = 5min = 9u05 - 9u00
   delayInSec := TParamInSec - TNowInSec
} else {
   ; now : 9u05
   ; to run: 9u00
   ; delay = 24u - 5min = 86400 sec - (9u05 - 9u00)   
   delayInSec := 86400 - ( TNowInSec - TParamInSec)
}

SetTimer, REGISTER_NOW, % delayInSec*-1000 ; convert to millisec and  make negative to denote only run once
TrayTip, Timer configured, Start in %delayInSec%sec at %TParamHour%:%TParamMin%
;MsgBox Timer configured in: %delayInSec% sec at %TParamHour%:%TParamMin%
return

DISABLE_FUTURE:
SetTimer, REGISTER_NOW, Off
return


REGISTER_NOW:
;add code to be executed at exact time you provided
return

error :=  19:45  ; Invalid - two numbers separated by : operator.
okay  := "19:45" ; Quoted string in an expression.
okay   =  19:45  ; Literal (non-expression) assignment.