Entering
Objects Information directly into the test script is called descriptive
programming. In DP, we will be "manually" specifying the set of
properties and values by which the relevant object will be identified. This way
QTP won’t search for the properties data in the Object Repository, but will
take it from the DP statement directly.
Object Spy is used to get the properties
and their values to uniquely identify the objects in the application. If we
know such properties and their unique values that can identify the required
object without ambiguity, we need not use Object Spy.
Two ways of descriptive programming:
1. Static Programming: We provide the set
of properties and values that describe the object directly in a VBScript
statement.
'Dynamic Descriptive Programming
'*************** Dynamic descriptive Programing **************
'**************** Page Used: Google - Products****************
'Launch Google - Products
Systemutil.Run
"iexplore.exe","http://www.google.com/intl/en/about/products/"
'Descriptive object to identify
Browser with a particular title
Set Dbrowser=Description.Create
Dbrowser("micclass").Value="Browser"
Dbrowser("name").Value="Google - Products"
'Descriptive object to identify
Web page with a particular title
Set Dpage=Description.Create
Dpage("micclass").Value="Page"
Dpage("title").Value= "Google - Products"
Browser(Dbrowser).Page(Dpage).Sync
'wait till browser sync
'Descriptive object to identify a
particular Link
Set DLink=Description.Create
'DLink("micclass").Value="Link"
DLink("html tag").Value="A"
Set objLinkCount=Browser(Dbrowser).Page(Dpage).ChildObjects(DLink)
'Returns the childobjects having 'Linkobject' description.
vrDLinkCount = objLinkCount.Count
'Returns number of links on webpage
MsgBox vrDLinkCount
For i=0 to vrDLinkCount-1
vrTag =
objLinkCount(i).GetROProperty("name")
vrHREF =
objLinkCount(i).GetROProperty("url")
msgbox vrTag &
": " &vrHREF
Next
