飞机订票系统登录测试脚本

Dim url
url="C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4b.exe"

If Dialog("Login").Exist(1) Then

OptionalStep.Dialog("Login").WinEdit("Agent Name:").Set DataTable("UserName", dtGlobalSheet)
OptionalStep.Dialog("Login").WinEdit("Password:").Set DataTable("Passwd", dtGlobalSheet)
OptionalStep.Dialog("Login").WinButton("OK").Click

else
'如果QTP不能自己打开被测试程序就使用该功能打开
SystemUtil.Run url
OptionalStep.Dialog("Login").WinEdit("Agent Name:").Set DataTable("UserName", dtGlobalSheet)
OptionalStep.Dialog("Login").WinEdit("Password:").Set DataTable("Passwd", dtGlobalSheet)
OptionalStep.Dialog("Login").WinButton("OK").Click

End If

'检查点

If Dialog("Login").Dialog("Flight Reservations").Exist(2)Then

Dim Errorinfor

'对错误提示信息做一个检查点，并根据实际情况进行参数化

Dialog("Login").Dialog("Flight Reservations").Static("Agent name must be at").Check CheckPoint("Agent name must be at")

Errorinfor=Dialog("Login").Dialog("Flight Reservations").Static("Agent name must be at").GetROProperty("text")

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


'学习一下Reporter方法的用法

Reporter.ReportEvent micPass, "用户名验证通过，提示信息如下",Errorinfor

OptionalStep.Dialog("Login").Close

else

'如果用户名和密码正确就进入订票页面

If Window("Flight Reservation").Exist (2) Then

Reporter.ReportEvent micPass, "登录验证通过","用户名密码正确"

Window("Flight Reservation").close

End If

End If

参数化内容