• RSS
  • Facebook
  • Twitter

One Center for all the Testing Need. OneTestingCenter is for all, for all QA, for all Automation. Automation is easy, fun and enriching experience. Happy Learning and Happy Testing!

  • Access to All QA

    At OneTestingCenter, you find lots of books,articles,blogs and detailed guides. Everyone has access to QA. Happy Learning, Happy Testing.

  • Global Trainings

    All the QA/Auotmation trainings are available at OneTestingCenter. QA, Automation, QTP/UFT, Selenium, LoadRunner, QC/ALM, Appium...

  • Automation Learning Fun

    Technology is always evolving. Automation is always challenging. To be frank, Automation is fun, enthusiastic and enrching experience.

    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


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

    Reactions:

    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


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