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