VBS ni=0
    While ni<=5
        VBS dan(ni)=""
        VBS danqx=a+153:danqy=(w+2)+(12*ni)
        VBS danuu=""
        VBS zf=""
        For 2
            IfColor danqx+1 danqy+4 ff00 0
                IfColor danqx+5 danqy+3 ff00 0
                    VBS zf="0"
                    Goto [下一数字]
                EndIf 
            EndIf 
            IfColor danqx+2 danqy+6 ff00 0
                VBS zf="9"
                Goto [下一数字]
            EndIf 
            IfColor danqx+5 danqy+1 ff00 0
                IfColor danqx+1 danqy+5 ff00 0
                    VBS zf="8"
                    Goto [下一数字]
                EndIf 
            EndIf 
            IfColor danqx+5 danqy ff00 0
                IfColor danqx+3 danqy+6 ff00 0
                    VBS zf="7"
                    Goto [下一数字]
                EndIf 
            EndIf 
            IfColor danqx+1 danqy+5 ff00 0
                IfColor danqx+1 danqy+3 ff00 0
                    VBS zf="6"
                    Goto [下一数字]
                EndIf 
            EndIf 
            IfColor danqx+1 danqy ff00 0
                IfColor danqx+2 danqy+3 ff00 0
                    VBS zf="5"
                    Goto [下一数字]
                EndIf 
            EndIf 
            IfColor danqx+2 danqy+2 ff00 0
                VBS zf="4"
                Goto [下一数字]
            EndIf 
            IfColor danqx+5 danqy+4 ff00 0
                IfColor danqx+1 danqy+2 ff00 1
                    VBS zf="3"
                    Goto [下一数字]
                EndIf 
            EndIf 
            IfColor danqx+1 danqy+7 ff00 0
                VBS zf="2"
                Goto [下一数字]
            EndIf 
            IfColor danqx+2 danqy+1 ff00 0
                VBS zf="1"
                Goto [下一数字]
            EndIf 
            Rem [下一数字]
            VBS danuu=danuu&zf
            VBS danqx=danqx+12
        EndFor 
        // MessageBox Left(danuu,1)&","&Right(danuu,1)
        VBS danuu=danuu&danuu
        VBS dan(ni)=danuu
        VBS ni=ni+1
    EndWhile 
Return {答案}
//
Sub {↓}
    VBS zf1=""
    VBS m=0:k=0:dx=qxw:dy=qyw
    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)
    VBSCall c1=GetPixelColor(dx-1,dy+1)
    VBSCall c2=GetPixelColor(dx+0,dy+1)
    VBSCall c3=GetPixelColor(dx+1,dy+1)
    While c5="000000"
        VBS m=m+1
        VBSCall c5=GetPixelColor(dx+m,dy)
    EndWhile 
    VBS m=m-1
    VBS dx=dx+m
    VBSCall c5=GetPixelColor(dx+0,dy+0)
    VBSCall c3=GetPixelColor(dx+1,dy+1)
    If c3="000000"
        //⒈⒈【→③】023689
        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)