如何使用VBS实现定时提醒脚本 |
您所在的位置:网站首页 › vbs定时器 › 如何使用VBS实现定时提醒脚本 |
如何使用VBS实现定时提醒脚本
发布时间:2021-10-12 11:13:43
来源:亿速云
阅读:198
作者:小新
栏目:开发技术
这篇文章主要介绍如何使用VBS实现定时提醒脚本,文中介绍的非常详细,具有一定的参考价值,感兴趣的小伙伴们一定要看完! '/*========================================================================= ' * Intro 定时提醒,格式:时间|提示语,具体使用方法可以参考例子 ' * 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 = "" '■■■■■■■■■■■■■■可修改区域开始■■■■■■■■■■■■■■ 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) Do While tx WScript.Sleep 10000'10秒种检测一次 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 InStr(used, t2(i)) = 0 Then '时间相差一分钟且没提醒过的的话提醒 MsgBox t2(i + 1) used = used & t2(i)'提醒过的记录一下 End If Next End Function 以上是“如何使用VBS实现定时提醒脚本”这篇文章的所有内容,感谢各位的阅读!希望分享的内容对大家有帮助,更多相关知识,欢迎关注亿速云行业资讯频道! 推荐阅读: VBScript写一个定时提醒休息的脚本 android service实现循环定时提醒功能免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:[email protected]进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。 vbs 上一篇新闻:js变量有哪些提升 下一篇新闻:如何理解Go里面的sync.Map 猜你喜欢 网站服务器租用价格为什么不同 网站服务器租用要注意什么 服务器硬件配置选择要注意什么 服务器虚拟化技术有哪些类型 web服务器配置怎么根据业务选择 免费香港空间建站有哪些优势 网站使用香港服务器加速cdn有哪些好处 香港主机服务商选择要注意哪些事项 服务器免费试用要注意什么 vps和云服务器区别是什么 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |