//5'3'
                        VBS m=0:k=0
                        VBSCall c25=GetPixelColor(dx+0,dy+0)
                        // MessageBox dx&" "&dy
                        While c25="000000"
                            VBSCall c25=GetPixelColor(dx+0,dy+0)
                            VBSCall c27=GetPixelColor(dx-1,dy-1)
                            VBSCall c28=GetPixelColor(dx+0,dy-1)
                            VBSCall c24=GetPixelColor(dx-1,dy+0)
                            If c25=c24
                                VBS dx=dx-1:m=m+1
                            ElseIf c25<>c24 and c25=c27
                                VBS dx=dx-1:dy=dy-1:m=m+1:k=k+1
                            ElseIf c25<>c24 and c25<>c27 and c25=c28
                                VBS dy=dy-1:k=k+1
                            ElseIf c25<>c24 and c25<>c27 and c25<>c28
                                VBS c25="010101"
                            EndIf 
                        EndWhile 
                        // If m>=17
                        If dx+3<qxs
                            //5
                            VBS zf2="5"
                            VBS c5="010101"
                            // ElseIf m<17
                        ElseIf dx+3>qxs
                            //3
                            VBS zf2="3"
                            VBS c5="010101"
                        EndIf 
                    EndIf 
                ElseIf c5<>c19
                    VBS zf2="8"
                EndIf 
            ElseIf c5<>c4 and c5<>c7 and c5<>c8 and c5=c9
                //068
                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)
                    If c15=c16
                        VBS dx=dx+1:m1=m1+1
                    ElseIf c15=c19
                        VBS dx=dx+1:dy=dy-1:m1=m1+1:k1=k1+1
                    ElseIf c15=c18
                        VBS dy=dy-1:k1=k1+1
                    ElseIf c15<>c16 and c15<>c19 and c15<>c18
                        VBS c15="010101"
                    EndIf 
                    If dx=d and c17="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 
                        VBS k2=k2/2-4
                        VBS k1=k1+k2
                        VBS c15="010101"
                    EndIf 
                EndWhile 
                // MessageBox dx&" "&dy
                If k1>=12
                    //0
                    VBS zf2="0"
                    VBS c5="010101"
                ElseIf k1<12
                    //688'
                    VBS m=0:k=0
                    VBSCall c25=GetPixelColor(dx+0,dy+0)
                    // MessageBox dx&" "&dy
                    While c25="000000"
                        VBSCall c25=GetPixelColor(dx+0,dy+0)
                        VBSCall c27=GetPixelColor(dx-1,dy-1)
                        VBSCall c28=GetPixelColor(dx+0,dy-1)
                        VBSCall c24=GetPixelColor(dx-1,dy+0)
                        If c25=c24
                            VBS dx=dx-1:m=m+1
                        ElseIf c25<>c24 and c25=c27
                            VBS dx=dx-1:dy=dy-1:m=m+1:k=k+1
                        ElseIf c25<>c24 and c25<>c27 and c25=c28
                            VBS dy=dy-1:k=k+1
                        ElseIf c25<>c24 and c25<>c27 and c25<>c28
                            VBS c25="010101"
                        EndIf 
                    EndWhile 
                    If dx+4>qxs
                        //8
                        VBS zf2="8"
                    ElseIf dx+4<qxs
                        //68'