本文为使用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中进行显示，红色的方框表示正获得焦点的控件(窗体)
单击运行按钮即可进行测试
