使用vbs脚本程序多时段弹出提示信息

1、电脑上面新建一个文本文档。

2、将新建的文本文档重命名成vbs格式的文件，如：多时段弹出提示信息.vbs。（.vbs是文件的后缀名）

3、在重命名的vbs文件上面单击右键，选择“编辑”。

4、输入以下vbs脚本程序，按下【Ctrl+S】保存并关闭。

Dim ho, mi, se, xx, xb, ti, st, i, i1, i2, i3,i4

On Error Resume Next '忽略运行过程中可能出现的错误

i3 = 0  '初始值设置为0

Do

 Set 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 If

 If (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 If

 If (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 If

 WScript.Sleep 1000

 Set WshShell = Nothing

Loop

5、双击vbs文件运行程序。

6、待到指定的时间时，将会弹出相关的提示信息。