//代码太他妈有才了
//此代码论坛中有，个人觉得很好。
dim a(100) 
dim b(100) 
dim q(100) 
number0="Attachment:\0.bmp" 
number1="Attachment:\1.bmp" 
number2="Attachment:\2.bmp" 
number3="Attachment:\3.bmp" 
number4="Attachment:\4.bmp" 
number5="Attachment:\5.bmp" 
number6="Attachment:\6.bmp" 
number7="Attachment:\7.bmp" 
number8="Attachment:\8.bmp" 
number9="Attachment:\9.bmp" 
cishu=1
leftx=72+(GS-1)*30 //132
upy=174 //155
rightx=99+(GS-1)*30 //162
downy=185 //235 
Similar=1
lx=leftx 
Dim n,m,p,i,j

n=0
m=1
p=1 
While n<>m 
m=n 
FindPic leftx,upy,rightx,downy,number0,Similar,fx,fy
If fx>=0 and fy>=0 
n=n+1 
leftx=fx+1
a(n)=fx
b(n)=0 
EndIf 
wend 
leftx=lx
m=m-1 
While n<>m 
m=n
FindPic leftx,upy,rightx,downy,number1,Similar,fx,fy
If fx>=0 and fy>=0 
n=n+1 
leftx=fx+1 
a(n)=fx 
b(n)=1 
EndIf 
wend 
leftx=lx 
m=m-1 
While n<>m 
m=n 
FindPic leftx,upy,rightx,downy,number2,Similar,fx,fy
If fx>=0 and fy>=0 
n=n+1 
leftx=fx+1 
a(n)=fx 
b(n)=2 
EndIf 
wend 
leftx=lx 
m=m-1 
While n<>m 
m=n 
FindPic leftx,upy,rightx,downy,number3,Similar,fx,fy
If fx>=0 and fy>=0 
n=n+1 
leftx=fx+1 
a(n)=fx 
b(n)=3 
EndIf 
wend 
leftx=lx 
m=m-1 
While n<>m 
m=n 
FindPic leftx,upy,rightx,downy,number4,Similar,fx,fy
If fx>=0 and fy>=0 
n=n+1 
leftx=fx+1 
a(n)=fx 
b(n)=4 
EndIf 
wend 
leftx=lx 
m=m-1 
While n<>m 
m=n 
FindPic leftx,upy,rightx,downy,number5,Similar,fx,fy
If fx>=0 and fy>=0 
n=n+1 
leftx=fx+1 
a(n)=fx 
b(n)=5 
EndIf 
wend 
leftx=lx 
m=m-1 
While n<>m