QTP描述性编程几个示例

1、打开IE浏览器，登录系统

Option explicit '打开变量需定义选项
Dim url
url="http://192.168.1.120:8080/index.do"
systemutil.Run"iexplore",url
Browser("micclass:=Browser").Sync '等待页面完全打开
Browser("micclass:=Browser").Page("micclass:=Page").WebEdit("name:=loginname").set "baseadmin"
Browser("micclass:=Browser").Page("micclass:=Page").WebEdit("name:=password").setSecure "585c8b6e657fa73b016efb5f9bd84bf4780e"
Browser("micclass:=Browser").Page("micclass:=Page").WebButton("name:=登录").Click

2、描述性正则表达式应用

'点击系统管理菜单
Browser("name:=实验室信息管理系统").Page("title:=实验室信息管理系统").Link("name:=系统管理").Click
'点击账户管理子菜单
Browser("name:=实验室信息管理系统").Page("title:=实验室信息管理系统").Link("name:=账户管理").Click
'点击新增按钮，新增账户A
Browser("name:=实验室信息管理系统").Page("title:=实验室信息管理系统").Frame("name:=iframe[1-9]{1}\d{0,}").Link("name:=新增").Click   

'这里使用了正则表达式，iframe非0数字至少出现一次
Browser("name:=实验室信息管理系统").Page("title:=实验室信息管理系统").Frame("name:=iframe[1-9]{1}\d{0,}").WebEdit("name:=loginName").Set DataTable.GlobalSheet.GetParameter("登录名称").ValueByRow(1)
Browser("name:=实验室信息管理系统").Page("title:=实验室信息管理系统").Frame("name:=iframe[1-9]{1}\d{0,}").WebEdit("name:=password").SetSecure DataTable.GlobalSheet.GetParameter("密码").ValueByRow(1)
Browser("name:=实验室信息管理系统").Page("title:=实验室信息管理系统").Frame("name:=iframe[1-9]{1}\d{0,}").WebList("name:=isUse").Select DataTable.GlobalSheet.GetParameter("是否启用").ValueByRow(1)

3、模拟按Enter键操作

Browser("实验室信息管理系统").Page("实验室信息管理系统").Frame("layui-layer-iframe2").WebEdit("no").Set "base"  '查找系统管理员
'点击该输入框后，按回车键
Browser("实验室信息管理系统").Page("实验室信息管理系统").Frame("layui-layer-iframe2").WebEdit("no").Click  '注意这里需要先定位光标位置
Dim wshShell
set wshShell=CreateObject("wscript.shell")
wshShell.sendkeys "{ENTER}"
set wshShell=nothing

4、网页获取列表内容并对比

'验证查询到的内容正确
Dim rows,n,temp
rows=Browser("name:=实验室信息管理系统").Page("title:=实验室信息管理系统").Frame("name:=iframe[1-9]{1}\d{0,}").WebTable("class:=ui-jqgrid-btable ui-common-table table table-bordered").RowCount
'msgbox "获得行数："&rows
If rows<2 Then
exitRun
End If


Dim cmp,i
'数组初始化是这样使用的
cmp=Array("业务部","系统管理员","zhanghuA","停用")
i=0


'比较列表低4至7列的内容
For n=4 to 7
temp=Browser("name:=实验室信息管理系统").Page("title:=实验室信息管理系统").Frame("name:=iframe[1-9]{1}\d{0,}").WebTable("class:=ui-jqgrid-btable ui-common-table table table-bordered").GetCellData(2,n)  '获取第2行第n列内容
'msgbox temp
If temp<>cmp(i) Then
exitRun
End If
i=i+1
Next

5、验证登录失败

'验证登录失败，并提示“账户未启用”
If not Browser("name:=实验室信息管理系统").Page("title:=实验室信息管理系统").Link("name:=退出").Existthen
exitRun
End If