VBSCall c3=GetPixelColor(dx+1,dy+1)
            VBSCall c9=GetPixelColor(dx+1,dy-1)
            If c5=c2
                VBS dy=dy+1:k=k+1:m1=0
            ElseIf c5=c3 and c5<>c2
                VBS dx=dx+1:dy=dy+1:m=m+1:k=k+1:m1=0
            ElseIf c5=c6 and c5<>c2 and c5<>c3
                VBS dx=dx+1:m=m+1:m1=0
            ElseIf c5=c4 and c5<>c1 and c5<>c2 and  c5<>c6 and c5<>c3 and c5<>c9
                VBS dx=dx-1:m=m-1:m1=m1+1
                VBS zf1="6"
                VBS c5="010101"
            ElseIf c5=c4 and c5<>c1 and c5<>c2 and  c5<>c6 and c5<>c3 and c5=c9
                VBS dx=dx-1:m=m-1:m1=m1+1
                VBS c5="010101"
            ElseIf c5=c1 and c5<>c4 and c5<>c2 and  c5<>c6 and c5<>c3
                VBS c5="010101"
            ElseIf c5<>c2 and c5<>c6 and c5<>c3
                VBS c5="010101"
            EndIf 
        EndWhile 
        VBS dx=dx+m:dy=dy+k
        If zf1<>"6"
            //⒈⒈⒈【↓④】6
            //⒈⒈⒉【←↓⑥】23
            VBS dx=qxw:dy=qyw
            VBSCall c5=GetPixelColor(dx+0,dy+0)
            VBS m=0:k=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=c4
                    VBS dx=dx-1:m=m-1
                ElseIf c5<>c4 and c5=c1
                    VBS dx=dx-1:dy=dy+1:m=m-1:k=k+1
                ElseIf c5<>c4 and c5<>c1 and c5=c2
                    VBS dy=dy+1:k=k+1
                ElseIf c5<>c4 and c5<>c1 and c5<>c2
                    VBS c5="010101"
                EndIf 
            EndWhile 
            VBS dx089=dx:dy089=dy:k089=k
            VBS m=0:k=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<>c3 and c5<>c1 and c5<>c2 and c5=c6
                VBS dx=dx+1:m=m+1:k1=0
                VBSCall c15=GetPixelColor(dx+0,dy+1)
                While c15="FFFFFF"
                    VBSCall c15=GetPixelColor(dx+0,dy+1+k1)
                    VBS k1=k1+1
                EndWhile 
                VBS m1=0
                VBS dy=dy+k1
                VBSCall c15=GetPixelColor(dx+0,dy-3)
                While c15="FFFFFF" and m1<=8
                    VBSCall c15=GetPixelColor(dx+m1,dy-3)
                    VBS m1=m1+1
                EndWhile 
                If m1=9
                    VBS zf1="3"
                ElseIf m1<=8
                    VBS zf1="2"
                EndIf 
            EndIf 
        EndIf 
        If zf1<>"6" and zf1<>"2" and zf1<>"3"
            //⒈⒈⒉⒈【←↓③】089
            //⒈⒈⒉⒉【←↓→①】8
            VBS dx=qxw:dy=qyw
            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=c4
                    VBS dx=dx-1:m=m+1
                ElseIf c5<>c4 and c5=c1
                    VBS dx=dx-1:dy=dy+1:m=m+1:k=k+1
                ElseIf c5=c2 and c5<>c1 and c5<>c4
                    VBS dy=dy+1:k=k+1
                ElseIf c5<>c4 and c5<>c1 and c5<>c2 and c5=c3
                    VBS dx=dx+1:dy=dy+1:m=m+1:k=k+1
                    VBS c5="010101"
                ElseIf c5<>c4 and c5<>c1 and c5<>c2
                    VBS dx=dx+1:dy=dy+1:m=m+1:k=k+1
                    VBS c5="010101"
                EndIf 
            EndWhile