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*60) '每1分钟提醒一次
msgbox alerttext,4096,alerttitle
next