有的时候需要在测试的过程中需要模拟拖到浏览器的滚动条,我们可以通过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浏览器补丁
│ QTP_00709.EXE │ 补丁说明.txt │ ├─支持64位IE浏览器 │ QTPWEB_00086(64bit+IE).EXE │ 补丁说明.txt │ ├─支持64位应用对象识别 │ QTP_00699.EXE │ 补丁说明.txt │ ├─支持chrome浏览器补丁 │ ...
qtp中使用编程方法实现参数化。 qtp中使用编程方法实现参数化。
├─支持chrome浏览器补丁 │ QTPWEB_00088(chrome).EXE │ 补丁说明.txt
QTP & DOM.rar
用QTP实现EXCEL数据比对
QTP可以支持谷歌浏览器运行的插件,欢迎下载。
这是我找的QTP中文使用教程,希望能帮助开始着手学习QTP的伙伴。大家一起加油。
QTP中文教程.pdf
补丁说明 QTP11补丁下载 - 支持64位应用对象识别 QTP_00699.EXE QTP11补丁下载 - 支持32位.NET 4应用程序 QTP_00709.EXE QTP11补丁下载 - 增强WPF对象识别...QTP11补丁下载 - 支持chrome浏览器补丁 QTPWEB_00088.EXE
QTP中批量运行脚本有四种方法: 使用TD,生成测试集,一个测试集可以包含若干个测试脚本; 使用QTP自带工具Test Batch Runner,但是运行完没有报告; 使用MI的另外一款工具Muti-test Manager; 编写VB...
QTP高级5_QTP中使用正则表达式,适合QTP(UFT)初级学习。
QTP中Excel比较,代码详情,可以实现数据对比和显示对比结果
QTP入门学习教程,由浅入深,中文帮助文档大全
第24篇-QTP中Function与Sub区别第24篇-QTP中Function与Sub区别
QTP中文用户手册-帮助文档,应该是hp翻译的中文版,翻译的还行,不生涩,英文不是很好的童鞋可以下下来共学习参考。
QTP11补丁下载 - 支持IE9浏览器识别 QTPWEB_00078.EXE
3.2.1 了解DOM在QTP中应用的好处 3.3 数据库操作(ADO) 3.4 Excel—数据驱动必备利器 3.5 WshShell对象常用方法介绍 3.6 FSO对象模型 3.7 重要的Test Design Studio 3.8 DotnetFactory对象 3.9 API的应用 4.1 QTP深入...
QTP利用VBS的SendKeys模拟键盘操作