有的时候需要在测试的过程中需要模拟拖到浏览器的滚动条,我们可以通过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浏览器上的自动化测试,这对于那些依赖Chrome进行Web应用开发和测试的团队来说至关重要。 补丁"QTPWEB_00088.EXE...
执行这个.exe文件将向QTP安装添加特定于Chrome的组件和驱动程序,使得测试脚本能够识别并操作Chrome浏览器中的元素。 2. **补丁说明.txt**:这个文本文件包含了关于如何应用补丁、补丁的目标、解决的问题以及可能的...
QTP11补丁 - 支持chrome浏览器补丁
【QTP与DOM详解】 QTP,全称QuickTest Professional,是HP公司(现已被Micro Focus收购)推出的...通过阅读"QTP & DOM.pdf"这份文档,你可以深入学习如何在实际工作中有效地运用这两者,实现高效的Web应用自动化测试。
│ QTP_00709.EXE │ 补丁说明.txt │ ├─支持64位IE浏览器 │ QTPWEB_00086(64bit+IE).EXE │ 补丁说明.txt │ ├─支持64位应用对象识别 │ QTP_00699.EXE │ 补丁说明.txt │ ├─支持chrome浏览器补丁 │ ...
通过对QTP中的描述性编程实现参数化的深入理解,我们可以更加高效地利用QTP来进行自动化测试。参数化不仅能够提高测试脚本的灵活性,还能帮助我们更好地管理和维护测试数据。此外,掌握一些基本的调试技巧对于快速...
1. **对象识别**:QTP使用其智能识别技术来识别浏览器中的插件元素,如按钮、文本框、下拉菜单等。它会将这些元素映射到特定的对象库,以便在测试脚本中引用。 2. **自动化脚本**:QTP允许用户创建和编辑VBScript...
用QTP实现EXCEL数据比对
【QTP11补丁 - 支持IE9浏览器识别】是针对自动化测试工具QuickTest Professional(QTP)的一个重要更新。QTP,现已被命名为UFT(Unified Functional Testing),是HP公司推出的一款功能强大的自动化测试工具,主要...
- **创建测试脚本**:利用QTP的自动录制机制记录测试人员的操作,生成VBScript脚本和关键字视图。 - **增强测试脚本**:通过添加检查点和参数化等功能进一步完善测试脚本。 - **运行测试**:执行测试脚本,验证设置...
QTP以其易用性和高效性,在IT行业中广泛应用于Web、桌面应用以及移动应用的自动化测试。 ## QTP基础概念 1. **对象库(Object Repository)**:QTP通过识别应用中的对象来执行测试,对象库存储了这些对象的属性和...
在QTP中,Visual Basic Script(VBS)是一种基础且强大的编程语言,用于编写测试脚本,实现对应用程序的自动化控制。VBS是基于VBScript引擎的,它简洁易学,使得测试人员能够快速掌握并应用到QTP测试中。 一、VBS...
这是我找的QTP中文使用教程,希望能帮助开始着手学习QTP的伙伴。大家一起加油。
由于Delphi组件可能有其独特的属性和行为,使用原生的QTP可能无法实现最佳的测试覆盖,因此,这样的插件至关重要。 **安装QTP Delphi插件** 的过程通常包括以下步骤: 1. 下载插件文件,例如`qtp82_delphiaddinbeta...
对于浏览器,QTP支持Internet Explorer、Firefox、Chrome等,但可能需要安装特定的驱动程序或插件来实现全面的测试功能。 **QTP的测试**: QTP的核心是其自动录制和回放功能,通过“智能识别”技术可以自动识别并...
3. **数据驱动测试**:QTP支持从外部数据源(如Excel表格)导入数据,使得测试脚本可以使用不同的输入数据进行多次运行,实现数据的多样化测试。 4. **关键字驱动测试**:QTP提供了一组关键字,通过这些关键字可以...
补丁说明 QTP11补丁下载 - 支持64位应用对象识别 QTP_00699.EXE QTP11补丁下载 - 支持32位.NET 4应用程序 QTP_00709.EXE QTP11补丁下载 - 增强WPF对象识别...QTP11补丁下载 - 支持chrome浏览器补丁 QTPWEB_00088.EXE
【QTP常用技巧展示】:在QTP测试过程中,有许多提高效率的技巧,如使用`Sync`确保对象就绪再进行操作,使用`Smart identification`优化对象识别,以及利用`Test Run Settings`定制测试运行参数等。 【QTP对象识别...