以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秒再判断，直到成功再进入下一步。
完成之后输出提示信息，在用户确认之后再关闭程序。
好了，最主要的调整就到这里了，下一步也就是最关键的步骤，就是参数化了。下期发布。