vbs倒计时脚本

rem msgbox now 'now is the system para

 

msgbox "倒计时",,"CreatedByXuTao"

dim limit

limit = int(inputbox("输入时间",,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

 

举例脚本（可直接复制至你的vbs文件）

rem msgbox now 'now is the system para

 

msgbox "倒计时",,"CreatedByXuTao"

dim limit

limit = int(inputbox("输入时间",,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