|
偶最近在学习qtp,花了1天半的时间终于将翻页脚本写好,具体脚本在下面:
//录制程序自动生成脚本
Browser("申请业务").Page("登录系统").WebEdit("userName").Set "admin"
Browser("申请业务").Page("登录系统").WebEdit("userPwd").SetSecure "4795a6b7996194ad"
Browser("申请业务").Page("登录系统").Image("btn_dl").Click
Browser("申请业务").Page("商旅信息管理").WebButton("商旅业务").Click
Browser("申请业务").Page("商旅信息管理").Frame("workplat").Link("下一页").Click
Browser("申请业务").Page("商旅信息管理").Frame("workplat_3").Link("111111111111").Click
Browser("申请业务").Page("商旅信息管理").Frame("workplat_4").WebButton("返回客户列表").Click
//取出页面中的对象,通过qtp中的object spy 工具来找出所取对象的属性,定义对象ODESC,
Set ōDesc = descrīption.Create()
oDesc("html id").Value = "ctl00_ContentPlaceHolder1_gtvCustomer" oDesc("html tag").Value = "table"
Set Lists = Browser("申请业务").Page("商旅信息管理").ChildObjects(oDesc)
Set myobj = Lists.item(0)
dim state
state = 0
For i = 1 to myobj.rowcount-1
dim j
j = trim( myobj.getcelldata(i,2))
If j = "周测试6" Then
state =1
End If
Next
If state = 0 Then
Browser("申请业务").Page("商旅信息管理").Frame("workplat").Link("下一页").Click
End If
此脚本能实现根据参数判断来翻页的功能,但是还要改写一下,偶现在也比较懒,有问题就提吧
[ 本帖最后由 mexia 于 2008-1-23 14:46 编辑 ] |
|