1.                                                     否则
  2.                                                         弹出窗口 激活完毕后点击确定！
  3.                                                     条件结束
  4.                                                     timeout = timeout1
  5.                                                     sid=sid-1
  6.                                                     跳转到标记 挂掉IE
  7.                                                 条件结束
  8.                                             否则如果(left(Objie.LocationURL,52) <> "http://xunxian.qq.com//act/a20080110signup/reg.shtml")为真,则
  9.                                                 跳转到标记 挂掉IE
  10.                                             条件结束
  11.                                             延时netdealy毫秒
  12.                                             //进入第二步
  13.                                             Objie.Navigate "http://xunxian.qq.com/cgi-bin/act/a20080110signup/signupstart.cgi"[/color]
  14.                                             调用子程序 浏览器等待
  15.                                             //Objie.quit
  16.                                             //进入第二步
  17.                                             Objie.Navigate "http://xunxian.qq.com/act/a20080110signup/inc/vote.htm"[/color]
  18.                                             调用子程序 浏览器等待
  19.                                             //同意协议
  20.                                             Objie.Navigate "javascript:document.formMain.submit();"
  21.                                             okay=0
  22.                                             调用子程序 浏览器等待
  23.                                             //第三步
  24.                                             //赋值
  25.                                             开始VBScript块
  26.                                                 set obj=Objie.document
  27.                                                 循环 dl=0 to obj.all.length - 1 '重复这个网页的所有可用DOM标记次数 遍
  28.                                                     如果表达式 (lcase(obj.all(dl).tagname)="input" then) 为真,则
  29.                                                         set v=obj.all(dl)
  30.                                                         如果表达式 (v.name="sName" then) 为真,则
  31.                                                             v.value = idname
  32.                                                         否则如果(v.name="sMobile" then)为真,则
  33.                                                             v.value = Mobilenum
  34.                                                         否则如果(v.name="sAreaCode" then)为真,则
  35.                                                             v.value = AreaCode
  36.                                                         否则如果(v.name="sTelephone" then)为真,则
  37.                                                             v.value = Telephone
  38.                                                         否则如果(v.name="iIdentity" then)为真,则
  39.                                                             v.value = idpass
  40.                                                         否则如果(v.name="sGameFirst" then)为真,则
  41.                                                             v.value = GameFirst
  42.                                                         否则如果(v.name="sGameSecond" then)为真,则
  43.                                                             v.value = GameSecond
  44.                                                         否则如果(v.name="sGameThird" then)为真,则
  45.                                                             v.value = GameThird
  46.                                                         否则如果(v.name="sAddress" then)为真,则
  47.                                                             v.value = Address
  48.                                                             okay=1
  49.                                                             end if
  50.                                                             end if
  51.                                                             如果表达式 (lcase(obj.all(dl).tagname)="select" then) 为真,则
  52.                                                                 set v=obj.all(dl)
  53.                                                                 如果表达式 (v.name = "iAge" then) 为真,则
  54.                                                                     如果表达式 (age=0 then) 为真,则
  55.                                                                         Randomize
  56.                                                                         v.SelectedIndex = int(rnd*4)+1
  57.                                                                     否则
  58.                                                                         v.SelectedIndex = age
  59.                                                                         End If
  60.                                                                     否则如果(v.name = "iProvince" then)为真,则
  61.                                                                         如果表达式 (Province=0 then) 为真,则
  62.                                                                             Randomize
  63.                                                                             v.SelectedIndex = int(rnd*30)+1
  64.                                                                         否则
  65.                                                                             v.SelectedIndex = Province + 1
  66.                                                                             End If
  67.                                                                         否则如果(v.name = "iGameTime" then)为真,则
  68.                                                                             如果表达式 (GameTime=0 then) 为真,则
  69.                                                                                 Randomize
  70.                                                                                 v.SelectedIndex = int(rnd*15)+1
  71.                                                                             否则
  72.                                                                                 v.SelectedIndex = GameTime + 1
  73.                                                                                 End If
  74.                                                                                 end if
  75.                                                                                 end if
  76.                                                                                 next
  77.                                                                             结束VBScript块
  78.                                                                             Objie.Navigate "javascript:Submit();"
  79.                                                                             调用子程序 浏览器等待
  80.                                                                             如果表达式 (left(Objie.LocationURL,66) = "http://xunxian.qq.com/cgi-bin/act/a20080110signup/linkdownload.cgi"[/color]) 为真,则
  81.                                                                                 Set file=fso.OpenTextFile(log_filename,8)
  82.                                                                                 file.WriteLine("QQ: " & qqnum & " 密码: " & qqpass & " 登记姓名: " & idname &" 登记证件:" & idpass)
  83.                                                                                 file.Close
  84.                                                                                 sname=sname+1
  85.                                                                                 suess=suess+1
  86.                                                                             条件结束
  87.                                                                             //结束代码
  88.                                                                             标记 挂掉IE
  89.                                                                             开始VBScript块
  90.                                                                                 Set Objie=Nothing
  91.                                                                                 set y=getobject("winmgmts:\\.\root\cimv2")
  92.                                                                                 set x=y.execquery("select * from win32_process where name='iexplore.exe'")
  93.                                                                                 循环 each i in x 遍
  94.                                                                                     i.terminate()
  95.                                                                                     next
  96.                                                                                     sid=sid+1
  97.                                                                                 结束VBScript块
  98.                                                                                 跳转到标记 开始登录注册
  99.                                                                                 //子程序段落
  100.                                                                                 子程序 错误触发器