If c15=c16
                        VBS dx=dx+1:m1=m1+1
                    ElseIf c15<>c16 and c15=c19
                        VBS dx=dx+1:dy=dy-1:m1=m1+1:k1=k1+1
                    ElseIf c15<>c16 and c15<>c19 and 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
                        VBS k1=k1+k2
                        VBS c15="010101"
                    EndIf 
                EndWhile 
                If k1>=12
                    //9
                    VBS zf2="9"
                    VBS c5="010101"
                ElseIf k1<12
                    //35
                    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<>c4 and c5<>c7 and c5<>c8 and c5<>c6 and c5=c9 and c5=c3
                //5'3'8'
                VBSCall c19=GetPixelColor(dx+2,dy-1)
                If c5=c19
                    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<>c16 and c15=c19
                            VBS dx=dx+1:dy=dy-1:m1=m1+1:k1=k1+1
                        ElseIf c15<>c16 and c15<>c19 and 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
                            VBS k1=k1+k2
                            VBS c15="010101"
                        EndIf 
                    EndWhile 
                    If k1<=15