QTP - Mô hình đối tượng tự động hóa

Bản thân QTP có thể được tự động hóa bằng giao diện COM do HP-QTP cung cấp. Mô hình đối tượng tự động hóa là một tập hợp các đối tượng, phương thức và thuộc tính giúp người kiểm tra kiểm soát cài đặt cấu hình và thực thi các tập lệnh bằng giao diện QTP. Các cấu hình / hành động chính có thể được kiểm soát (nhưng không giới hạn) được liệt kê bên dưới:

Tải tất cả các phần bổ trợ bắt buộc để kiểm tra
Làm cho QTP hiển thị trong khi thực thi
Mở Kiểm tra bằng cách sử dụng vị trí được chỉ định
Thư viện chức năng liên kết
Chỉ định thời gian hết thời gian đồng bộ đối tượng chung
Bắt đầu và Kết thúc Lặp lại
Bật / Tắt Nhận dạng Thông minh
Trên Cài đặt Lỗi
Đường dẫn bảng dữ liệu
Cài đặt tình huống khôi phục
Cài đặt theo dõi nhật ký

QTP 11.5x cung cấp một tài liệu độc quyền về mô hình Đối tượng Tự động hóa có thể được tham khảo bằng cách điều hướng đến "Bắt đầu" >> "Tất cả Chương trình" >> "Phần mềm HP" >> "Kiểm tra Chức năng Hợp nhất của HP" >> "Tài liệu" >> "Hợp nhất Tài liệu tham khảo về Tự động hóa Kiểm tra Chức năng ".

Tạo tập lệnh AOM

Người kiểm tra có thể tạo tập lệnh AOM từ chính QTP, sử dụng tùy chọn "Tạo tập lệnh". Điều hướng đến "Run" >> "Settings" >> Tab "Properties" >> "Generate Script" như hình dưới đây -

Thí dụ

' A Sample Script to Demostrate AOM
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://easycalculation.com/"
App.Test.Settings.Launchers("Web").CloseOnExit = True

App.Test.Settings.Launchers("Windows Applications").Active = False
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 = ""

App.Test.Settings.Recovery.Enabled = True
App.Test.Settings.Recovery.SetActivationMode "OnError"
App.Test.Settings.Recovery.Add "D:\GUITest2\recover_app_crash.qrs", 
   "Recover_Application_Crash", 1
App.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