Adding objects to OR @ run time
Set objrt=createobject("Mercury.ObjectRepositoryUtil")
objrt.Load "D:\test.tsr"
Set odesc=description.Create
odesc("micClass").value="WebEdit"
set obcoll=Browser("name:=.*").Page("name:=.*").ChildObjects(odesc)
print obcoll.count
'msgbox "count of child objects" &obcoll.count
For i=0 to obcoll.count-1
Set tobj=obcoll.item(i)
msgbox "Obj name :" &tobj.GetRoProperty("name")
msgbox "Obj class :"&tobj.GetRoProperty("micClass")
If tobj.GetRoProperty("name")="InputKeywords" Then
Set pobj=Browser("ABCCOBrowser").Page("ABCCOBrowserPage")
Set
tobj=Browser("ABCCOBrowser").Page("ABCCOBrowserPage").WebEdit("name:=InputKeywords")
objrt.AddObject tobj,pobj
objrt.Save
Set objrt=nothing
Set pobj=nothing
Exit for
End If
Next
--
Thanks,
Gokul Krishna.
--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
---
You received this message because you are subscribed to the Google Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/groups/opt_out.
