vbs脚本中怎么中止一段时间?

你想通过此方法限时？这个你可以提取时间点的纯数字部分，同时，你需要网络时间吧？网络时间也提取纯数字，然后对比网络时间处理后的数字是否小鱼截止时间并大于起始时间。望采纳

dim fso,fa,fb,fc,k
set fso=createobject("scripting.filesystemobject")
if fso.fileexists("d:\tempa.txt") then
m=1
else
m=0
end if
if m=0 then'初始化
set fa=fso.createtextfile("d:\tempa.txt")
set fb=fso.createtextfile("d:\tempb.txt")
set fc=fso.createtextfile("d:\tempc.txt")
fa.write(date)
fb.write(date)
fc.write("1")
fa.close
fb.close
fc.close
end if'初始化
set fc=fso.opentextfile("d:\tempc.txt",1)'控制写入与否
m=cint(fc.readline)
fc.close
set fc=fso.createtextfile("d:\tempc.txt")
fc.write(-m)
fc.close
'控制写入与否
set fcr=fso.opentextfile("d:\tempc.txt",1)
if cint(fcr.readline)=1 then'每次只存入一个
set fa=fso.createtextfile("d:\tempa.txt")
fa.write(date)
fa.close
else
set fb=fso.createtextfile("d:\tempb.txt")
fb.write(date)
fb.close
end if
set fa=fso.opentextfile("d:\tempa.txt",1)'读取上次
set fb=fso.opentextfile("d:\tempb.txt",1)'读取本次
a=fa.readline
b=fb.readline
if abs(datediff("d",a,b))>=30 then'取日期差
msgbox "大于30天了"
wscript.quit
else
msgbox "小于30天"
end if

---------------------------------------------
编了一下午，终于编出