九乡新闻网诛仙青云志59:定时提醒
来源：百度文库 编辑：九乡新闻网 时间：2024/07/07 11:12:29
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
'对话框标?
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