Solution is as follows -
Browser(”name:=Google”).Page(”title:=Google”).Link(”name:=iGoogle”)
Window(”hwnd:=”&Browser(”name:=Google”).GetROProperty(”hwnd”)).Type micDwn
+ “A” + micReturn
Window(”hwnd:=”&Browser(”name:=Google”).GetROProperty(”hwnd”)).Type micDwn
+ “A” + micReturn
Function RightClick(Obj)
X = Obj.GetROProperty(”abs_x”) + Obj.GetROProperty(”width”)/2
Y = Obj.GetROProperty(”abs_y”) + Obj.GetROProperty(”height”)/2
Set deviceReplay = CreateObject( “Mercury.DeviceReplay” )
deviceReplay.MouseClick X,Y,”2″
Set deviceReplay = nothing
End Function
X = Obj.GetROProperty(”abs_x”) + Obj.GetROProperty(”width”)/2
Y = Obj.GetROProperty(”abs_y”) + Obj.GetROProperty(”height”)/2
Set deviceReplay = CreateObject( “Mercury.DeviceReplay” )
deviceReplay.MouseClick X,Y,”2″
Set deviceReplay = nothing
End Function
No comments:
Post a Comment