1. dim color(2)
2. dim s,x,y
3. //声明变量
4. color(0)="FFFFFF":color(1)="000000":color(2)="00FFFF"
5. //定义颜色数组变量 请自行修改颜色代码
6. 标记 start
7. s=0
8. //定义数组下标初始值变量
9. 循环 3 遍
10.     //循环3次
11.     延时10毫秒
12.     //循环里设置延时 防止系统内存占用太高
13.     调用外部VBScript子程序 在区域里从中间开始找颜色(0,0,1024,768,color(s),x,y)
14.     //区域从中间向外查找颜色。0,0,1024,768为区域范围，color(s)为颜色数组变量，x,y为坐标变量
15.     如果表达式 (x>0 and y>0) 为真,则
16.         //如果找到颜色
17.         延时100毫秒
18.         //延时100毫秒
19.         调用外部VBScript子程序 在区域里从中间开始找颜色(0,0,1024,768,color(s),x,y)
20.         //弹出窗口 找到颜色和坐标
21.     否则
22.         延时100毫秒
23.         //延时100毫秒
24.         调用外部VBScript子程序 在区域里从中间开始找颜色(0,0,1024,768,color(s),x,y)
25.         //弹出窗口 没有找到颜色
26.     条件结束
27.     //条件结束
28.     s=s+1
29.     //变量递增
30. 循环结束
31. //循环结束
32. 脚本停止运行
33. 跳转到标记 start