1、电脑上面新建一个文本文档。
2、将新建的文本文档重命名成vbs格式的文件,如:多时段弹出提示信息.vbs。(.vbs是文件的后缀名)
3、在重命名的vbs文件上面单击右键,选择“编辑”。
4、输入以下vbs脚本程序,按下【Ctrl+S】保存并关闭。Dim ho, mi, se, xx, xb, ti, st, i, i1, i2, i3,i4On Error Resume Next '忽略运行过程中可能出现的错误i3 = 0 '初始值设置为0DoSet WshShell = CreateObject("Wscript.Shell")st = vbYesNo + vbInformation + vbDefaultButton1 '弹窗提示类型ho = Hour(Now) '小时mi = Minute(Now) '分钟se = Second(Now) '秒钟ti = "温馨提示" '提示的标题xx = "请休息5分钟再工作!" '提示内容xb = "准备下班,赶紧把工作做完!" '提示内容yx = "程序已经启动"If i3<>1 then i3 = 1 i = WshShell.popup(yx, 10, ti, st) '弹窗提示10秒后自动关闭End IfIf (ho = 9 Or ho = 11 Or ho = 15 Or ho = 16) And mi = 30 And se < 5 Then i = WshShell.popup(xx, 10, ti, st) '弹窗提示10秒后自动关闭End IfIf (ho = 11 And mi = 30 And se < 5) Or (ho = 17 And mi = 00 And se < 5) Then i = WshShell.popup(xb, 10, ti, st) '弹窗提示10秒后自动关闭End IfWScript.Sleep 1000Set WshShell = NothingLoop
5、双击vbs文件运行程序。
6、待到指定的时间时,将会弹出相关的提示信息。