Sub 数量识别() ux=88 uy=197 group="" x=ux y=uy Dim a(10) For 5 num="" code="" For 4 x=ux For 4 GetColor=GetPixelColor(x,y) If GetColor="FFFFFF" Then i="1" Else i="0" End If code=code & i x=x-1 Next y=y-1 Next y=uy ux=ux-6 a(0)="1001100110011001" a(1)="1000100010001100" a(2)="0010010010001001" a(3)="1000010010001001" a(4)="1111010101100110" a(5)="1000100101110001" a(6)="1001011100011001" a(7)="0010010001001000" a(8)="1001011010011001" a(9)="1000111010011001" If code=a(0) Then num="0" End If If code=a(1) Then num="1" ux=ux+2 End If If code=a(2) Then num="2" End If If code=a(3) Then num="3" End If If code=a(4) Then num="4" End If If code=a(5) Then num="5" End If If code=a(6) Then num="6" End If If code=a(7) Then num="7" End If If code=a(8) Then num="8" End If If code=a(9) Then num="9" End If group=num&group Next group=CDbl(group) End Sub Sub 识别金币() group="" x=ux y=uy Dim a(10) For 9 num="" code="" For 3 x=ux For 5 GetColor=GetPixelColor(x,y) If GetColor="FFFFFF" Then i="1" Else i="0" End If code=code & i x=x+1 Next