While c5="000000"
        VBS m=m+1
        VBSCall c5=GetPixelColor(dx-m,dy+0)
    EndWhile 
    VBS m=m+1
    VBS dx=dx-m+2
    VBSCall c5=GetPixelColor(qxs+0,qys+0)
    VBSCall c17=GetPixelColor(dx-1,dy-1)
    VBSCall c18=GetPixelColor(dx+0,dy-1)
    VBSCall c19=GetPixelColor(dx+1,dy-1)
    VBSCall c29=GetPixelColor(dx+2,dy-1)
    VBSCall c14=GetPixelColor(dx-1,dy+0)
    VBSCall c15=GetPixelColor(dx+0,dy+0)
    VBSCall c16=GetPixelColor(dx+1,dy+0)
    //    MessageBox dx&" "&dy
    VBS dx359=dx:dy359=dy
    If m>=29
        If c5=c8 and c5=c7 and c15=c18 and c15=c19
            VBS zf2="1"
        Else 
            VBS zf2="2"
        EndIf 
    ElseIf m<29
        If c5=c8 and c15=c18 and c5<>c9 and c5<>c7 and c15<>c19 and c15<>c17
            //1479'
            //k>=4,14,否则7
            VBS dx=qxs:dy=qys
            VBSCall c5=GetPixelColor(dx+0,dy+0)
            While c5="000000"
                VBS k=k+1
                VBSCall c5=GetPixelColor(dx+0,dy+0-k)
            EndWhile 
            VBS k=k-1
            VBS dy=dy-k
            If k>=4
                VBSCall c4=GetPixelColor(dx-1,dy+0)
                VBSCall c6=GetPixelColor(dx+1,dy+0)
                VBSCall c5=GetPixelColor(dx+0,dy+0)
                If c5=c4
                    VBS zf2="1"
                ElseIf c5=c6
                    VBS zf2="4"
                EndIf 
            Else 
                VBS zf2="7"
            EndIf 
        ElseIf c5=c9 and c15=c19 and c15<>c29
            VBS zf2="7"
        ElseIf c5=c9 and c5<>c8 and c15=c18 and c15<>c19
            VBS zf2="7"
        ElseIf c5=c9 and c5<>c8 and c15=c18 and c15=c19
            VBS zf2="9"
        ElseIf c5=c8 and c5=c7 and c15=c18 and c15=c19
            VBS zf2="1"
        ElseIf c5=c9 and c15=c17 and c15<>c18
            // ElseIf c5=c9 and c5<>c8 and c15=c17 and c15<>c18
            //⒈⒉【←⑦_⑨】035689
            //⒈⒉⒈⒉【←⑦_⑨↑⑥】359
            //⒈⒉⒉⒉【←⑦_⑨↑⑨】068
            VBS m=0:k=0
            VBS dx=dx359:dy=dy359
            VBSCall c5=GetPixelColor(dx+0,dy+0)
            While c5="000000"
                VBSCall c7=GetPixelColor(dx-1,dy-1)
                VBSCall c8=GetPixelColor(dx+0,dy-1)
                VBSCall c9=GetPixelColor(dx+1,dy-1)
                VBSCall c4=GetPixelColor(dx-1,dy+0)
                VBSCall c6=GetPixelColor(dx+1,dy+0)
                VBSCall c3=GetPixelColor(dx+1,dy+1)
                VBSCall c5=GetPixelColor(dx+0,dy+0)
                If c5=c8
                    VBS dy=dy-1:k=k+1
                ElseIf c5<>c8 and c5=c7
                    VBS dx=dx-1:dy=dy-1:m=m+1:k=k+1
                ElseIf c5=c4 and c5<>c8 and c5<>c7
                    VBS dx=dx-1:m=m+1
                ElseIf c5<>c4 and c5<>c7 and c5<>c8
                    VBS c5="010101"
                EndIf 
            EndWhile 
            // MessageBox dx&" "&dy
            VBS dx068=dx:dy068=dy
            VBSCall c7=GetPixelColor(dx-1,dy-1)
            VBSCall c8=GetPixelColor(dx+0,dy-1)
            VBSCall c9=GetPixelColor(dx+1,dy-1)
            VBSCall c4=GetPixelColor(dx-1,dy+0)
            VBSCall c6=GetPixelColor(dx+1,dy+0)
            VBSCall c3=GetPixelColor(dx+1,dy+1)
            VBSCall c5=GetPixelColor(dx+0,dy+0)
            If c5<>c4 and c5<>c7 and c5<>c8 and c5<>c9 and c5=c6
                //359
                VBS dx=qxs:dy=qys
                VBS m1=0:k1=0:k2=0
                VBSCall c15=GetPixelColor(dx+0,dy+0)
                While c15="000000"
                    VBSCall c18=GetPixelColor(dx+0,dy-1)
                    VBSCall c19=GetPixelColor(dx+1,dy-1)
                    VBSCall c16=GetPixelColor(dx+1,dy+0)
                    VBSCall c15=GetPixelColor(dx+0,dy+0)
                    VBSCall c17=GetPixelColor(dx-1,dy-1)