EndIf 
                EndIf 
            Else 
                VBS m=0:k=0:m1=0:k2=0
                VBSCall c5=GetPixelColor(dx+0,dy+0)
                While c5="000000"
                    VBSCall c5=GetPixelColor(dx+0,dy+0)
                    VBSCall c2=GetPixelColor(dx+0,dy+1)
                    VBSCall c1=GetPixelColor(dx-1,dy+1)
                    VBSCall c4=GetPixelColor(dx-1,dy+0)
                    If dx=d and c1="FFFFFF"
                        //这里是字符右边不全的处理办法
                        VBSCall c35=GetPixelColor(dx+0,dy+0)
                        While c35="000000"
                            VBS dy=dy+1:k2=k2+1
                            VBSCall c35=GetPixelColor(dx+0,dy+0)
                        EndWhile 
                        While c35="FFFFFF"
                            VBS dy=dy+1:k2=k2+1
                            VBSCall c35=GetPixelColor(dx+0,dy+0)
                        EndWhile 
                    EndIf 
                    If c5=c2
                        VBS dy=dy+1:k=k+1:m1=0
                    ElseIf c5=c1
                        VBS dx=dx-1:dy=dy+1:m=m+1:k=k+1:m1=m1+1
                    ElseIf c5=c4
                        VBS dx=dx-1:m=m+1:m1=m1+1
                    EndIf 
                    VBS k=k+k2
                    If k<=10 and m1>=12
                        VBS zf1="5"
                        VBS c5="010101"
                    ElseIf k>10 and m1>6
                        VBS zf1="7"
                        VBS c5="010101"
                    EndIf 
                EndWhile 
            EndIf 
        Else 
            //⒈⒉⒉【→①②】146'
            While c5="000000"
                VBS k=k+1
                VBSCall c5=GetPixelColor(dx,dy+k)
            EndWhile 
            VBS k=k-1
            VBS dy=dy+k
            If k>=12
                //⒈⒉⒉⒈【↓①③】14
                VBSCall c6=GetPixelColor(dx+1,dy+0)
                VBSCall c3=GetPixelColor(dx+1,dy+1)
                VBSCall c4=GetPixelColor(dx-1,dy+0)
                VBSCall c5=GetPixelColor(dx+0,dy+0)
                VBSCall c1=GetPixelColor(dx-1,dy+1)
                VBSCall c2=GetPixelColor(dx+0,dy+1)
                VBSCall c11=GetPixelColor(dx-2,dy+0)
                VBSCall c12=GetPixelColor(dx-3,dy+0)
                //
                If c5=c6 and c5<>c4 and c5<>c1 and c5<>c2 and c5<>c3
                    VBS zf1="4"
                EndIf 
                If c6<>"000000" and (c3="000000" or (c4="000000" and c11="000000" and c12="000000"))
                    VBS zf1="1"
                Else 
                    VBS m=0
                    While c5="000000"
                        VBS m=m+1
                        VBSCall c5=GetPixelColor(dx+m,dy)
                    EndWhile 
                    VBS m=m-1
                    VBS dx=dx+m
                    //MessageBox dx&" "&dy
                    VBSCall c2=GetPixelColor(dx+0,dy+1)
                    VBSCall c11=GetPixelColor(dx+0,dy+2)
                    //VBSCall c12=GetPixelColor(dx+0,dy+3)
                    If m>=4 and c2="000000" and c11="000000"
                        VBS zf1="4"
                    ElseIf m<4
                        VBS zf1="1"
                    EndIf 
                EndIf 
            Else 
                //⒈⒉⒉⒉【←①②】6'
                VBS zf1="6"
            EndIf 
        EndIf 
    EndIf 
Return {↓}
//
Sub {↑}
    VBS zf2=""
    VBS m=0:k=0:dx=qxs:dy=qys
    VBS dx=dx+m:dy=dy+k
    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 c5=GetPixelColor(dx+0,dy+0)
    VBSCall c6=GetPixelColor(dx+1,dy+0)
    //⒈⒈【←no⑦】24179'