qtp如何软件测试,QTP—Windows程序测试

Set WshShell = CreateObject("WScript.Shell")

If Not Dialog("Login").Exist Then '如果程序退出了再打开它

Set oExec = WshShell.Exec("D:\Program Files (x86)\HP\Unified Functional Testing\samples\flight\app\flight4b.exe")

End if

Dialog("Login").WinEdit("Agent Name:").Set DataTable("name", dtLocalSheet)  ' 从表中读取用户名

Dialog("Login").WinEdit("Agent Name:").Type  micTab  ' tab到密码

Dialog("Login").WinEdit("Password:").SetSecure DataTable("password", dtLocalSheet)  ' 从表中读取密码

Dialog("Login").WinButton("OK").Click  ' 点击登录

If Dialog("Login").Dialog("Flight Reservations").Exist Then           ' 登录失败

reporter.ReportEvent 0,"登录功能测试","登录失败！"    ' 输出一个报告

Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click

Dialog("Login").WinButton("Cancel").Click                         ' 退出程序

Else  ' 登录成功 购票

reporter.ReportEvent 0,"登录功能测试","登录成功！"

Window("Flight Reservation").WinObject("Date of Flight:").Type "051416"

Window("Flight Reservation").WinComboBox("Fly From:").Select "Denver"

Window("Flight Reservation").WinComboBox("Fly To:").Select "London"

Window("Flight Reservation").WinButton("FLIGHT").Click

Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click

Window("Flight Reservation").WinEdit("Name:").Set "12345"

Window("Flight Reservation").WinRadioButton("First").Set

Window("Flight Reservation").WinEdit("Tickets:").SetSelection 0,1

Window("Flight Reservation").WinEdit("Tickets:").Set "3"

Window("Flight Reservation").WinButton("Insert Order").Click

Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"     ' 退出程序

End if