• 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.



    'Automation Object Model

    '******************************************************************** 
    '******************************************************************** 
    ' GAReddy @ OneTestingCenter @ QTP - AOM (Automation Object Model)
    ' What ==>  This is a QTP - AOM Script to Open QTP and to working with QTP Batch Tests
    ' How ==> Need QuickTest.Application Automation Object to do so
    ' Why ==> To number of tests (one by one )
    ' Author : GAReddy @ OneTestingCenter @ QTP
    '****************************************************************** 
    '****************************************************************** 

    Set oQTP = CreateObject("QuickTest.Application")

    oQTP.Launch
    oQTP.Visible = True
    oQTP.WindowState = "Maximized" ' Maximize the QuickTest window
    oQTP.ActivateView "ExpertView" ' Display the Expert View

    'oQTP.open "D:\OneTestingCenter\QTP\GAReddy@DemoTests\QTP_PageInfo", False
    'Opens the test in editable mode
    Dim QTP_Tests(4)

    QTP_Tests(1)="D:\OneTestingCenter\QTP\GAReddy@DemoTests\QTP_PageInfo"
    QTP_Tests(2)="D:\OneTestingCenter\QTP\GAReddy@DemoTests\QTP_WebEditInfo"
    QTP_Tests(3)="D:\OneTestingCenter\QTP\GAReddy@DemoTests\QTP_RadioGroupInfo"
    QTP_Tests(4)="D:\OneTestingCenter\QTP\GAReddy@DemoTests\QTP_ImagesInfo"

    Set QTPResultsOptions=CreateObject("QuickTest.RunResultsOptions")

    For i=1 To UBound(QTP_Tests)
    oQTP.Open QTP_Tests(i), True
    QTPResultsOptions.ResultsLocation=QTP_Tests(i)& "\Res1"


    oQTP.Test.Run QTPResultsOptions, True
    oQTP.Test.Close
    Next

    oQTP.Quit
    Set QTPResultsOptions=Nothing
    'Set QTP_Tests=Nothing
    Set oQTP=Nothing

    '***************************************************************
    '*************************************************************** 
    Reactions:

    QTP - AOM - Running Batch Tests



    'Automation Object Model

    '******************************************************************** 
    '******************************************************************** 
    ' GAReddy @ OneTestingCenter @ QTP - AOM (Automation Object Model)
    ' What ==>  This is a QTP - AOM Script to Open QTP and to working with QTP Batch Tests
    ' How ==> Need QuickTest.Application Automation Object to do so
    ' Why ==> To number of tests (one by one )
    ' Author : GAReddy @ OneTestingCenter @ QTP
    '****************************************************************** 
    '****************************************************************** 

    Set oQTP = CreateObject("QuickTest.Application")

    oQTP.Launch
    oQTP.Visible = True
    oQTP.WindowState = "Maximized" ' Maximize the QuickTest window
    oQTP.ActivateView "ExpertView" ' Display the Expert View

    'oQTP.open "D:\OneTestingCenter\QTP\GAReddy@DemoTests\QTP_PageInfo", False
    'Opens the test in editable mode
    Dim QTP_Tests(4)

    QTP_Tests(1)="D:\OneTestingCenter\QTP\GAReddy@DemoTests\QTP_PageInfo"
    QTP_Tests(2)="D:\OneTestingCenter\QTP\GAReddy@DemoTests\QTP_WebEditInfo"
    QTP_Tests(3)="D:\OneTestingCenter\QTP\GAReddy@DemoTests\QTP_RadioGroupInfo"
    QTP_Tests(4)="D:\OneTestingCenter\QTP\GAReddy@DemoTests\QTP_ImagesInfo"

    Set QTPResultsOptions=CreateObject("QuickTest.RunResultsOptions")

    For i=1 To UBound(QTP_Tests)
    oQTP.Open QTP_Tests(i), True
    QTPResultsOptions.ResultsLocation=QTP_Tests(i)& "\Res1"


    oQTP.Test.Run QTPResultsOptions, True
    oQTP.Test.Close
    Next

    oQTP.Quit
    Set QTPResultsOptions=Nothing
    'Set QTP_Tests=Nothing
    Set oQTP=Nothing

    '***************************************************************
    '***************************************************************