QTP 自动化测试 实例一,小飞机标题验证

作业：实例一，小飞机标题验证：预期：pawd

'表有多少行，运行多少遍

For i=1to datatable.LocalSheet.GetRowCount

'打开程序

SystemUtil.Run"C:\ProgramFiles\HP\QuickTest Professional\samples\flight\app\flight4a.exe" '输入表中id

Dialog("Login").WinEdit("Agent Name:").Set (datatable("id","Action1"))

'输入表中密码

Dialog("Login").WinEdit("Password:").SetSecure (datatable("pasd","Action1"))

'点击确定

Dialog("Login").WinButton("OK").Click

'如果大框存在2s 然后

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

'msgbox “y”

‘打印日志报告-成功

reporter.ReportEvent micPass,"检查点","检查结果"

Window("Flight Reservation").Close ‘大框关闭

'或者小框存在然后提取小框文本2s

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

a=Dialog("Login").Dialog("FlightReservations").Static("Pleaseenterpassword").GetROProperty( "text")

If a=(datatable("exp","Action1")) Then

'msgbox"y"

‘打印日志报告-成功

reporter.ReportEvent micPass,"检查点","检查结果"

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

Dialog("Login").WinButton("Cancel").Click

else

'msgbox"n"

‘打印日志报告-失败

reporter.ReportEvent micfail,"检查点","检查结果"

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

Dialog("Login").WinButton("Cancel").Click

End If

End If

‘从下一行开始

datatable.LocalSheet.SetNextRow

Next