TA的每日心情 | 奋斗 2015-3-30 15:24 |
---|
签到天数: 3 天 连续签到: 1 天 [LV.2]测试排长
|
'-------------------脚本说明---------------
'产品版本BPM(V1.0)
'测试员:Anna
'编写日期:2013-05-17
'测试功能:登陆
'脚本类型:VBS
'被测试对象初始状态:
'进展程度:第一阶段
'--------------------脚本内容-------------
'通过读取Excel数据登录系统
Dim i,rowcount,filepath
filepath = "d:\data\login.xls"
datatable.AddSheet("TestData")
datatable.ImportSheet filepath,"Sheet1","TestData"
rowcount = datatable.GetSheet("TestData").GetRowCount
'Function getExcelDataInfo(filepath,rowcount,DataTable)
' DataTable.AddSheet("TestData")
' DataTable.ImportSheet filepath,"Sheet1","TestData"
' rowcount = datatable.GetSheet("TestData").GetRowCount
'End Function
With Browser("业务流程管理系统登录页面")
For i = 1 to rowcount
datatable.SetCurrentRow i
UserName = datatable("username","TestData")
PassWord = datatable("password","TestData")
With .Page("业务流程管理系统登录页面")
.WebElement("html id:=bu").Click'请输入用户名
.WebEdit("name:=txt_Username","html id:=txt_Username").Set UserName'用户名
wait 3
.WebElement("html id:=bp").Click'请输入密码
.WebEdit("name:=txt_Password","html id:=txt_Password").SetSecure PassWord'密码
wait 3
.WebButton("登 录").Click
End With
wait 2
With .Dialog("来自网页的消息")
If .WinButton("确定").Exist(7) Then
Reporter.ReportEvent micPass,"登录失败","Display"
.WinButton("确定").Click
ELSE
Reporter.ReportEvent micPass,"登陆成功","pass"
End If
End With
datatable.SetNextRow '下一行
If datatable.GetCurrentRow > rowcount then '如果当前行大于总行数,退出循环
Exit for
End If
Next
RunAction"创建设备",onelteration
End With |
|