以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秒再判斷，直到成功再進入下一步。
完成之后輸出提示信息，在用戶確認之后再關閉程序。
好了，最主要的調整就到這里了，下一步也就是最關鍵的步驟，就是參數化了。下期發布。