子程序结束,回到调用处
子程序 浏览器等待
延时netdealy毫秒
t1=timer
如果表达式 (Objie.Busy and timer-t1 < timeout) 为真,则循环执行
延时200毫秒
循环结束
子程序结束,回到调用处
子程序 OnScriptExit
如果表达式 (suess>0) 为真,则
wshell.popup "本次激活成功数量: " & suess,10,"恭喜",0
条件结束
子程序结束,回到调用处