超级厉害的VBS定时提醒脚本 Remind.vbs
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| ''/*========================================================================= ''*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 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于超级厉害的VBS定时提醒脚本 Remind.vbs的所有评论
