1. dim color(2)
2. dim s,x,y
3. color(0)="ebff":color(1)="ebff":color(2)="ebff"
4. 调用外部VBScript子程序 在区域里从中间开始找颜色(0,0,1024,768,color(s),x,y)
5. 如果表达式 (x>0 and y>0) 为真,则
6.     鼠标移到 X , Y
7.     左键单击
8.     延时300毫秒
9.     左键单击
10.     延时300毫秒
11.     左键单击
12. 否则
13. 条件结束
14. 标记 2
15. dim color(2)
16. dim s1,x,y
17. color(0)="e1997b":color(1)="e1997b":color(2)="e1997b"
18. 调用外部VBScript子程序 在区域里从中间开始找颜色(0,0,1024,768,color(s),x,y)
19. 如果表达式 (x>0 and y>0) 为真,则
20.     跳转到标记 1
21. 否则
22.     鼠标移到 496 , 381
23.     左键单击
24.     跳转到标记 2
25. 条件结束
26. 标记 1
27. 延时1000毫秒
28. dim color(2)
29. dim s2,x,y
30. color(0)="20ccf0":color(1)="20ccf0":color(2)="20ccf0"
31. 调用外部VBScript子程序 在区域里从中间开始找颜色(0,0,1024,768,color(s),x,y)
32. 如果表达式 (x>0 and y>0) 为真,则
33.     鼠标移到 X , Y
34.     鼠标相对移动 0 , 10
35.     左键单击
36.     左键单击
37. 否则
38. 条件结束
39. 延时1000毫秒
40. dim color(2)
41. dim s3,x,y
42. color(0)="30c8e8":color(1)="30c8e8":color(2)="30c8e8"
43. 调用外部VBScript子程序 在区域里从中间开始找颜色(0,0,1024,768,color(s),x,y)
44. 如果表达式 (x>0 and y>0) 为真,则
45.     鼠标移到 X , Y
46.     鼠标相对移动 0 , 10
47.     左键单击
48.     左键单击
49. 否则
50. 条件结束
51. 延时1000毫秒
52. 左键单击
53. 延时3000毫秒
54. 标记 4
55. dim color(2)
56. dim s4,x,y
57. color(0)="706078":color(1)="706078":color(2)="706078"
58. 调用外部VBScript子程序 在区域里从中间开始找颜色(0,0,1024,768,color(s),x,y)
59. 如果表达式 (x>0 and y>0) 为真,则
60.     鼠标移到 X , Y
61.     鼠标相对移动 0 , 10
62.     左键单击
63.     左键单击
64.     延时4114毫秒
65. 否则
66.     跳转到标记 4
67. 条件结束
68. 用户定义变量 str1=0 请输入你的帐号
69. Dim str1
70. 输入文本 str1
71. 延时1000毫秒
72. 按键<Tab>
73. 用户定义变量 str2=0 请输入你的密码
74. Dim str2
75. 输入文本 str2
76. 按键<Enter>
77. 延时4000毫秒
78. 用户定义变量 Var1=DropList{人物1:1|人物2:2|人物3:3|人物4:4|人物5:5|人物6:6}=1 选择人物
79. 如果表达式 (Var1 = 1) 为真,则
80.     调用子程序 人物1
81. 否则如果(Var1 =2)为真,则
82.     调用子程序 人物2
83. 否则如果(Var1 =3)为真,则
84.     调用子程序 人物3
85. 否则如果(Var1 =4)为真,则
86.     调用子程序 人物4
87. 否则如果(Var1 =5)为真,则
88.     调用子程序 人物5
89. 否则如果(Var1 =6)为真,则
90.     调用子程序 人物6
91. 条件结束
92. 脚本停止运行
93. 子程序 人物1
94.     dim color(2)
95.     dim s5,x,y
96.     color(0)="31faff":color(1)="31faff":color(2)="31faff"
97.     调用外部VBScript子程序 在区域里从中间开始找颜色(0,0,1024,768,color(s),x,y)
98.     如果表达式 (x>0 and y>0) 为真,则
99.         鼠标移到 X , Y
100.         鼠标相对移动 315 , 155