你是不是也是工作一忙就忘记喝水休息了?想写个小工具来提醒自己,同类的小桌面时钟提醒软件已经很多,实现也很简单,下面就是用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写一个定时提醒休息的脚本
转载注明:https://www.cdcxhl.com/article32/gsjjsc.html
成都网站建设公司_创新互联,为您提供云服务器、全网营销推广、、微信公众号、网站营销、网站建设
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联