自己定义的利用使用DeviceReplay对象点击鼠标操作

Set obj=Browser("creationtime:=").Page("creationtime:=").WebButton("name:=Button")

Call L_Click(obj) 

Public sub L_Click(obj)
    With obj
        ax=.GetRoProperty("abs_x")
        ay=.GetRoProperty("abs_y")
        ow=.GetRoProperty("width")
        oh=.GetRoproperty("height")
    End With
    X=ax+ow/2
    Y=ay+oh/2
    Set devRep = CreateObject( "Mercury.DeviceReplay" )
    devRep.MouseClick X,Y,LEFT_MOUSE_BUTTON
    Set devRep = Nothing
End Sub