UserVar netdealy=500 网络延时(毫秒)
UserVar timerout=5 超时时间(秒)
UserVar sid=1 读取账号起始行数
UserVar sname=1 读取身份证起始行数
UserVar lockqq=DropList{激活:1|不激活:0}=0 激活冻结QQ号
UserVar l1=┄┄┄┄----- ------基信息配置-------
UserVar Mobilenum = "1324412111" 手机号码
UserVar AreaCode = "0742" 区号
UserVar Telephone = "121331" 电话
UserVar Address =  "广东这里" 地址
UserVar GameFirst = "大话西游" 第一款喜欢的游戏
UserVar GameSecond = "自由天师" 第二款喜欢的游戏
UserVar GameThird = "天涯" 第三款喜欢的游戏
UserVar age = 3 年龄选第几个,0为随机
UserVar GameTime = 3 游戏时间选第几个,0为随机
UserVar Province = 6 身份选第几个,0为随机
//读取line行
VBSBegin 
    Set wshell = CreateObject("Wscript.Shell")
    CurrPath = wshell.CurrentDirectory & "\"
    log_filename = CurrPath & "寻仙激活日志.txt"
    Set fso=CreateObject("Scripting.FileSystemObject")
    function Getid(num)
    Set file = fso.OpenTextFile(Currpath & "帐号.txt", 1)
    strArray = Split(file.ReadAll, vbCrLf)
    If num>ubound(strArray) then
    badme= true
    Else
    Getid=strArray(num-1)
    End If
    file.Close
    end function
    function Getic(num)
    Set file = fso.OpenTextFile(Currpath & "身份证.txt", 1)
    strArray = Split(file.ReadAll, vbCrLf)
    If num>ubound(strArray) then
    badme= true
    Else
    Getic=strArray(num-1)
    End If
    file.Close
    end function
    function var(str)
    var = Left(str,instr(str,"----")-1)
    end function
    function val(str)
    val = Right(str,len(str)-instr(str,"----")-3)
    end function
VBSEnd 
suess=0
If Not fso.FileExists(CurrPath & "帐号.txt")
    PutAttachment . 帐号.txt
    PutAttachment . 身份证.txt
    MessageBox 没有账号信息文件，已经自动文本生成文件在程序目录下。自行修改后启动脚本
EndScript 
EndIf 
If Not fso.FileExists(log_filename)
    PutAttachment . 寻仙激活日志.txt
EndIf 
If sid<1
    MessageBox 起始行数最少也要一行啊！
EndIf 
sid=sid-1
Goto 挂掉IE
Rem 开始登录注册
Rem 取账号行
tline2=getid(sid)
If badme
    MessageBox 账号文件激活完毕！
EndScript 
EndIf 
If len(tline2) > 4
    qqnum=var(tline2)
    qqpass=val(tline2)
ElseIf len(tline2) < 3
    MessageBox "发现无效账号文件行在第" & sid & "行！脚本结束"
EndScript 
Else 
    sid=sid+1
    Goto 取账号行
EndIf 
Rem 取身份信息
tline=getic(sname)
If badme
    MessageBox 身份文件用完了！
EndScript 
EndIf 
If len(tline)>4
    idname = var(tline)
    idpass = val(tline)
    If len(idpass) <> 18
        MessageBox "身份证信息无效。行信息: " & tline
        sname=sname+1
        Goto 取身份信息
    EndIf 
ElseIf len(tline)<1
    MessageBox "发现身份文件空行在第" & sname & "行！脚本结束"
EndScript 
Else 
    sname=sname+1