QTP本身可以使用HP-QTP提供的COM接口自动完成.自动化对象模型是一组对象,方法和属性,可帮助测试人员使用QTP接口控制配置设置和执行脚本.可以控制(但不限于)的键配置/操作列在下面和下面;
加载所有必需的加载项测试
执行时显示QTP
使用指定位置打开测试
关联功能库
指定公共对象同步超时
开始和结束迭代
启用/禁用智能识别
错误设置
数据表路径
恢复方案设置
日志跟踪设置
QTP 11.5x提供有关自动化对象模型的专有文档,可通过导航到"开始">>来引用. "所有程序">> "HP软件">> "HP Unified Functional Testing">> "文档">> "统一功能测试自动化参考".
生成AOM脚本
测试人员可以使用"生成脚本"选项从QTP本身生成AOM脚本.导航到"运行">> "设置">> "属性"标签>> "生成脚本"如下所示 :
示例
' A Sample Script to Demostrate AOMDim App 'As ApplicationSet App = CreateObject("QuickTest.Application")App.LaunchApp.Visible = TrueApp.Test.Settings.Launchers("Web").Active = FalseApp.Test.Settings.Launchers("Web").Browser = "IE"App.Test.Settings.Launchers("Web").Address = "http://easycalculation.com/"App.Test.Settings.Launchers("Web").CloseOnExit = TrueApp.Test.Settings.Launchers("Windows Applications").Active = FalseApp.Test.Settings.Launchers("Windows Applications").Applications.RemoveAllApp.Test.Settings.Launchers("Windows Applications").RecordOnQTDescendants = TrueApp.Test.Settings.Launchers("Windows Applications").RecordOnExplorerDescendants = FalseApp.Test.Settings.Launchers("Windows Applications").RecordOnSpecifiedApplications = TrueApp.Test.Settings.Run.IterationMode = "rngAll"App.Test.Settings.Run.StartIteration = 1App.Test.Settings.Run.EndIteration = 1App.Test.Settings.Run.ObjectSyncTimeOut = 20000App.Test.Settings.Run.DisableSmartIdentification = FalseApp.Test.Settings.Run.OnError = "Dialog"App.Test.Settings.Resources.DataTablePath = ""App.Test.Settings.Resources.Libraries.RemoveAllApp.Test.Settings.Web.BrowserNavigationTimeout = 60000App.Test.Settings.Web.ActiveScreenAccess.UserName = ""App.Test.Settings.Web.ActiveScreenAccess.Password = ""App.Test.Settings.Recovery.Enabled = TrueApp.Test.Settings.Recovery.SetActivationMode "OnError"App.Test.Settings.Recovery.Add "D:\GUITest2\recover_app_crash.qrs", "Recover_Application_Crash", 1App.Test.Settings.Recovery.Item(1).Enabled = True ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' System Local Monitoring settings''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''App.Test.Settings.LocalSystemMonitor.Enable = false''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Log Tracking settings''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''With App.Test.Settings.LogTracking .IncludeInResults = False .Port = 18081 .IP = "127.0.0.1" .MinTriggerLevel = "ERROR" .EnableAutoConfig = False .RecoverConfigAfterRun = False .ConfigFile = "" .MinConfigLevel = "WARN" End With