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