VBScript写一个定时提醒休息的脚本
你是不是也是工作一忙就忘记喝水休息了?想写个小工具来提醒自己,同类的小桌面时钟提醒软件已经很多,实现也很简单,下面就是用VBScript几分钟写的一个,提示内容随便写的,想私人订制,改改就好了,新建文本复制下面代码保存,后缀改为.VBS双击就可以用了哦……
成都创新互联公司主要从事成都做网站、成都网站制作、成都外贸网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务平顺,十多年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:13518219792
option explicit on error resume next dim interval,delayTime,WshShell,i dim context,Time interval = inputbox("请输入提醒的时间间隔(单位/分钟):","输入:",30) if interval="" or IsNull(interval) then interval=30 end if delayTime=interval*60000 set WshShell = WScript.CreateObject("WScript.Shell") context = vbnewline &"你已连续工作"&interval&"分钟"& vbnewline & "休息一下,动动胳膊,伸伸腿……" & vbnewline & vbnewline '提醒次数12 for i = 1 to 12 WScript.Sleep(delayTime) Time=Hour(now)&":"&Minute(now)&":"&Second(now) if i<=2 then context ="现在时间:" &Time &" ,你已连续工作"&interval*i&"分钟。" &vbnewline & vbnewline & "休息一下,动动胳膊,伸伸腿……" & vbnewline & vbnewline call PopupShowStr(context) elseif i<=5 and i>=3 then context ="现在时间:" &Time &" ,你已连续工作"&interval*i&"分钟。" &vbnewline & vbnewline & "喝杯水,眼睛休息下咯……" & vbnewline & vbnewline call PopupShowStr(context) elseif i<=8 and i>=6 then context ="现在时间:" &Time &" ,你已连续工作"&interval*i&"分钟。" &vbnewline & vbnewline & "是不是觉得肩膀酸痛,眼睛干涩?是,还不休息下……" & vbnewline & vbnewline call PopupShowStr(context) elseif i<=12 and i>=9 then context ="现在时间:" &Time &" ,你已连续工作"&interval*i&"分钟。" &vbnewline & vbnewline & "哎,健康是自己的,你看着办吧……" & vbnewline & vbnewline call PopupShowStr(context) end if next '定义一个弹出框显示文本内容的函数 Function PopupShowStr(string) Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") '将文本内容显示在弹出框中 call WshShell.Popup(string,0,"定时提醒:") End Function
分享题目:VBScript写一个定时提醒休息的脚本
文章起源:http://pwwzsj.com/article/gsjjsc.html