MsgBox "start timer"
While True
str = GetTimeStr
Select Case GetTimeStr
Case "10:00" MsgBox str
Case "11:00" MsgBox str
Case "12:00" MsgBox str
Case "14:30" MsgBox str
Case "15:30" MsgBox str
Case "16:30" MsgBox str
Case "17:30" MsgBox str
Case "20:30" MsgBox str
Case "21:30" MsgBox str
Case "22:30" MsgBox str
Case "23:15" MsgBox str
End Select
WScript.Sleep 1000*60
Wend
Function GetTimeStr()
GetTimeStr = Add0(Hour(Now)) & ":" & Add0(Minute(Now))
End Function
Function Add0(i)
If i<10 Then
Add0 = 0&i
Else
Add0 = i
End If
End Function