VBScript寫一個定時提醒休息的腳本

你是不是也是工作一忙就忘記喝水休息了？想寫個小工具來提醒自己，同類的小桌面時鐘提醒軟件已經很多，實現也很簡單，下面就是用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