1. （VBScript语句） dim intX
2. （VBScript语句） intX=1
3. 如果表达式 (intX>0) 为真,则循环执行
4.     调用外部VBScript子程序 在屏幕区域里查找图形(0,50,1023,767,"小仙童1.bmp",0.9,intX,intY)
5.     如果表达式 (intX>0 and intY>0) 为真,则
6.         鼠标移到 intX+40 , intY+60
7.         左键单击
8.         延时500毫秒
9.     条件结束
10.     调用外部VBScript子程序 在屏幕区域里查找图形(0,50,1023,767,"小仙童1.bmp",0.9,intX,intY)
11.     如果表达式 (intX>0 and intY>0) 为真,则
12.         鼠标移到 intX+40 , intY+60
13.         左键单击
14.         延时500毫秒
15.     条件结束
16.     调用外部VBScript子程序 在屏幕区域里查找图形(0,50,1023,767,"小仙童1.bmp",0.9,intX,intY)
17.     如果表达式 (intX>0 and intY>0) 为真,则
18.         鼠标移到 intX+40 , intY+60
19.         左键单击
20.         延时500毫秒
21.     条件结束
22.     调用外部VBScript子程序 在屏幕区域里查找图形(0,50,1023,767,"小仙童1.bmp",0.9,intX,intY)
23.     如果表达式 (intX>0 and intY>0) 为真,则
24.         鼠标移到 intX+40 , intY+60
25.         左键单击
26.         延时500毫秒
27.     条件结束
28.     循环 10 遍
29.         调用外部VBScript子程序 在屏幕区域里查找图形(0,50,1023,767,"小仙童1.bmp",0.9,intX,intY)
30.         如果表达式 (intX<0 and intY<0) 为真,则
31.             调用外部VBScript子程序 在屏幕区域里查找图形(0,50,1023,767,"小仙童1.bmp",0.9,intX,intY)
32.             鼠标移到 intX+40 , intY+60
33.             左键单击
34.             延时500毫秒
35.         否则
36.             鼠标移到 intX+40 , intY+60
37.             左键单击
38.             延时500毫秒
39.             鼠标相对移动 120 , 0
40.             左键单击
41.             延时500毫秒
42.             鼠标相对移动 120 , 0
43.             左键单击
44.             延时500毫秒
45.             鼠标相对移动 120 , 0
46.             左键单击
47.             延时500毫秒
48.         条件结束
49.         鼠标相对移动 0 , 200
50.     循环结束
51.     调用外部VBScript子程序 在屏幕区域里查找图形(0,50,1023,767,"小仙童1.bmp",0.9,intX,intY)
52.     鼠标移到 intX+40 , intY+20
53.     左键单击
54.     延时500毫秒
55.     如果表达式 (intX>45) 为真,则循环执行
56.         调用外部VBScript子程序 在屏幕区域里查找图形(0,50,1023,767,"小仙童1.bmp",0.9,intX,intY)
57.         鼠标移到 intX+40 , intY+20
58.         左键单击
59.         延时2000毫秒
60.         调用外部VBScript子程序 在屏幕区域里查找图形(0,50,1023,767,"小仙童1.bmp",0.9,intX,intY)
61.         鼠标移到 intX+40 , intY+20
62.         左键单击
63.         延时500毫秒
64.         调用外部VBScript子程序 在屏幕区域里查找图形(0,50,1023,767,"小仙童1.bmp",0.9,intX,intY)
65.         鼠标移到 intX+40 , intY+20
66.         左键单击
67.         延时500毫秒
68.         调用外部VBScript子程序 在屏幕区域里查找图形(0,50,1023,767,"小仙童1.bmp",0.9,intX,intY)
69.     循环结束
70.     （VBScript语句） intX=1
71. 循环结束
72. 脚本停止运行