QTP - Descriptive Programming - Any Web App - Working with all Objects

QTP - Descriptive Programming - Any Web App - Working with all Objects

OneTestingCenter @ QTP @ Descriptive Programming @ Any Web App - Working with all the Objects

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

' Any Web App ==> working with all Links

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

Set oPage=Browser("name:=.*").Page("title:=.*")

Set oLink=Description.Create()

oLink("micClass").value="Link"

Set AllLinks=oPage.ChildObjects(oLink)

MsgBox AllLinks.count

For i= 0 to AllLinks.count-1

msgBox i & vbtab & "LinkName" & vbtab & vbtab & AllLinks(i).GetROProperty("name")

Next

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

' Any Web App ==> working with all WebButtons

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

Set oWebButton=Description.Create()

oWebButton("micClass").Value="WebButton"

Set AllWebButtons=oPage.ChildObjects(oWebButton)

MsgBox AllWebButtons.Count

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

' Any Web App ==> working with all Images

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

Set oImage=Description.Create()

oImage("micClass").Value="Image"

Set AllImages=oPage.ChildObjects(oImage)

MsgBox AllImages.Count

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

' Any Web App ==> working with all objects

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

Set oPage=Browser("name:=.*").Page("title:=.*")

Set oObj=Description.Create()

Set AllObjects=oPage.ChildObjects(oObj)

MsgBox AllObjects.Count

For i=0 to AllObjects.Count-1

msgBox i &vbtab &" Object Class" &vbtab & AllObjects(i).GetROProperty("micClass")

msgBox i &vbtab &" Object Name" &vbtab & AllObjects(i).GetROProperty("name")

Next

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

Posted in: QTP - Descriptive Programming - Any Web App - Working with all Objects