QTP的那些事---右键点击对象的方法--DeviceReplay

以下的方法采用 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