QTP 11.00 ——简单脚本如何录制

以QTP 11.00自带的订飞机票的小示例程序为例，手工开发以下脚本代码：

If Dialog("Login").Dialog("Flight Reservations").Exist(2)Then
  Dialog("Login").Dialog("FlightReservations").WinButton("确定").Click
End If
Dialog("Login").WinEdit("Agent Name:").Set "test"
Dialog("Login").WinEdit("Agent Name:").Type micTab
Dialog("Login").WinEdit("Password:").SetSecure"5103f48e3ccaaa3c50b39191d30cc0e56ac005b2"
Dialog("Login").WinEdit("Password:").Type micReturn
If Window("Flight Reservation").Exist(5) Then
  Wait(3)
End If
Window("Flight Reservation").ActiveX("MaskEdBox").Type"013113"
Window("Flight Reservation").WinComboBox("Fly From:").Select"Denver"
Window("Flight Reservation").WinComboBox("Fly To:").Select"Paris"
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("FlightsTable").WinList("From").Select"15791  DEN   03:12PM  PAR   05:12PM  AF    $165.60"
Window("Flight Reservation").Dialog("FlightsTable").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set "bussiness"
Window("Flight Reservation").WinButton("Insert Order").Click
msgbox "Finished! Program will exit!"
Window("Flight Reservation").Close

===============================================================

首先是要判断主界面是否正常，如果Help按钮被点击过了，则先恢复它。

用户名和密码输入完成之后，因为不同的机器性能表现不同，为了脚本达到同步，检查软件主界面是否加载成功，未成功时等待3秒再判断，直到成功再进入下一步。

完成之后输出提示信息，在用户确认之后再关闭程序。

好了，最主要的调整就到这里了，下一步也就是最关键的步骤，就是参数化了。下期发布。