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