dim color(2)
dim s,x,y
//声明变量
color(0)="FFFFFF":color(1)="000000":color(2)="00FFFF"
//定义颜色数组变量 请自行修改颜色代码
Rem start
s=0
//定义数组下标初始值变量
For 3
    //循环3次
    Delay 10
    //循环里设置延时  防止系统内存占用太高
    VBSCall FindCenterColor(0,0,1024,768,color(s),x,y)
    //区域从中间向外查找颜色。0,0,1024,768为区域范围，color(s)为颜色数组变量，x,y为坐标变量
    If x>0 and y>0
        //如果找到颜色
        Delay 100
        //延时100毫秒
        VBSCall MessageBox("找到颜色"&"color("&s&") "&"坐标为:"&x&","&y)
        //弹出窗口 找到颜色和坐标
    Else 
        Delay 100
        //延时100毫秒
        VBSCall MessageBox("没找到颜色"&"color("&s&")")
        //弹出窗口 没有找到颜色
    EndIf 
    //条件结束
    s=s+1
    //变量递增
EndFor 
//循环结束
EndScript 
Goto start