Return 错误触发器
Sub 浏览器等待
    Delay netdealy
    t1=timer
    While Objie.Busy and timer-t1 < timeout
        Delay 200
    EndWhile 
Return 浏览器等待
Sub OnScriptExit
    If suess>0
        wshell.popup "本次激活成功数量: " &  suess,10,"恭喜",0
    EndIf 
Return