VBS计时器_vbs timer

rem msgbox now 'now is the system para
msgbox "Timer",,"CreatedByXuTao"
dim limit
limit = int(inputbox("Set your time in minutes!",,Setting))
dim a,b,c '保证只提醒一次
a=0
b=0
c=0
 
dim cur
cur = 0
 
m = hour(now)*60 + minute(now)
 
while cur<limit
 
cur = hour(now)*60+minute(now) - m
Wscript.sleep 10000
 
if limit-cur=10 and a=0 then
msgbox "10 Minutes Left!",,"Warnning"
a=1
elseif limit-cur=5 and b=0 then
msgbox "5 Minutes Left!",,"Warnning"
b=1
elseif limit-cur=1 and c=0 then
msgbox "1 Minute Left!",,"Warnning"
c=1
end if
 
wend
 
msgbox "Time is up！",,"OVER"