Sub 采集
FindPic 0, 0, 1440, 900, "D:\采集.bmp", 0.6, intX, intY
If intX > 0 And intY > 0 Then
TracePrint "进入采集页面"
Delay 2000
FindPic 0, 0, 1440, 900, "D:\采集宝石矿.bmp", 0.6, intX, intY
If intX > 0 And intY > 0 Then
TracePrint "采集宝石矿"
MoveTo intX+2，intY+2
Delay 800
LeftClick 1
Else
FindPic 0, 0, 1440, 900, "D:\采集宝石矿.bmp", 0.6, intX, intY
If intX > 0 And intY > 0 Then
TracePrint "采集金矿"
MoveTo intX+2，intY+2
Delay 800
LeftClick 1
Else
FindPic 0, 0, 1440, 900, "D:\采集宝石矿.bmp", 0.6, intX, intY
If intX > 0 And intY > 0 Then
TracePrint "采集木矿"
MoveTo intX+2，intY+2
Delay 800
LeftClick 1
End If
End If
End If
End If
End Sub