01-19-2011, 03:43 PM
See if any of this thread helps you-
https://www.learnqtp.com/forums/archive/...-2356.html
https://www.learnqtp.com/forums/Thread-R...-Web-Table
or you may try this -
https://www.learnqtp.com/forums/archive/...-2356.html
https://www.learnqtp.com/forums/Thread-R...-Web-Table
or you may try this -
Code:
Dim strObj
set strObj = browser("Google").Page("Google")
x_coord = strObj.GetROProperty("abs_x")
y_coord = strObj.GetROProperty("abs_y")
Set objDr = CreateObject("Mercury.DeviceReplay")
objDr.MouseClick x_coord, y_coord, 2
Dim WshShell
set WshShell = CreateObject("WScript.Shell")
Dim i ,n
For i = 0 to 14
If i = 12 Then
wshshell.sendkeys "{ENTER}"
For n = 0 to 6
If n = 5 Then
wait(1)
wshshell.sendkeys "{ENTER}"
Exit for
else
wshshell.sendkeys "{DOWN}"
End If
Next
Exit for
else
wshshell.sendkeys "{DOWN}"
End If
Next