'/*=========================================================================

'*Intro定时提醒，格式：时间|提示语，具体使用方法可以参考例子

'*FileNameRemind.vbs

'*Authoryongfa365

'*Versionv1.0

'*WEBhttp://www.yongfa365.com

'*Emailyongfa365[at]qq.com

'*FirstWritehttp://www.yongfa365.com/Item/Remind.vbs.html

'*MadeTime2008-06-1819:26:32

'*LastModify2008-06-1819:26:32

'*==========================================================================*/

tx=True

used=""

t=""

'■■■■■■■■■■■■■■可修改区域开始■■■■■■■■■■■■■■

t=t&"|"&"10:00:00|hello,hi,是美女不!"

t=t&"|"&"11:30:00|美女，快吃饭了!"

t=t&"|"&"14:00:00|困不困？困了就休息会,注意关门，小心被偷窥哦，哇嘎嘎"

t=t&"|"&"16:30:00|想帅哥了吧，笑一笑^-^"

t=t&"|"&"17:30:00|好像要下班了哦。"

t=t&"|"&"18:00:00|帅哥还没回家？快提醒下"

t=t&"|"&"22:30:00|哥哥，备份当前数据，时间要到了。"

'■■■■■■■■■■■■■■可修改区域结束■■■■■■■■■■■■■■

t=Right(t,Len(t)-1)

DoWhiletx

WScript.Sleep10000'10秒种检测一次

tixing()

Loop

Functiontixing()

t2=Split(t,"|")

Fori=LBound(t2)ToUBound(t2)step2

txsj=CDate(Date&""&t2(i))

IfDateAdd("n",-1,Now)<=txsjAndDateAdd("n",1,Now)>=txsjAndInStr(used,t2(i))=0Then

'时间相差一分钟且没提醒过的的话提醒

MsgBoxt2(i+1)

used=used&t2(i)'提醒过的记录一下

EndIf

Next

EndFunction