QTP测试示例程序

本文为使用QTP测试自带例子航班订票系统的测试：

下面为录制脚本的截屏：

对应的脚本为

Dialog("Login").Check CheckPoint("Login")
Dialog("Login").Activate
Dialog("Login").WinEdit("Agent Name:").Set Environment("AgentName")
Dialog("Login").WinEdit("Password:").Type Environment("Password")

Dialog("Login").WinButton("OK").Click
Call Test1
Dialog("Login").Dialog("Flight Reservations").Activate
Dialog("Login").WinButton("Cancel").Click

Public Function Test1
       ' TODO: add function body here
    Reporter.ReportEvent micDone,  "LoginTest",  "Test1"
End Function
Reporter.ReportEvent micDone, "LoginTest", "完成录制"

其中自定义了一个函数Test1,并在前面用Call Test1进行调用

QTP会把录制的屏幕在下面Active Screen中进行显示，红色的方框表示正获得焦点的控件(窗体)

 单击运行按钮即可进行测试