UFT测试本地应用程序登陆小实例（描述性编程）

最新推荐文章于 2023-05-14 19:34:18 发布

转载最新推荐文章于 2023-05-14 19:34:18 发布 · 369 阅读

1 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/william126/p/8595713.html

文章标签：

#java

本文介绍了一种使用Excel表格数据进行自动化登录测试的方法。通过读取Excel文件中的用户名和密码，循环执行登录操作，并验证登录后的页面显示是否符合预期。此外还涉及了登录失败情况的处理及结果记录。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Dim username,password
Dim casecount,i
Dim currentid

DataTable.ImportSheet "C:\Users\john\Desktop\william.xlsx",1,"Action1"
casecount=datatable.Getsheet("Action1").GetRowCount

For i = 1 To casecount
    username=DataTable("username","Action1")
    password=DataTable("password","Action1")
    Dialog("Login").WinEdit("Agent Name:").Set username
    Dialog("Login").WinEdit("Password:").Set password
    Dialog("Login").WinButton("OK").Click

    If Dialog("Login").Dialog("Flight Reservations").Exist(3) Then
        ex=DataTable("ex","Action1")
        ac=Dialog("Login").Dialog("Flight Reservations").Static("Please enter agent name").GetROProperty("text")
        If ex=ac Then
            DataTable("test","Action1")="PASS"
        else
            DataTable("test","Action1")="Fail"
            DataTable("acresult","Action1")=ac
        End If
        if Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Exist(5) Then
            Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click
        End if
    elseif Dialog("Flight Reservations").WinButton("确定").Exist(10) Then
        Dialog("Flight Reservations").WinButton("确定").Click
        msgbox "test"    
        If window("Flight Reservation").Exist(3) Then
            currentid=dataTable.GetSheet("Action1").GetCurrentRow
            window("Flight Reservation").Close
            If currentid=casecount Then
                dataTable("test","Action1")="PASS"
            else
                reporter.ReportEvent micFail,"Flight","wrong user and password"
            End If
        else
            reporter.ReportEvent micFail,"Flight","No response"
        End If    
    End If
    DataTable.GetSheet("Action1").SetNextRow
Next
DataTable.Export "C:\Users\john\Desktop\william.xlsx"
'Window("Flight Reservation").Close

'Dim casecount
'
'DataTable.ImportSheet "C:\Users\john\Desktop\william.xlsx",1,"Action1"
'casecount=datatable.Getsheet("Action1").GetRowCount
'msgbox "123 "&casecount&"   dddd"


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