范围区域内查找形状演示脚本源码

【功能说明】 

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

【使用说明】 

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

2009.4.3 

运行环境：分辨率：1440x900 色深：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