数组区域查找多色脚本源码

此脚本利用数组定义多个颜色进行区域找色(也可以用这种方法区域查找多个图片) 

先修改颜色代码  保存退出即可 

运行环境：分辨率：1440x900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730

@兄弟工程师01    2009/3/19

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