1. 用户定义变量 netdealy=500 网络延时(毫秒)
2. 用户定义变量 timerout=5 超时时间(秒)
3. 用户定义变量 sid=1 读取账号起始行数
4. 用户定义变量 sname=1 读取身份证起始行数
5. 用户定义变量 lockqq=DropList{激活:1|不激活:0}=0 激活冻结QQ号
6. 用户定义变量 l1=┄┄┄┄----- ------基信息配置-------
7. 用户定义变量 Mobilenum = "1324412111" 手机号码
8. 用户定义变量 AreaCode = "0742" 区号
9. 用户定义变量 Telephone = "121331" 电话
10. 用户定义变量 Address = "广东这里" 地址
11. 用户定义变量 GameFirst = "大话西游" 第一款喜欢的游戏
12. 用户定义变量 GameSecond = "自由天师" 第二款喜欢的游戏
13. 用户定义变量 GameThird = "天涯" 第三款喜欢的游戏
14. 用户定义变量 age = 3 年龄选第几个,0为随机
15. 用户定义变量 GameTime = 3 游戏时间选第几个,0为随机
16. 用户定义变量 Province = 6 身份选第几个,0为随机
17. //读取line行
18. 开始VBScript块
19.     Set wshell = CreateObject("Wscript.Shell")
20.     CurrPath = wshell.CurrentDirectory & "\"
21.     log_filename = CurrPath & "寻仙激活日志.txt"
22.     Set fso=CreateObject("Scripting.FileSystemObject")
23.     function Getid(num)
24.     Set file = fso.OpenTextFile(Currpath & "帐号.txt", 1)
25.     strArray = Split(file.ReadAll, vbCrLf)
26.     如果表达式 (num>ubound(strArray) then) 为真,则
27.         badme= true
28.     否则
29.         Getid=strArray(num-1)
30.         End If
31.         file.Close
32.         end function
33.         function Getic(num)
34.         Set file = fso.OpenTextFile(Currpath & "身份证.txt", 1)
35.         strArray = Split(file.ReadAll, vbCrLf)
36.         如果表达式 (num>ubound(strArray) then) 为真,则
37.             badme= true
38.         否则
39.             Getic=strArray(num-1)
40.             End If
41.             file.Close
42.             end function
43.             function var(str)
44.             var = Left(str,instr(str,"----")-1)
45.             end function
46.             function val(str)
47.             val = Right(str,len(str)-instr(str,"----")-3)
48.             end function
49.         结束VBScript块
50.         suess=0
51.         如果表达式 (Not fso.FileExists(CurrPath & "帐号.txt")) 为真,则
52.             展开附件 . 帐号.txt
53.             展开附件 . 身份证.txt
54.             弹出窗口 没有账号信息文件，已经自动文本生成文件在程序目录下。自行修改后启动脚本
55.         脚本停止运行
56.     条件结束
57.     如果表达式 (Not fso.FileExists(log_filename)) 为真,则
58.         展开附件 . 寻仙激活日志.txt
59.     条件结束
60.     如果表达式 (sid<1) 为真,则
61.         弹出窗口 起始行数最少也要一行啊！
62.     条件结束
63.     sid=sid-1
64.     跳转到标记 挂掉IE
65.     标记 开始登录注册
66.     标记 取账号行
67.     tline2=getid(sid)
68.     如果表达式 (badme) 为真,则
69.         弹出窗口 账号文件激活完毕！
70.     脚本停止运行
71. 条件结束
72. 如果表达式 (len(tline2) > 4) 为真,则
73.     qqnum=var(tline2)
74.     qqpass=val(tline2)
75. 否则如果(len(tline2) < 3)为真,则
76.     弹出窗口 "发现无效账号文件行在第" & sid & "行！脚本结束"
77. 脚本停止运行
78. 否则
79.     sid=sid+1
80.     跳转到标记 取账号行
81. 条件结束
82. 标记 取身份信息
83. tline=getic(sname)
84. 如果表达式 (badme) 为真,则
85.     弹出窗口 身份文件用完了！
86. 脚本停止运行
87. 条件结束
88. 如果表达式 (len(tline)>4) 为真,则
89.     idname = var(tline)
90.     idpass = val(tline)
91.     如果表达式 (len(idpass) <> 18) 为真,则
92.         弹出窗口 "身份证信息无效。行信息: " & tline
93.         sname=sname+1
94.         跳转到标记 取身份信息
95.     条件结束
96. 否则如果(len(tline)<1)为真,则
97.     弹出窗口 "发现身份文件空行在第" & sname & "行！脚本结束"
98. 脚本停止运行
99. 否则
100.     sname=sname+1