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

 登录页面验证：

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

2.密码为空验证

3.密码错误验证

4.正确登录验证

 

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. 提示内容的校验，是否能更好的适配提示内容的变化。