51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2940|回复: 3
打印 上一主题 下一主题

[原创] QTP 学习笔记--编写翻页脚本

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2008-1-23 14:35:38 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
偶最近在学习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 编辑 ]
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2008-1-24 09:17:40 | 只看该作者

自己顶

看帖留言好习惯,希望大家觉得好能顶一下
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2008-1-24 09:41:33 | 只看该作者
如果只是翻页的话
while Browser(xxxx).page(xxxxxx).link("下一页").exist
          Browser(xxxx).page(xxxxxx).link("下一页").click
Wend
这样写不行吗?
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2008-1-24 16:09:30 | 只看该作者

说的好

今天有雾说的好,只是翻页可以那样写,但是翻页时要查找此页面中的webtable记录是否含有你想查找的内容,如果有就不翻页,没有才翻页。
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-15 00:12 , Processed in 0.100445 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表