制作定时提醒的小贴士

set WshShell = WScript.CreateObject("WScript.Shell")
'对话框标题
alerttitle = "定时提醒"
'提醒内容,vbnewline为换行符
for i = 1 to 20 '20为提醒的次数
 WScript.Sleep(1000*60*45) '每45分钟提醒一次

alerttext =  vbnewline & vbnewline &"当前日期:"&Date&vbnewline & vbnewline &"当前时间:"&Time &vbnewline & vbnewline & "工作辛苦！" & vbnewline & vbnewline &"休息一下，活动一下胳膊，脖子，腰部！" & vbnewline & vbnewline & vbnewline & "生命在于运动！"& vbnewline & vbnewline& vbnewline

 msgbox alerttext,4096,alerttitle
next

将上述内容复制下来，粘贴在一个文本里，保存后更改扩展名*.vbs,然后将该文件放到c盘系统的启动项里。这样就会在你设定的时间里定时启动该窗体。
如图：

转载于:https://www.cnblogs.com/yan2007/archive/2008/04/17/1158353.html