登录设计

scanli100

Dim hint_msg
Dim hint
Dim ActualDialogPopup

InvokeApplication "D:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"

' 参数化user和password值
Dialog("Login").WinEdit("Agent Name:").Set DataTable("user", dtGlobalSheet)
Dialog("Login").WinEdit("Password:").Set DataTable("password", dtGlobalSheet)
Dialog("Login").WinButton("OK").Click
hint = DataTable("hint", dtGlobalSheet)
' 判断弹出错误提示框的正确性，如果输入了正确密码，而用户名又大于4个字符则不弹出错误提示框，否则弹出错误提示框。
If Dialog("Login").Dialog("Flight Reservations").Exist then
        ActualDialogPopup = "TRUE"
else
        ActualDialogPopup = "FALSE"
end if
ExpectedDialogPopup = DataTable("ExpectedDialogPopup", dtGlobalSheet)
If (ActualDialogPopup = ExpectedDialogPopup) then
        Reporter.ReportEvent micpass, "登陆", "程序判断正确."

        ' 如果弹出错误提示框，通过对比hint
        If  ActualDialogPopup = "TRUE" Then
                hint_msg = Dialog("Login").Dialog("Flight Reservations").Static("Static").GetROProperty("text")
       
                If (hint = hint_msg) Then
                        Reporter.ReportEvent micpass, "登陆错误提示", "错误提示信息正确."
                else
                        Reporter.ReportEvent micFail, "登陆错误提示", "错误提示信息错误."
                End if
       
                Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click
                Dialog("Login").Close
               
        else
                 Window("Flight Reservation").Close
        End If

else
   Reporter.ReportEvent micfail, "登陆", "程序判断错误."
   If  ActualDialogPopup = "TRUE" Then
     Dialog("Login").Dialog("Flight Reservations").Close
     Dialog("Login").Close
  else
     Window("Flight Reservation").Close
  end if
End If

[ 本帖最后由 scanli100 于 2006-8-27 21:43 编辑 ]

skyzhu

总感觉复杂了点,还有对窗口存在的判断
If Dialog("Login").Dialog("Flight Reservations").Exist(3) then
Exist后面可以加时间(秒),否则好像会等着的,时间还蛮长的

lyscser

我对VB脚本一点也不熟悉
不知道如何去学习
求达人指教

walker1020

机器总归没有人聪明，现在的电脑也没有发展到和人的智力水平一样的程度，所以 Dialog("Login").Dialog("Flight Reservations").Exist 时候 它会不停的选择这个对象，直到确认确实是没有找到这个对象才停止，所以你感觉“时间还蛮长的”。用 Dialog("Login").Dialog("Flight Reservations").Exist(3) 作为条件进行判断不一定准备，但用楼主的 Dialog("Login").Dialog("Flight Reservations").Exist 是可以的。

QA_BAY

跟QTP自带的例子差不多!但还是要谢谢楼主分享经验!
其实登录有很多写法,主要还是要看你的测试用例怎么设计的,这个才是要点!