VBS计时器

用VBS实现一个以分钟为单位的计时器：

 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=
 b=
 c=

 dim cur
 cur = 

 m = hour(now)* + minute(now)

 while cur<limit

 cur = hour(now)*+minute(now) - m
 Wscript.sleep 

 if limit-cur= and a= then
 msgbox "10 Minutes Left!",,"Warnning"
 a=
 elseif limit-cur= and b= then
 msgbox "5 Minutes Left!",,"Warnning"
 b=
 elseif limit-cur= and c= then
 msgbox "1 Minute Left!",,"Warnning"
 c=
 end if

 wend

 msgbox "Time is up！",,"OVER"