• 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 Programing - Dynamic Object Repository Creation
     
    OneTestingCenter @ QTP @ Descriptive Programming @ Dynamic Object Repository Creation

    ‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    ' Create a Dynamic Object Repository for  any Web App – Model 1
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    ‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

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

    DataTable.AddSheet "dtAppOR"

    DataTable.GetSheet("dtAppOR").AddParameter "ObjectNo",""
    DataTable.GetSheet("dtAppOR").AddParameter "ObjectClass",""
    DataTable.GetSheet("dtAppOR").AddParameter "ObjectName",""
    DataTable.GetSheet("dtAppOR").AddParameter "ObjectHtmlTag",""

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

    Set AllObjects=oPage.ChildObjects(oObj)
    For i= 0 to AllObjects.Count-1
    DataTable.GetSheet("dtAppOR").SetCurrentRow(i+1)
    ' MsgBox i &vbtab & "Object Class"&vbtab & AllObjects(i).GetROProperty("micClass")
    ' MsgBox i &vbtab & "Object Name"&vbtab & AllObjects(i).GetROProperty("name")
    ' MsgBox i &vbtab & "Object Html Tag"&vbtab & AllObjects(i).GetROProperty("Html Tag")
    DataTable.Value("ObjectNo","dtAppOR")=i
    DataTable.Value("ObjectClass","dtAppOR")=AllObjects(i).GetROProperty("micClass")
    DataTable.Value("ObjectName","dtAppOR")=AllObjects(i).GetROProperty("name")
    DataTable.Value("ObjectHtmlTag","dtAppOR")=AllObjects(i).GetROProperty("Html Tag")
    Next




    ‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    ' Create a Dynamic Object Repository for  any Web App – Model 2
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    ‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

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

    DataTable.AddSheet PageTitle

    DataTable.GetSheet(PageTitle).AddParameter "ObjectNo",""
    DataTable.GetSheet(PageTitle).AddParameter "ObjectClass",""
    DataTable.GetSheet(PageTitle).AddParameter "ObjectName",""
    DataTable.GetSheet(PageTitle).AddParameter "ObjectHtmlTag",""

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

    Set AllObjects=oPage.ChildObjects(oObj)
    For i= 0 to AllObjects.Count-1
    DataTable.GetSheet(PageTitle).SetCurrentRow(i+1)
    ' MsgBox i &vbtab & "Object Class"&vbtab & AllObjects(i).GetROProperty("micClass")
    ' MsgBox i &vbtab & "Object Name"&vbtab & AllObjects(i).GetROProperty("name")
    ' MsgBox i &vbtab & "Object Html Tag"&vbtab & AllObjects(i).GetROProperty("Html Tag")
    DataTable.Value("ObjectNo",PageTitle)=i
    DataTable.Value("ObjectClass",PageTitle)=AllObjects(i).GetROProperty("micClass")
    DataTable.Value("ObjectName",PageTitle)=AllObjects(i).GetROProperty("name")
    DataTable.Value("ObjectHtmlTag",PageTitle)=AllObjects(i).GetROProperty("Html Tag")
    Next


     DataTable.Export "D:\TestData\MyAppOR.xls"

    ‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    ‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

    Reactions:

    QTP - Descriptive Programing - Dynamic Object Repository Creation


    QTP - Descriptive Programing - Dynamic Object Repository Creation
     
    OneTestingCenter @ QTP @ Descriptive Programming @ Dynamic Object Repository Creation

    ‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    ' Create a Dynamic Object Repository for  any Web App – Model 1
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    ‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

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

    DataTable.AddSheet "dtAppOR"

    DataTable.GetSheet("dtAppOR").AddParameter "ObjectNo",""
    DataTable.GetSheet("dtAppOR").AddParameter "ObjectClass",""
    DataTable.GetSheet("dtAppOR").AddParameter "ObjectName",""
    DataTable.GetSheet("dtAppOR").AddParameter "ObjectHtmlTag",""

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

    Set AllObjects=oPage.ChildObjects(oObj)
    For i= 0 to AllObjects.Count-1
    DataTable.GetSheet("dtAppOR").SetCurrentRow(i+1)
    ' MsgBox i &vbtab & "Object Class"&vbtab & AllObjects(i).GetROProperty("micClass")
    ' MsgBox i &vbtab & "Object Name"&vbtab & AllObjects(i).GetROProperty("name")
    ' MsgBox i &vbtab & "Object Html Tag"&vbtab & AllObjects(i).GetROProperty("Html Tag")
    DataTable.Value("ObjectNo","dtAppOR")=i
    DataTable.Value("ObjectClass","dtAppOR")=AllObjects(i).GetROProperty("micClass")
    DataTable.Value("ObjectName","dtAppOR")=AllObjects(i).GetROProperty("name")
    DataTable.Value("ObjectHtmlTag","dtAppOR")=AllObjects(i).GetROProperty("Html Tag")
    Next




    ‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    ' Create a Dynamic Object Repository for  any Web App – Model 2
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    ‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

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

    DataTable.AddSheet PageTitle

    DataTable.GetSheet(PageTitle).AddParameter "ObjectNo",""
    DataTable.GetSheet(PageTitle).AddParameter "ObjectClass",""
    DataTable.GetSheet(PageTitle).AddParameter "ObjectName",""
    DataTable.GetSheet(PageTitle).AddParameter "ObjectHtmlTag",""

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

    Set AllObjects=oPage.ChildObjects(oObj)
    For i= 0 to AllObjects.Count-1
    DataTable.GetSheet(PageTitle).SetCurrentRow(i+1)
    ' MsgBox i &vbtab & "Object Class"&vbtab & AllObjects(i).GetROProperty("micClass")
    ' MsgBox i &vbtab & "Object Name"&vbtab & AllObjects(i).GetROProperty("name")
    ' MsgBox i &vbtab & "Object Html Tag"&vbtab & AllObjects(i).GetROProperty("Html Tag")
    DataTable.Value("ObjectNo",PageTitle)=i
    DataTable.Value("ObjectClass",PageTitle)=AllObjects(i).GetROProperty("micClass")
    DataTable.Value("ObjectName",PageTitle)=AllObjects(i).GetROProperty("name")
    DataTable.Value("ObjectHtmlTag",PageTitle)=AllObjects(i).GetROProperty("Html Tag")
    Next


     DataTable.Export "D:\TestData\MyAppOR.xls"

    ‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    ‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@