`
tengzejun508
  • 浏览: 27217 次
  • 性别: Icon_minigender_1
  • 来自: 上海
社区版块
存档分类
最新评论

QTP中利用DOM实现拖动浏览器滚动条

    博客分类:
  • QTP
阅读更多
  有的时候需要在测试的过程中需要模拟拖到浏览器的滚动条,我们可以通过Dom调用DocumentElement下的ScrollTop方法实现.
  步骤:
  (1)通过DOM获取Page的body高度,这个高度是滚动条滚动的最大范围
  MaxHeight=Pageobj.Object.body.ClientHeight
  (2)通过DOM调用Page的DocumentElement下的ScrollTop方法,为ScrollTop方式传入参数,实现滚动
  Pageobj.Object.DocumentElement.ScrollTop=ScrollHeight(注:ScrollHeight为需要滚动到的位置,单位为像素(PX))
  以下是封装的一个拖到滚动条的函数:
'**********************************************************
'功能:拖到浏览器纵向滚动条
'参数:Pageobj - 需要推动的Page对象
'     ScrollPercentage - 滚动条滚动相对于page高度的百分比(如:0.1表示移动到十分之一处)
'作者:**
'时间:2013-11-08
'**********************************************************
Function DragScrollBar(Pageobj,ScrollPercentage)
'判断ScrollPercentage是否为数字
If IsNumeric(ScrollPercentage) Then
'判断Pageobj对象是否存在
If Pageobj.Exist Then
'获取浏览器body的高度
MaxHeight =  Pageobj.Object.body.ClientHeight
'若ScrollPercentage大于等于1,则滚动条移动到浏览器底部
If  ScrollPercentage>=1Then
ScrollHeight = MaxHeight
'若ScrollPercentage小于1,则滚动条移动到ScrollHeight位置
ElseIf (ScrollPercentage>0 And ScrollPercentage<1) Then
ScrollHeight = MaxHeight * ScrollPercentage
'若ScrollPercentage小于0,则滚动条移动到浏览器顶部
Else
ScrollHeight = 0
End If
'根据ScrollHeight移动浏览器滚动条
Pageobj.Object.DocumentElement.ScrollTop = ScrollHeight
Else
Msgbox "Pageobj对象未找到"
End If
Else
Msgbox "ScrollPercentage参数不正确,必须为数字"
End If
End Function

 实例:
  测试需求:
  (1)打开http://www.baidu.com/more/
  (2)拖到打开界面中的滚动条到窗口的60%处
'关闭IE浏览器
Systemutil.CloseProcessByName "iexplore.exe"
'打开http://www.baidu.com/more/
Systemutil.Run "iexplore.exe","http://www.baidu.com/more/"
Set Browserobj = Browser("title:=百度产品大全")
Set Pageobj =Browserobj.Page("title:=百度产品大全")
'等待浏览器打开完成
While Browserobj.Object.Busy
Wend
'调用DragScrollBar拖到浏览器滚动条到百分之六十处
Call DragScrollBar(Pageobj,"0.6")
版权声明:本文出自 ChinaTNT 的51Testing软件测试博客:http://www.51testing.com/?306685
原创作品,转载时请务必以超链接形式标明本文原始出处、作者信息和本声明,否则将追究法律责任。
分享到:
评论

相关推荐

    QTP11补丁-支持chrome浏览器

    在QTP11发布之初,可能并未内置对Chrome的支持,因此这个补丁的出现使得用户能够利用QTP11进行Chrome浏览器上的自动化测试,这对于那些依赖Chrome进行Web应用开发和测试的团队来说至关重要。 补丁"QTPWEB_00088.EXE...

    QTP11.0补丁_支持chrome浏览器补丁

    执行这个.exe文件将向QTP安装添加特定于Chrome的组件和驱动程序,使得测试脚本能够识别并操作Chrome浏览器中的元素。 2. **补丁说明.txt**:这个文本文件包含了关于如何应用补丁、补丁的目标、解决的问题以及可能的...

    QTP11补丁 - 支持chrome浏览器补丁

    QTP11补丁 - 支持chrome浏览器补丁

    QTP & DOM.rar

    【QTP与DOM详解】 QTP,全称QuickTest Professional,是HP公司(现已被Micro Focus收购)推出的...通过阅读"QTP & DOM.pdf"这份文档,你可以深入学习如何在实际工作中有效地运用这两者,实现高效的Web应用自动化测试。

    QTP11.0补丁_包含常用浏览器及模式

    │ QTP_00709.EXE │ 补丁说明.txt │ ├─支持64位IE浏览器 │ QTPWEB_00086(64bit+IE).EXE │ 补丁说明.txt │ ├─支持64位应用对象识别 │ QTP_00699.EXE │ 补丁说明.txt │ ├─支持chrome浏览器补丁 │ ...

    qtp描述性编程实现参数化

    通过对QTP中的描述性编程实现参数化的深入理解,我们可以更加高效地利用QTP来进行自动化测试。参数化不仅能够提高测试脚本的灵活性,还能帮助我们更好地管理和维护测试数据。此外,掌握一些基本的调试技巧对于快速...

    QTP支持谷歌浏览器插件

    1. **对象识别**:QTP使用其智能识别技术来识别浏览器中的插件元素,如按钮、文本框、下拉菜单等。它会将这些元素映射到特定的对象库,以便在测试脚本中引用。 2. **自动化脚本**:QTP允许用户创建和编辑VBScript...

    用QTP实现EXCEL数据比对

    用QTP实现EXCEL数据比对

    QTP11补丁 - 支持IE9浏览器识别

    【QTP11补丁 - 支持IE9浏览器识别】是针对自动化测试工具QuickTest Professional(QTP)的一个重要更新。QTP,现已被命名为UFT(Unified Functional Testing),是HP公司推出的一款功能强大的自动化测试工具,主要...

    QTP中文教程.pdf

    - **创建测试脚本**:利用QTP的自动录制机制记录测试人员的操作,生成VBScript脚本和关键字视图。 - **增强测试脚本**:通过添加检查点和参数化等功能进一步完善测试脚本。 - **运行测试**:执行测试脚本,验证设置...

    QTP中文帮助全集

    QTP以其易用性和高效性,在IT行业中广泛应用于Web、桌面应用以及移动应用的自动化测试。 ## QTP基础概念 1. **对象库(Object Repository)**:QTP通过识别应用中的对象来执行测试,对象库存储了这些对象的属性和...

    QTP中VBS语言脚本介绍

    在QTP中,Visual Basic Script(VBS)是一种基础且强大的编程语言,用于编写测试脚本,实现对应用程序的自动化控制。VBS是基于VBScript引擎的,它简洁易学,使得测试人员能够快速掌握并应用到QTP测试中。 一、VBS...

    QTP中文使用指导

    这是我找的QTP中文使用教程,希望能帮助开始着手学习QTP的伙伴。大家一起加油。

    QTP中Delphi插件

    由于Delphi组件可能有其独特的属性和行为,使用原生的QTP可能无法实现最佳的测试覆盖,因此,这样的插件至关重要。 **安装QTP Delphi插件** 的过程通常包括以下步骤: 1. 下载插件文件,例如`qtp82_delphiaddinbeta...

    QTP.rar_QTP 安装_QTP支持的系统_QTP的测试_qtp

    对于浏览器,QTP支持Internet Explorer、Firefox、Chrome等,但可能需要安装特定的驱动程序或插件来实现全面的测试功能。 **QTP的测试**: QTP的核心是其自动录制和回放功能,通过“智能识别”技术可以自动识别并...

    QTP中文帮助文档

    3. **数据驱动测试**:QTP支持从外部数据源(如Excel表格)导入数据,使得测试脚本可以使用不同的输入数据进行多次运行,实现数据的多样化测试。 4. **关键字驱动测试**:QTP提供了一组关键字,通过这些关键字可以...

    QTP11补丁全集

    补丁说明 QTP11补丁下载 - 支持64位应用对象识别 QTP_00699.EXE QTP11补丁下载 - 支持32位.NET 4应用程序 QTP_00709.EXE QTP11补丁下载 - 增强WPF对象识别...QTP11补丁下载 - 支持chrome浏览器补丁 QTPWEB_00088.EXE

    QTP

    【QTP常用技巧展示】:在QTP测试过程中,有许多提高效率的技巧,如使用`Sync`确保对象就绪再进行操作,使用`Smart identification`优化对象识别,以及利用`Test Run Settings`定制测试运行参数等。 【QTP对象识别...

Global site tag (gtag.js) - Google Analytics