欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页

Qtp:登录操作,进行登录验证

程序员文章站 2022-07-16 18:27:11
...



 登录页面验证:

1.用户名输入框为空验证

2.密码为空验证

3.密码错误验证

4.正确登录验证

 

Datatable数据如下图:

Qtp:登录操作,进行登录验证
            
    
    博客分类: QTP QTP自动化测试datatable

 代码如下:

 

systemutil.CloseProcessByName "iexplore.exe"
systemutil.Run"iexplore.exe","www.testdbk.com",3
    '定义excle取值,excel表,行,列                     
Dim dtvalue,dtsheet,dataRow,dtvalue1,a
a=0
    '定位表格
set dtsheet = datatable.GetSheet("Action1")
  '设置起始行为第一行
dtsheet.SetCurrentRow(1)                                                             
For  i = 0 to dtsheet.GetRowCount+1
    dtvalue = datatable("A","Action1")
    dtvalue1= datatable("B","Action1")
    dtvalue = dtsheet.GetParameter("A").Value
    dtvalue1= dtsheet.GetParameter("B").Value
    dtvalue = dtsheet.GetParameter(1).value
    Dim Browser1
    Set Browser1 = Browser("micClass:=Browser").Page("micClass:=Page") 
    Browser1.WebElement("innertext:=登录").click
    Browser1.WebEdit("name:=username").Set dtvalue
    Browser1.WebEdit("type:=password").Set dtvalue1
    Browser1.WebElement("innertext:=登 录").click
    Dim strArr,abc
    strArr=array ( "用户名不能为空","密码不能为空","密码不正确","")

    If Browser1.WebElement("class:=am fl").Exist Then
        abc = Browser1.WebElement("class:=am fl").GetROProperty("innertext")
        If abc = strArr(a) Then
            reporter.ReportEvent micWarning,strArr(a),abc
        Else
                reporter.ReportEvent  micFail,strArr(a),abc
        End If
    Else
        Desktop.CaptureBitmap "D:\截图\登录完成.png"true
        reporter.ReportEvent  micPass,"登录成功","登录完成.png"
    End If
    systemutil.CloseProcessByName "iexplore.exe"
    systemutil.Run"iexplore.exe","www.testdbk.com",3
    dtsheet.SetNextRow
    i=i+1
    a=a+1
next

 

问题描述:

1. 是否能够优化表格列的读取,若为多列可以如何修改,进行遍历。

2. 提示内容的校验,是否能更好的适配提示内容的变化。

 

  • Qtp:登录操作,进行登录验证
            
    
    博客分类: QTP QTP自动化测试datatable
  • 大小: 9.5 KB