vbs实现的定时提醒你休息的脚本

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