51Testing软件测试论坛

标题: QTP 学习笔记--编写翻页脚本 [打印本页]

作者: mexia    时间: 2008-1-23 14:35
标题: 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
此脚本能实现根据参数判断来翻页的功能,但是还要改写一下,偶现在也比较懒,有问题就提吧

[ 本帖最后由 mexia 于 2008-1-23 14:46 编辑 ]
作者: mexia    时间: 2008-1-24 09:17
标题: 自己顶
看帖留言好习惯,希望大家觉得好能顶一下
作者: 今天有雾    时间: 2008-1-24 09:41
如果只是翻页的话
while Browser(xxxx).page(xxxxxx).link("下一页").exist
          Browser(xxxx).page(xxxxxx).link("下一页").click
Wend
这样写不行吗?
作者: mexia    时间: 2008-1-24 16:09
标题: 说的好
今天有雾说的好,只是翻页可以那样写,但是翻页时要查找此页面中的webtable记录是否含有你想查找的内容,如果有就不翻页,没有才翻页。




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2