复制代码 代码如下:
set WshShell = WScript.CreateObject("WScript.Shell")
'对话框标题
alerttitle = "定时提醒"
'提醒内容,vbnewline为换行符
alerttext = vbnewline vbnewline "休息一下，活动一下胳膊，脖子，腰部。" vbnewline vbnewline vbnewline "生命在于运动" vbnewline vbnewline vbnewline
for i = 1 to 12 '12为提醒的次数
WScript.Sleep(1000*60*45) '每45分钟提醒一次
msgbox alerttext,4096,alerttitle
next
将上面代码存为：定时提醒.vbs ，然后双击远行，进程中会有一个wscript.exe的进程，结束后他就不会提醒了。
