‘/*=========================================================================
‘* intro timing reminder, format: time | prompt, specific use method can refer to examples
‘ * FileName Remind.vbs
‘ * Author yongfa365
‘ * Version v1.0
‘ * WEB http://www.yongfa365.com
‘ * Email yongfa365[at]qq.com
‘ * FirstWrite http://www.yongfa365.com/Item/Remind.vbs.html
‘ * MadeTime 2008-06-18 19:26:32
‘ * LastModify 2008-06-18 19:26:32
‘ *==========================================================================*/
tx = True
used = “”
t = “”
The beginning of modifiable region
T = t – “|” & “10:00:00” Hello, hi, it’s a beautiful woman
T = t – “|” & “11:30:00” beauty, it’s time to eat! “
T = t – “|”, “14:00:00” sleepy? Take a rest when you are sleepy. Close the door and watch out for peeping
T = T & “|”, “16:30:00 you want to be a handsome man, smile ^ – ^”
T = t – “|” & “17:30:00 | it seems to be off work. ”
T = T & “|” & “18:00:00” is the handsome guy not home yet? Let’s remind you
T = t – “|” & “22:30:00″ brother, it’s time to back up the current data. ”
End of modifiable region
t = Right(t, Len(t) -1)
Do While tx
WScript.Sleep Once every 10000’10 seconds
tixing()
Loop
Function tixing()
t2 = Split(t, “|”)
For i = LBound(t2) To UBound(t2) step 2
txsj = CDate(Date & ” ” & t2(i))
If DateAdd(“n”, -1, Now) <= txsj And DateAdd(“n”, 1, Now) >= txsj And InStr(used, t2(i)) = 0 Then
‘remind if the time difference is one minute and there is no reminder
MsgBox t2(i + 1)
Used = used & T2 (I) ‘
End If
Next
End Function