1. 用户定义变量 Var007=DropList{是:1|否:0}=0 捕捉精灵
2. 用户定义变量 Var006=DropList{公测:0|内测:1}=1 内测
3. 用户定义变量 Var005=DropList{标准:0|大个精灵:1}=1 恢复修正
4. 用户定义变量 Var1111=DropList{是:1|否:2}=2 调试
5. 用户定义变量 Var1114=DropList{否:10|是:0}=0 带小弟
6. Var1114_temp = Var1114
7. 用户定义变量 Var3=DropList{1:0|11:1|21:2|31:3|41:4}=0 开始楼层
8. 用户定义变量 Var_QD=DropList{重新:1|继续:2|双号:3}=1 启动
9. //====================================用户参数
10. （VBScript语句） user_name=Array(A,B)
11. （VBScript语句） user_nono=Array(0,0,1,0,0,0,0,0)
12. （VBScript语句） user_pass_word=Array("A","B")
13. 用户定义变量 Var_user=DropList{循环:0|A:1|B:2}=0 选择用户
14. 用户定义变量 Var_user01=DropList{循环:0|A:1|B:2}=0 第二用户
15. //====================================用户参数
16. 用户定义变量 Var_mubiao=DropList{勇者塔:0|火星:1|克洛斯星:2|云霄星:3|海洋星一层:4|基地:5|D:6|停止:99}=1 选择练功地点
17. 用户定义变量 Var_ceng=DropList{一层:1|二层:2|三层:3|四层:4}=2 详细地点二
18. Var_ceng=cint(Var_ceng)
19. 用户定义变量 Var1=1234 攻击顺序
20. 用户定义变量 Var9=100 挂机分钟
21. 用户定义变量 time101=500 延时
22. 用户定义变量 Var2=10 技能次数
23. 标记 屏幕颜色深度
24. 调用插件命令 GET_Col=Sys.GetScDep()
25. 如果表达式 (GET_Col=16) 为真,则
26. 否则
27.     弹出窗口 "屏幕颜色深度为" & GET_Col & "位色，请改为16位色"
28.     跳转到标记 屏幕颜色深度
29. 条件结束
30. riji=0
31. buxue=cint(var2)
32. time101=cint(time101)
33. Var1_tmp=var1
34. Var1=left(var1,4)
35. Var1=left(var1,3) & "," & right(var1,1)
36. Var1=left(var1,2) & "," & right(var1,3)
37. Var1=left(var1,1) & "," & right(var1,5)
38. var01=Split(var1,",")
39. var3=cint(var3)
40. var006=cint(var006)
41. //挂机时间
42. var9=cint(var9)*60
43. 如果表达式 (var9 < 0) 为真,则
44.     var9=3600
45. 条件结束
46. DiDian = Var_mubiao & Var_ceng
47. Startime=timer
48. 如果表达式 (Var_QD="3") 为真,则
49.     如果表达式 (Var_user=Var_user01) 为真,则
50.         弹出窗口 "双号不能一样！！"
51.         跳转到标记 END
52.     条件结束
53.     调用外部VBScript子程序 运行一个外部程序("R:\Maxthon\Maxthon.exe")
54. 条件结束
55. Var_user=Cint(Var_user)-1
56. 如果表达式 (DiDian = "11") 为真,则
57.     弹出窗口 "火星一层火贝：练特防拣火焰元素"
58. 否则如果(DiDian = "12")为真,则
59.     弹出窗口 "火星二层吉尔：练特功拣熔岩晶体"
60. 否则如果(DiDian = "41")为真,则
61.     弹出窗口 "海洋星一层贝尔：练特防拣水之精华"
62. 条件结束
63. 延时1000毫秒
64. 调用子程序 CX.读句柄
65. 循环 var006*99999 遍
66.     调用子程序 CX.目的地
67. 循环结束
68. 如果表达式 (Var_QD= "2") 为真,则
69.     调用子程序 CX.位置判断
70.     如果表达式 (txt_record = "0") 为真,则
71.         Var_QD = "1"
72.     条件结束
73. 否则如果(Var_QD = "3")为真,则
74.     KKK = 0
75. 条件结束
76. 标记 打开页面
77. 如果表达式 (Var_QD = "1" or Var_QD = "3") 为真,则
78.     address="http://www.51seer.com/Client.swf?sign=undefined&sid=undefined"
79.     //address="http://www.51seer.com/"
80.     Set ie=CreateObject("InternetExplorer.application")
81.     ie.Visible=True
82.     ie.Navigate address
83.     i=50
84.     如果表达式 (ie.readystate < 4 and i>1) 为真,则循环执行
85.         延时200毫秒
86.         i=i-1
87.     循环结束
88.     Set ie=Nothing
89.     延时1000毫秒
90.     //下面这句是得到当前最前面的窗口句柄
91.     调用插件命令 Hwnd01 = Window.Foreground()
92.     //下面这句是移动窗口到(0, 0)位置
93.     调用插件命令 Window.Move(Hwnd01, 0, 0)
94.     延时200毫秒
95.     调用插件命令 Window.Size(Hwnd01,960, 560)
96.     鼠标移到 100 , 10
97.     //下面这句是得到鼠标指向的窗口句柄
98.     txt = Hwnd01
99.     （VBScript语句） filename="..\程序句柄.txt"
100.     调用子程序 CX.句柄_02