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