1. 设置模拟方式为：超级模拟
2. 定义变量 IsDenglu
3. 定义变量 ZhangHao, ClZhangHao, ClMiMa
4. 用户定义变量 VarZhanghao="0" "设置帐号文件路径"
5. 令 HwndEx = Window.Search("征途2")
6. 注释：下面这句用于分割字符串,将获得的句柄组分割
7. 令 MyArray = Split(HwndEx,"|")
8. 如果 UBound(MyArray) > 0 则
9.     令 k = 0
10.     循环 UBound(MyArray) 次
11.         调用 Window.Restore(MyArray(k))
12.         调用 Window.Active(MyArray(k))
13.         令 sRect = Window.GetClientRect(MyArray(k))
14.         令 MyArrayClinet = Split(sRect,"|")
15.         如果 UBound(MyArrayClinet) > 0 则
16.             注释：下面这句将字符串转换成数值
17.             令 L = Clng(MyArrayClinet(0))
18.             令 T = Clng(MyArrayClinet(1))
19.             令 R = Clng(MyArrayClinet(2))
20.             令 B = Clng(MyArrayClinet(3))
21.             注释：Call 查找包裹
22.             延时 1000 毫秒
23.             调用 是否在登陆界面
24.             如果 IsDenglu = 1 则
25.                 注释：Call 输入帐号
26.                 调用 读取帐号文件
27.                 调用 原始帐号处理(ZhangHao)
28.                 调用 输入帐号(ClZhangHao,ClMiMa)
29.             条件结束
30.         条件结束
31.         令 k = k + 1
32.     循环结束
33. 条件结束
34. 脚本停止运行
35. 函数 原始帐号处理(x)
36.     令 clstr = Split(x,",")
37.     令 zx = clstr(0)
38.     令 mx = clstr(1)
39.     令 ClZhangHao = ""
40.     令 ClMiMa = ""
41.     令 cstnum = 1
42.     如果 len(zx) > 0 则
43.         循环 len(zx) 次
44.             令 addstr = Mid("" & zx,cstnum,1)
45.             令 ClZhangHao = "" & ClZhangHao & "" & addstr & ","
46.             令 cstnum = cstnum + 1
47.         循环结束
48.         注释：ClZhangHao=""&ClZhangHao&","
49.     条件结束
50.     令 cstnum = 1
51.     如果 len(mx) > 0 则
52.         循环 len(mx) 次
53.             令 addstr = Mid("" & mx,cstnum,1)
54.             令 ClMiMa = "" & ClMiMa & "" & addstr & ","
55.             令 cstnum = cstnum + 1
56.         循环结束
57.         注释：ClMiMa=""&ClMiMa&","
58.     条件结束
59.     注释：MessageBox ""&ClMiMa
60. 函数结束
61. 函数 读取帐号文件
62.     调用 读取帐号文件基本数据
63.     调用 读取第几个帐号文件(ZhangHaoThis)
64.     令 ZhangHaoThis = ZhangHaoThis + 1
65.     调用 修改帐号文件游标
66. 函数结束
67. 函数 修改帐号文件游标
68.     调用 File.WriteINI("Command","this","" & ZhangHaoThis,VarZhanghao)
69. 函数结束
70. 函数 读取帐号文件基本数据
71.     令 ZhangHaoMax = File.ReadINI("Command","max",VarZhanghao)
72.     令 ZhangHaoThis = File.ReadINI("Command","this",VarZhanghao)
73. 函数结束
74. 函数 读取第几个帐号文件(x)
75.     如果 x > ZhangHaoMax 则
76.         弹出窗口 "帐号登陆完毕"
77.         脚本停止运行
78.     条件结束
79.     令 ZhangHao = File.ReadINI("Command","zh" & x,VarZhanghao)
80.     注释：Msgbox "得到一个配置文件键值为："&ZhangHao
81. 函数结束
82. 函数 读取第几行帐号文件(x)
83.     令 zhx = 0
84.     令 fileHandle = File.OpenFile("" & VarZhanghao)
85.     令 filelineMax = ""
86.     循环 x 次
87.         令 fileline = File.ReadLine(fileHandle)
88.         调用 File.SeekFile(fileHandle,Len(filelineMax) + zhx * 1)
89.         令 filelineMax = filelineMax + fileline
90.         令 zhx = zhx + 1
91.     循环结束
92.     令 ZhangHao = File.ReadLine(fileHandle)
93.     调用 File.CloseFile(fileHandle)
94.     注释：MessageBox "读取" & VarZhanghao & "文件一行长度内容是：" & fileline
95. 函数结束
96. 函数 按键输入(x)
97.     令 MyArrayString = Split(x,",")
98.     如果 UBound(MyArrayString) > 0 则
99.         令 xk = 0
100.         循环 UBound(MyArrayString) 次