Goto 取身份信息
EndIf 
TracePrint idpass
Set Objie=CreateObject("InternetExplorer.application")
//设置Objie为可视
Objie.Visible=True
Objie.Width =1000
Objie.Height=700
Objie.Left=-135
Objie.Top=0
Objie.AddressBar= False
Objie.MenuBar= False
Objie.ToolBar= False
Rem 第一步
//赋值
okay = 0
t2=timer
Objie.Navigate "http://qqtang.qq.com/comm-cgi-bin/login/checklogin.cgi?type=15&url=http://xunxian.qq.com//act/a20080110signup/reg.shtml"
//Objie.FullScreen=True
While okay <> 1
    Gosub 浏览器等待
    VBSBegin 
        set obj=Objie.document
        for dl=0 to obj.all.length - 1
        if lcase(obj.all(dl).tagname)="input" then
        set v=obj.all(dl)
        if v.name="u" and v.id="u" then
        v.value = qqnum
        elseif v.name="p" and v.id="p" then
        v.value = qqpass
        elseif v.name="verifycode" then
        Beep
        vid = InputBox("请输入验证码：")
        While len(vid)<>4
        Beep
        vid = InputBox("请输入一个四位数验证码：")
        Wend
        v.value = vid
        elseif v.name="btnSubmit" then
        v.click '这里就是点击提交了
        okay=1
        dl = obj.all.length
        end if
        end if
        '完成验证码
        next
    VBSEnd 
    If timer-t2>timerout*2
        Beep 
        Beep 
        okay=1
    EndIf 
EndWhile 
//验证第一步
Delay netdealy
If lockqq=1 and Objie.LocationURL = "http://ptlogin2.qq.com/login"
    jihuo=0
    VBSBegin 
        set obj=Objie.document
        for dl=0 to obj.all.length - 1
        if lcase(obj.all(dl).tagname)="td" then
        set v=obj.all(dl)
        if v.innerTEXT="提示信息" then
        jihuo=1
        end if
        end if
        next
    VBSEnd 
    If jihuo = 1
        Objie.Navigate "http://jihuo.qq.com/"
        timeout1 = timeout
        timeout = 25
        Gosub 浏览器等待
        VBSBegin 
            set obj=Objie.document
            for dl=0 to obj.all.length - 1
            if lcase(obj.all(dl).tagname)="input" then
            set v=obj.all(dl)
            if v.name="UIN" and v.id="UIN" then
            v.value = qqnum
            elseif v.name="PWD" and v.id="PWD" then
            v.value = qqpass
            elseif v.name="VERIFY" then
            Beep
            vid = InputBox("请输入验证码：")
            While len(vid)<>4
            Beep
            vid = InputBox("请输入一个四位数验证码：")
            Wend
            v.value = vid
            dl = obj.all.length
            end if
            end if
            '完成验证码
            next
        VBSEnd 
        Objie.Navigate "javascript:DoClick();"
        Gosub 浏览器等待
        If left(Objie.LocationURL,35) = "http://jihuo.qq.com/cgi-bin/asubmit"
            Objie.Navigate "http://jihuo.qq.com/cgi-bin/fsubmit"