Wednesday, December 16, 2009

Mercury device replay for mouse actions

use x,y to click on element using device replay

Set obj = CreateObject ("Mercury.DeviceReplay")
absx = Browser("..").Page("..").WebElement("..").GetROProperty("abs_x")
absy = Browser("..").Page("..").WebElement("..").GetROProperty("abs_y")
obj.MouseMove absx, absy
wait(3)
obj.MouseDown absx, absy, 0 '0 is for the Left Click
wait(3)
obj.MouseUp absx, absy, 0
Set obj = Nothing

No comments:

Post a Comment