Else 
            MessageBox 激活完毕后点击确定！
        EndIf 
        timeout = timeout1
        sid=sid-1
        Goto 挂掉IE
    EndIf 
ElseIf left(Objie.LocationURL,52) <> "http://xunxian.qq.com//act/a20080110signup/reg.shtml"
    Goto 挂掉IE
EndIf 
Delay netdealy
//进入第二步
Objie.Navigate "http://xunxian.qq.com/cgi-bin/act/a20080110signup/signupstart.cgi"[/color]
Gosub 浏览器等待
//Objie.quit
//进入第二步
Objie.Navigate "http://xunxian.qq.com/act/a20080110signup/inc/vote.htm"[/color]
Gosub 浏览器等待
//同意协议
Objie.Navigate "javascript:document.formMain.submit();"
okay=0
Gosub 浏览器等待
//第三步
//赋值
VBSBegin 
    set obj=Objie.document
    for dl=0 to obj.all.length - 1    '重复这个网页的所有可用DOM标记次数
    if lcase(obj.all(dl).tagname)="input" then
    set v=obj.all(dl)
    if v.name="sName" then
    v.value = idname
    ElseIf v.name="sMobile" then
    v.value = Mobilenum
    ElseIf v.name="sAreaCode" then
    v.value = AreaCode
    ElseIf v.name="sTelephone" then
    v.value = Telephone
    ElseIf v.name="iIdentity" then
    v.value = idpass
    ElseIf v.name="sGameFirst" then
    v.value = GameFirst
    ElseIf v.name="sGameSecond" then
    v.value = GameSecond
    ElseIf v.name="sGameThird" then
    v.value = GameThird
    ElseIf v.name="sAddress" then
    v.value = Address
    okay=1
    end if
    end if
    if lcase(obj.all(dl).tagname)="select" then
    set v=obj.all(dl)
    if v.name = "iAge" then
    If age=0 then
    Randomize
    v.SelectedIndex = int(rnd*4)+1
    Else
    v.SelectedIndex = age
    End If
    ElseIf v.name = "iProvince" then
    If Province=0 then
    Randomize
    v.SelectedIndex = int(rnd*30)+1
    Else
    v.SelectedIndex = Province + 1
    End If
    ElseIf v.name = "iGameTime" then
    If GameTime=0 then
    Randomize
    v.SelectedIndex = int(rnd*15)+1
    Else
    v.SelectedIndex = GameTime + 1
    End If
    end if
    end if
    next
VBSEnd 
Objie.Navigate "javascript:Submit();"
Gosub 浏览器等待
If left(Objie.LocationURL,66) = "http://xunxian.qq.com/cgi-bin/act/a20080110signup/linkdownload.cgi"[/color]
    Set file=fso.OpenTextFile(log_filename,8)
    file.WriteLine("QQ: " & qqnum & "  密码: " & qqpass & "  登记姓名: " & idname &"   登记证件:" & idpass)
    file.Close
    sname=sname+1
    suess=suess+1
EndIf 
//结束代码
Rem 挂掉IE
VBSBegin 
    Set Objie=Nothing
    set y=getobject("winmgmts:\\.\root\cimv2")
    set x=y.execquery("select * from win32_process where name='iexplore.exe'")
    For each i in x
    i.terminate()
    next
    sid=sid+1
VBSEnd 
Goto 开始登录注册
//子程序段落
Sub 错误触发器