【功能说明】 

根据[范围区域内查找形状]插件做的演示例子 

【使用说明】 

设置搜索范围即可,搜索屏幕上“我”字 

2009.4.3 

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

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

UserVar Fstr_X=0 屏幕X开始起点   UserVar Fstr_Y=0 屏幕Y开始起点   UserVar Fend_X=1024 屏幕X结束范围   UserVar Fend_Y=768 屏幕Y结束范围   //<>=========================================<形状特征点>   Arr=Split("2|0|1,4|0|1,6|0|0,-4|1|1,-1|1|1,5|1|1,-4|3|1,-1|3|1,2|3|1,6|3|1,-4|5|0,2|5|1,5|5|1,-1|6|1,6|6|0,-4|7|1,3|8|1,6|8|1,-4|10|0,-3|10|1,-1|10|1,2|10|0,6|10|1",",")   //<>=========================================<特征点循环次数>   n = UBound(Arr)+1   //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★演★示★〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//   //<>=========================================<开始范围搜索>   y=Fstr_Y   For Fend_Y-Fstr_Y       x=Fstr_X       For Fend_X-Fstr_X           MoveTo x,y           i=0           For n               //<>=========================================<分解特征点>               Ar=Split(Arr(i),"|")               VBSCall GetColor1=GetPixelColor(x,y)               VBSCall GetColor2=GetPixelColor(x+Ar(0),y+Ar(1))               //<>=========================================<条件判断>               If Ar(2)=1                   //<>=========================================<条件相等时判断>                   If GetColor1=GetColor2                   Else                        Goto 离开                   EndIf                Else                    //<>=========================================<条件不等时判断>                   If GetColor1<>GetColor2                   Else                        Goto 离开                   EndIf                EndIf                i=i+1           EndFor            Goto 结果           Rem 离开           x=x+1       EndFor        y=y+1   EndFor    //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//   //<>=========================================<找到形状位置>   Rem 结果   msgbox "找到位置为：x=" & x &", y=" & y,64,"演示提示："   EndScript