飞机登录系统脚本问题
上一篇 /
下一篇 2012-10-18 17:17:12
/ 个人分类:自动化
下面是我录制的一个飞机登录系统的脚本,为什么在运行到datatable的第四行就结束程序了。第五行的值不会执行?如果action-call call properties-run设置为run all rows时datatable的值都可以执行,但是会重复执行五次?
Dim url
Dim expa
Dim fact
expa=datatable("expect",dtlocalsheet)
fact=datatable("outmsg",dtlocalsheet)
url="C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
If Dialog("Login").Exist(1)Then
Dialog("Login").WinEdit("Agent Name:").Set DataTable("username", dtLocalSheet)
Dialog("Login").WinEdit("Agent Name:").Type micTab
Dialog("Login").WinEdit("Password:").SetSecure DataTable("pwd", dtLocalSheet)
Dialog("Login").WinButton("OK").Click
else
SystemUtil.run url
Dialog("Login").WinEdit("Agent Name:").Set DataTable("username", dtLocalSheet)
Dialog("Login").WinEdit("Agent Name:").Type micTab
Dialog("Login").WinEdit("Password:").SetSecure DataTable("pwd", dtLocalSheet)
Dialog("Login").WinButton("OK").Click
End If
If Dialog("Login").Dialog("Flight Reservations").Exist(2) Then
Dialog("Login").Dialog("Flight Reservations").Static("Incorrect password. Please try again").Output CheckPoint("Incorrect password. Please try again_3")
Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click
Reporter.ReportEvent 1,"登录功能测试","预期输出结果为:"+expa+"实际输出结果:"+fact
Dialog("Login").Close
else
If Window("Flight Reservation").Exist (2) Then
Reporter.ReportEvent micPass, "登录验证通过","用户名密码正确"
Window("Flight Reservation").close
End If
End If
收藏
举报
TAG:
QTP
qtp
登录系统