QTP AOM (Automation Object Model) can be used to automate
QTP Operations. Using the
objects, methods, and properties exposed by the Quick Test automation object
model,we can execute script, configure options settings,
Creating the QTP Object
Below lines of
codes creates an instance of QTP,launches QTP and makes it visible.
Dim qtApp
If we want to execute on a remote computer, we use
Set qtApp =
CreateObject("QuickTest.Application",”server”)
If we want to connect to QC from QTP AOM
qtApp.TDConnection.connect “QC URL”,”Domain”,”Project”,”User”,”Pwd”
Working With QTP Tests using AOM
Open a new Test
Dim qtApp
Set qtApp =
CreateObject("QuickTest.Application")
qtApp.Launch 'Start QTP
qtApp.Visible = True
qtApp.New
Opening an Existing Test
qtApp.Open “Test Path”,”True” ‘ Opens in read only
mode.
Running a test through AOM
qtApp.Test.Run
Saving a test in QTP
If qtApp.Test.IsNew Then qtApp.Test.SaveAs
"C:\QTP\testqtp"
Else
qtApp.Test.Save
End If
Generating script for QTP Settings and QTP Options for AOM
Defining Settings in QTP
To know, how
settings are defined and QTP object is launched, and settings are defined
using AOM, Go to File>Settings>Properties and click on Generate Script.
This will generate a script with all the default setting parameters
The Content of the
script will be as follows:
Dim App 'As Application
Set App =
CreateObject("QuickTest.Application")
App.Launch
App.Visible = True
App.Test.Settings.Launchers("Web").Active = False
App.Test.Settings.Launchers("Web").Browser
= "IE"
App.Test.Settings.Launchers("Web").Address
= "http://www.rediff.com"
App.Test.Settings.Launchers("Web").CloseOnExit
= True
App.Test.Settings.Launchers("Windows
Applications").Active = True
App.Test.Settings.Launchers("Windows
Applications").Applications.RemoveAll
App.Test.Settings.Launchers("Windows
Applications").RecordOnQTDescendants = True
App.Test.Settings.Launchers("Windows
Applications").RecordOnExplorerDescendants = False
App.Test.Settings.Launchers("Windows
Applications").RecordOnSpecifiedApplications = True
App.Test.Settings.Run.IterationMode =
"rngAll"
App.Test.Settings.Run.StartIteration = 1
App.Test.Settings.Run.EndIteration = 1
App.Test.Settings.Run.ObjectSyncTimeOut = 20000
App.Test.Settings.Run.DisableSmartIdentification =
False
App.Test.Settings.Run.OnError = "Dialog"
App.Test.Settings.Resources.DataTablePath =
"<Default>"
App.Test.Settings.Resources.Libraries.RemoveAll
App.Test.Settings.Web.BrowserNavigationTimeout =
60000
App.Test.Settings.Web.ActiveScreenAccess.UserName
= ""
App.Test.Settings.Web.ActiveScreenAccess.Password
= ""
Defining Options in QTP
To know the current options settings in QTP, we can generate a script similar to Settings as defined above through Tools>Options>General and clicking on generate scripts.
Set App = CreateObject("QuickTest.Application")
App.Launch
App.Visible = True
App.Options.DisableVORecognition = False
App.Options.AutoGenerateWith = False
App.Options.WithGenerationLevel = 2
App.Options.TimeToActivateWinAfterPoint = 500
App.Options.SaveLoadAndMonitorData = True
App.Options.Run.RunMode = "Fast"
App.Options.Run.ViewResults = True
App.Options.Run.StepExecutionDelay = 0
App.Options.Run.MovieCaptureForTestResults = "Never"
App.Options.Web.AddToPageLoadTime = 10
App.Options.Web.RecordCoordinates = False
App.Options.Web.RecordMouseDownAndUpAsClick = False
App.Options.Web.RecordAllNavigations = False
App.Options.Web.RecordByWinMouseEvents = ""
App.Options.Web.BrowserCleanup = False
App.Options.Web.RunOnlyClick = False
App.Options.Web.RunMouseByEvents = True
App.Options.Web.RunUsingSourceIndex = True
App.Options.Web.EnableBrowserResize = True
App.Options.Web.PageCreationMode = "URL"
App.Options.Web.CreatePageUsingUserData = "Get Post"
App.Options.Web.CreatePageUsingNonUserData = ""
App.Options.Web.CreatePageUsingAdditionalInfo = True
App.Options.Web.FrameCreationMode = "URL"
App.Options.Web.CreateFrameUsingUserData = "Get Post"
App.Options.Web.CreateFrameUsingNonUserData = ""
App.Options.Web.CreateFrameUsingAdditionalInfo = True
App.Options.WindowsApps.AttachedTextRadius = 35
App.Options.WindowsApps.AttachedTextArea = "TopLeft"
App.Options.WindowsApps.ExpandMenuToRetrieveProperties = True
App.Options.WindowsApps.NonUniqueListItemRecordMode = "ByName"
App.Options.WindowsApps.RecordOwnerDrawnButtonAs = "PushButtons"
App.Options.WindowsApps.ForceEnumChildWindows = 0
App.Options.WindowsApps.ClickEditBeforeSetText = 0
App.Options.WindowsApps.VerifyMenuInitEvent = 0
App.Options.TextRecognitionOrder = "APIThenOCR"
App.Folders.RemoveAll
