Rem 标记
FindPic 12,35,1024,600,"Attachment:\11.bmp",0.9,intX,intY
If intX = - 1 Then
Goto 标记
End If
dim q(10)
q(0)="FFFDD2"
q(1)="FFFDED"
q(2)="FFFDD5"
q(3)="FFFCEE"
q(4)="FEF5E1"
q(5)="FFFFB3"
q(6)="FEE8BA"
q(7)="FFFFE5"
q(8)="FFFF77"
q(9)="FFFDD1"
Do
For i=0 to 9
//区域范围你自己改
FindColor 12,35,1024,600,q(i),intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
LeftClick 1
call a()
Exit For
End If
Next
Loop
Sub a()
End Sub