例: 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
这就是一个定时提醒的小程序..
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)