健康天使

将下面的代码保存到启动文件夹下，取名为“健康天使.vbs”实现从电脑启动后，每隔45分钟弹出窗口提示休息一下^_^

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