//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
//　　　　　　　　　　　　　屏幕区域范围找“我”字形状演示　　　　　　　　　　　　　　//
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
//<>=========================================<区域搜索范围>
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 
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
//【脚本作者】兄弟工程师01　　　　　　　　　　　　【QQ】1094599314
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//