Sub 找字(Xa, Ya, Xb, Yb, 文字, 颜色及偏色, X偏移, Y偏移, 延时)
Do
dm_ret = dm.FindStr(Xa,Ya,Xb,Yb,文字,颜色及偏色,1.0,intX,intY)
Delay 50
If intX>0 and intY>0 Then
dm.MoveTo intX+X偏移,intY+Y偏移
Delay 1000
dm.LeftClick
Delay 延时
Exit Do
End If
Delay 200
Loop While 7=7
End Sub