- 浏览: 27254 次
- 性别:
- 来自: 上海
最新评论
文章列表
<!--StartFragment -->Class clsTest1 Public oDict Private Sub class_initialize() Set oDict = CreateObject("Scripting.Dictionary") End Sub Public Function setting oDict.Add "a","" oDict.Add "b","" oDict.Add "c","" oDict.Add &q ...
- 2014-03-17 12:07
- 浏览 660
- 评论(0)
QTP中利用DOM实现拖动浏览器滚动条
有的时候需要在测试的过程中需要模拟拖到浏览器的滚动条,我们可以通过Dom调用DocumentElement下的ScrollTop方法实现.
步骤:
(1)通过DOM获取Page的body高度,这个高度是滚动条滚动的最大范围
MaxHeight=Pageobj.Object.body.ClientHeight
(2)通过DOM调用Page的DocumentElement下的ScrollTop方法,为ScrollTop方式传入参数,实现滚动
Pageobj.Object.DocumentElement.ScrollTop ...
我们知道,像DOM,Html,CSS,XPath等对对象的识别策略广泛运用于一些开源的工具,例如:Selenium,Watir,Watir-Webdriver,以前qtp版本是不支持这些东西的,现在qtp11对这些已经支持了,下面我们就看看这些特性:
Document Object Model(DOM):这东西干嘛的 ,百度之。
像下面的这些方法能应用在qtp中:
方法
描述
getElementById
使用已知的元素id,返回第一个页面元素
getElementsByName
返回具有指定名称的一个 ...
通过程序调用testng
- 博客分类:
- selenium2
package testng;
import org.testng.TestListenerAdapter;import org.testng.TestNG;import org.testng.annotations.Test;
public class A { @Test public void one() { System.out.println("one"); } @Test public void two() { System.out.println("two"); } @Test public void three() { Sys ...
前段时间在做QTP脚本时,遇到一个问题,主要问题是给富文本框赋值的问题。在录制时可以录制到给富文框赋值的过程,但是当回放时却放不了。通过SPY查看,富文本框的outerHtml发现,设置富文本框实际上是一个BODY,而不是Edit,所以回放时赋值是失败的。那么如何解决这个问题呢?最终通过操纵IE DOM结构来完成了这一过程。废话不说了,直接上代码(注意使用Object时不能回放于fireFox中):
'设置富文本框的值
'bjtextAreaBelongFrameId:富文本框所在objFrame中的ID
'textAreaValue:想在富文本框中所设置的值
'返回想设置的值
...
Dim oReporterManager
Set oReporterManager = New ReportManager
Call oReporterManager.StartReport("人人围登录1","C:\Report.xls","测试下而已1","sirrah1")
Call oReporterManager.Report("Pass","Test_Case1","成功","成功","步骤详细1") ...
在WEB页面中隐藏对象的3种方式1、使用display例如:<label id="hiddenMessageDisplay" style="color:blue">This message is hidden using CSS display property</label><input onclick="if(this.value=='Show message'){this.value='Hide message';document.getElementById('hiddenMessageDisplay'). ...
SystemUtil.Run "http://192.168.1.58:8080"'以下两个变量,记录用户名、密码的输入情况'0代表输入为空,1代表输入正确,2代表输入错误Dim Udatainfo,Pdatainfo,warnrowcount=DataTable.GetSheet("login").GetRowCountBrowser("畅贷网").Page("畅贷网").Link("登录").ClickFor j = 1 To rowcount Step 1 DataTable.Se ...
1、第一讲,QTP基本知识
http://v.youku.com/v_show/id_XNjA5MzU5MTAw.html
2、第二讲,QTP对象库上
http://v.youku.com/v_show/id_XNjEwNjU0MTA4.html
3、第三讲,QTP对象库中
http://v.youku.com/v_show/id_XNjIwNDI5NjQ0.html
备注:如果youku观看不清晰,请联系我所要原版,我的QQ:1836247149
..................................待续.......................... ...
rowcount= DataTable.GetSheet("Action1").getrowcountFor i = 1 To rowcount Step 1 DataTable.SetCurrentRow i data1=DataTable("A","Action1") For j = i+1 To rowcount Step 1 DataTable.SetCurrentRow j data2=DataTable("A","Action1" ...
- 2013-09-13 12:06
- 浏览 1638
- 评论(0)
自动化测试实际是将测试人员手工进行的工作脚本化,这就需要在测试脚本运行完成后,展示一个明了的测试报告,供相关人员查看测试结果,判断系统的正确性,以下代码实现的是一个EXCEL格式的测试报告,以Function为单位记 ...
SystemUtil.Run "http://www.jd.com"
set obj=Browser("京东网上商城").Page("京东网上商城").ObjectrowCount=DataTable.GetSheet("Action1").GetRowCountFor i = 1 To rowCount Step 1 DataTable.SetCurrentRow i text=DataTable.Value("A",2)' Browser("京东网上商城-综合 ...
静态Web对象的识别
序号
Web对象
SystemUtil.Run "http://www.jd.com/"'打开京东网wait 3set object=Browser("京东网上商城-综合网购首选(JD.COM)-正品低价、品质保").Page("京东网上商城-综合网购首选(JD.COM)-正品低价、品质保").Object'获取link所在位置的父父节点set getdiv=object.getElementById("jdnews")'获取link所在位置的父节点Set getli=getdiv.getElementsByTagName(" ...
Browser("ITeye Java编程 Spring框架").Page("ITeye Java编程 Spring框架").Link("注册").Clickset color=Browser("ITeye Java编程 Spring框架").Page("ITeye - Java编程 Hibernate_2").Objectset bg=color.getElementById("user_name")set p = bg.CurrentStyleprint p.colorp ...