HotKeySet('{Esc}', '_Exit')
Global $sDay = @MDAY, $aHourMin[6][3] = [[5],[12, 45],[13, 25],[14, 30],[15, 15],[16, 00]]
AdlibRegister('Show', 1000)
While 1
Sleep(500)
WEnd
Func Show()
If $sDay <> @MDAY Then
$sDay = @MDAY
For $i = 1 To $aHourMin[0][0]
$aHourMin[$i][2] = 0
Next
EndIf
For $i = 1 To $aHourMin[0][0]
If $aHourMin[$i][0] = @HOUR And $aHourMin[$i][1] = @MIN And Not $aHourMin[$i][2] Then
$aHourMin[$i][2] = 1
AdlibUnRegister('Show')
MsgBox(64, 'Info', $aHourMin[$i][0] & ':' & $aHourMin[$i][1])
AdlibRegister('Show', 1000)
EndIf
Next
EndFunc ;==>Show
Func _Exit()
Exit
EndFunc ;==>_Exit