'/*=========================================================================
'*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
【超级厉害的VBS定时提醒脚本 Remind.vbs】相关文章：
★ vbs脚本大全，配有实例 DOS命令，批处理 脚本 代码
★ 百度空间备份脚本baidublogbak.vbs代码分析