'/* =================================================== ==========================================
'* Scheduled intro reminder. Format: Time | prompt. For details, refer to the example.
'* 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 = ""
■ Region can be modified to start ■
T = T & "|" & "10:00:00 | hello, hi, no! "
T = T & "|" & "11:30:00 | pretty girl, it's almost time! "
T = T & "|" & "14:00:00 | sleepy? When you get sleepy, you can rest. Close the door and be careful when you get a peek. Wow"
T = T & "|" & "16:30:00 | miss a handsome guy, smile ^-^"
T = T & "|" & "17:30:00 | it seems that you are about to get off work. "
T = T & "|" & "18:00:00 | hasn't the handsome guy returned home yet? Quick reminder"
T = T & "|" & "22:30:00 | elder brother, back up the current data. The time is up. "
■ The End of the region that can be modified ■
T = right (T, Len (t)-1)
Do While TX
Wscript. Sleep 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
'Reminder if there is a time difference of one minute and there is no reminder
Msgbox T2 (I + 1)
Used = used & T2 (I )'
End if
Next
End Function