QTP 学习笔记--编写翻页脚本

偶最近在学习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