你是不是也是工作一忙就忘记喝水休息了？想写个小工具来提醒自己，同类的小桌面时钟提醒软件已经很多，实现也很简单，下面就是用VBScript几分钟写的一个，提示内容随便写的，想私人订制，改改就好了，新建文本复制下面代码保存，后缀改为.VBS双击就可以用了哦……
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
时间： 2024-08-04 08:07:03