VBS dx=dx-1:dy=dy-1
            VBS dx089=dx:dy089=dy
            VBSCall c5=GetPixelColor(dx+0,dy+0)
            VBS m=0:k=0:m1=0
            While c5="000000"
                VBSCall c4=GetPixelColor(dx-1,dy+0)
                VBSCall c5=GetPixelColor(dx+0,dy+0)
                VBSCall c6=GetPixelColor(dx+1,dy+0)
                VBSCall c1=GetPixelColor(dx-1,dy+1)
                VBSCall c2=GetPixelColor(dx+0,dy+1)
                VBSCall c3=GetPixelColor(dx+1,dy+1)
                If c5=c6
                    VBS dx=dx+1:m=m+1
                ElseIf c5<>c6 and c5=c3
                    VBS dx=dx+1:dy=dy+1:m=m+1:k=k+1
                ElseIf c5<>c6 and c5<>c3 and c5=c2
                    VBS dy=dy+1:k=k+1
                ElseIf c5<>c6 and c5<>c3 and c5<>c2
                    VBS c5="010101"
                EndIf 
            EndWhile 
            VBSCall c9=GetPixelColor(dx+1,dy-1)
            VBSCall c5=GetPixelColor(dx+0,dy+0)
            VBSCall c4=GetPixelColor(dx-1,dy+0)
            VBSCall c1=GetPixelColor(dx-1,dy+1)
            VBSCall c2=GetPixelColor(dx+0,dy+1)
            If c5<>c9 and c5<>c2 and (c5=c4 or c5=c1)
                VBS zf1="8"
                If k089>=15
                    VBS zf1="0"
                EndIf 
            ElseIf c5=c9
                //⒈⒈⒉⒉【←↓→⑨】09
                VBS dx=dx089:dy=dy089
                VBSCall c5=GetPixelColor(dx+0,dy+0)
                VBS m=0:k=0:m1=0:k1=0
                //MessageBox dx&" "&dy
                While c5="000000"
                    VBSCall c5=GetPixelColor(dx+0,dy+0)
                    VBSCall c6=GetPixelColor(dx+1,dy+0)
                    VBSCall c2=GetPixelColor(dx+0,dy+1)
                    VBSCall c3=GetPixelColor(dx+1,dy+1)
                    If c5=c6
                        VBS dx=dx+1:m=m+1
                    ElseIf c5<>c6 and c5=c3
                        VBS dx=dx+1:dy=dy+1:m=m+1:k=k+1
                    ElseIf c5<>c6 and c5<>c3 and c5=c2
                        VBS dy=dy+1:k=k+1
                    ElseIf c5<>c6 and c5<>c3 and c5<>c2
                        VBS c5="010101"
                    EndIf 
                    If m=3
                        VBS c2="FFFFFF"
                        VBS dx=dx+m:dy=dy+k
                        While c2="FFFFFF"
                            VBSCall c2=GetPixelColor(dx+0,dy+1+k1)
                            VBS k1=k1+1
                            If k1<19 and c2="FFFFFF"
                                VBS zf1="0"
                                //
                            ElseIf k1<19 and c2="000000"
                                VBS zf1="9"
                                VBS c2="000000"
                            ElseIf k1>=19
                                VBS zf1="0"
                                VBS c2="000000"
                            EndIf 
                        EndWhile 
                        VBS c5="010101"
                    EndIf 
                EndWhile 
            EndIf 
        EndIf 
    Else 
        //⒈⒉【→①②③】1456'7▲
        If m>=19
            //⒈⒉⒈【→①②】57
            VBSCall c5=GetPixelColor(dx+0,dy+0)
            VBSCall c2=GetPixelColor(dx+0,dy+1)
            VBSCall c12=GetPixelColor(dx+0,dy+2)
            If c2=c5 and c12=c5
                While c5="000000"
                    VBS k=k+1
                    VBSCall c5=GetPixelColor(dx,dy+k)
                EndWhile 
                VBS k=k-1
                VBS dy=dy+k
                If k>=2
                    VBS m=0
                    VBSCall c5=GetPixelColor(dx+0,dy+0)
                    While c5="000000"
                        VBS m=m+1
                        VBSCall c5=GetPixelColor(dx-m,dy)
                    EndWhile 
                    VBS m=m-1
                    VBS dx=dx-m
                    If m>=8
                        VBS zf1="5"
                    Else 
                        VBS zf1="7"