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盘系统的启动项里。这样就会在你设定的时间里定时启动该窗体。
如图：
