马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
找图 = array(77,68,221,164, "测试.bmp")
使用 = array(97, 141, 154, 189, "测试2.bmp")
数组 = array(找图, 使用)
For i = 0 To UBound(数组)
If 图(数组(i)) = true Then
Call 点击(intx,inty)
End If
Delay 5000
Next
==================================================
Function 图(数组)
x1 = 参数(0)
x2 = 参数(1)
y1 = 参数(2)
y2 = 参数(3)
tu = 参数(4)
dm_ret = dm.FindPic(x1, x2, y1, y2, tu, "101010", 0.9, 0, intX, intY)
TracePrint dm_ret
图 = False
If dm_ret > -1 Then
图=True
End If
End Function
==================================================
Function 点击(x,y)
dm.MoveTo x, y
Delay 200
dm.LeftClick
End Function
|