以下的方法采用 DeviceReplay 方法敲击页面中的任意一个对象,采用的是绝对路径x,y进行定位需要点击的对象。
Sub RightClickObj(Obj, Offset_x, Offset_y)
x_coord = Obj.GetROProperty("abs_x") '对象的相对坐标x
y_coord = Obj.GetROProperty("abs_y") '对象的相对坐标y
Set dr = CreateObject("Mercury.DeviceReplay") '创建对象DeviceReplay
dr.MouseClick x_coord + Offset_x, y_coord + Offset_y, 2 '右键点击某一个对象,注意后面的那个2
End Sub