1.     跳转到标记 取身份信息
  2. 条件结束
  3. 在调试状态下向调试窗口输出 idpass
  4. Set Objie=CreateObject("InternetExplorer.application")
  5. //设置Objie为可视
  6. Objie.Visible=True
  7. Objie.Width =1000
  8. Objie.Height=700
  9. Objie.Left=-135
  10. Objie.Top=0
  11. Objie.AddressBar= False
  12. Objie.MenuBar= False
  13. Objie.ToolBar= False
  14. 标记 第一步
  15. //赋值
  16. okay = 0
  17. t2=timer
  18. Objie.Navigate "http://qqtang.qq.com/comm-cgi-bin/login/checklogin.cgi?type=15&url=http://xunxian.qq.com//act/a20080110signup/reg.shtml"
  19. //Objie.FullScreen=True
  20. 如果表达式 (okay <> 1) 为真,则循环执行
  21.     调用子程序 浏览器等待
  22.     开始VBScript块
  23.         set obj=Objie.document
  24.         循环 dl=0 to obj.all.length - 1 遍
  25.             如果表达式 (lcase(obj.all(dl).tagname)="input" then) 为真,则
  26.                 set v=obj.all(dl)
  27.                 如果表达式 (v.name="u" and v.id="u" then) 为真,则
  28.                     v.value = qqnum
  29.                 否则如果(v.name="p" and v.id="p" then)为真,则
  30.                     v.value = qqpass
  31.                 否则如果(v.name="verifycode" then)为真,则
  32.                     响一声
  33.                     vid = InputBox("请输入验证码：")
  34.                     如果表达式 (len(vid)<>4) 为真,则循环执行
  35.                         响一声
  36.                         vid = InputBox("请输入一个四位数验证码：")
  37.                         Wend
  38.                         v.value = vid
  39.                     否则如果(v.name="btnSubmit" then)为真,则
  40.                         v.click '这里就是点击提交了
  41.                         okay=1
  42.                         dl = obj.all.length
  43.                         end if
  44.                         end if
  45.                         '完成验证码
  46.                         next
  47.                     结束VBScript块
  48.                     如果表达式 (timer-t2>timerout*2) 为真,则
  49.                         响一声
  50.                         响一声
  51.                         okay=1
  52.                     条件结束
  53.                 循环结束
  54.                 //验证第一步
  55.                 延时netdealy毫秒
  56.                 如果表达式 (lockqq=1 and Objie.LocationURL = "http://ptlogin2.qq.com/login") 为真,则
  57.                     jihuo=0
  58.                     开始VBScript块
  59.                         set obj=Objie.document
  60.                         循环 dl=0 to obj.all.length - 1 遍
  61.                             如果表达式 (lcase(obj.all(dl).tagname)="td" then) 为真,则
  62.                                 set v=obj.all(dl)
  63.                                 如果表达式 (v.innerTEXT="提示信息" then) 为真,则
  64.                                     jihuo=1
  65.                                     end if
  66.                                     end if
  67.                                     next
  68.                                 结束VBScript块
  69.                                 如果表达式 (jihuo = 1) 为真,则
  70.                                     Objie.Navigate "http://jihuo.qq.com/"
  71.                                     timeout1 = timeout
  72.                                     timeout = 25
  73.                                     调用子程序 浏览器等待
  74.                                     开始VBScript块
  75.                                         set obj=Objie.document
  76.                                         循环 dl=0 to obj.all.length - 1 遍
  77.                                             如果表达式 (lcase(obj.all(dl).tagname)="input" then) 为真,则
  78.                                                 set v=obj.all(dl)
  79.                                                 如果表达式 (v.name="UIN" and v.id="UIN" then) 为真,则
  80.                                                     v.value = qqnum
  81.                                                 否则如果(v.name="PWD" and v.id="PWD" then)为真,则
  82.                                                     v.value = qqpass
  83.                                                 否则如果(v.name="VERIFY" then)为真,则
  84.                                                     响一声
  85.                                                     vid = InputBox("请输入验证码：")
  86.                                                     如果表达式 (len(vid)<>4) 为真,则循环执行
  87.                                                         响一声
  88.                                                         vid = InputBox("请输入一个四位数验证码：")
  89.                                                         Wend
  90.                                                         v.value = vid
  91.                                                         dl = obj.all.length
  92.                                                         end if
  93.                                                         end if
  94.                                                         '完成验证码
  95.                                                         next
  96.                                                     结束VBScript块
  97.                                                     Objie.Navigate "javascript:DoClick();"
  98.                                                     调用子程序 浏览器等待
  99.                                                     如果表达式 (left(Objie.LocationURL,35) = "http://jihuo.qq.com/cgi-bin/asubmit") 为真,则
  100.                                                         Objie.Navigate "http://jihuo.qq.com/cgi-bin/fsubmit"