- 博客(28)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 vbs class的调用及字典的应用代码
<!--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","...
2014-03-17 12:07:51
393
原创 QTP中利用DOM实现拖动浏览器滚动条
QTP中利用DOM实现拖动浏览器滚动条 有的时候需要在测试的过程中需要模拟拖到浏览器的滚动条,我们可以通过Dom调用DocumentElement下的ScrollTop方法实现. 步骤: (1)通过DOM获取Page的body高度,这个高度是滚动条滚动的最大范围 MaxHeight=Pageobj.Object.body.ClientHeight (2)通过DOM...
2014-01-10 16:48:44
228
原创 QTP11使用DOM XPath以及CSS识别元素对象
我们知道，像DOM，Html,CSS,XPath等对对象的识别策略广泛运用于一些开源的工具，例如：Selenium，Watir,Watir-Webdriver，以前qtp版本是不支持这些东西的，现在qtp11对这些已经支持了，下面我们就看看这些特性： Document Object Model（DOM）：这东西干嘛的 ，百度之。像下面的这些方法能应用在qtp中：...
2013-12-23 15:54:29
178
原创 通过程序调用testng
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 pu...
2013-11-20 13:48:11
246
原创 QTP之有关富文本框赋值
前段时间在做QTP脚本时，遇到一个问题，主要问题是给富文本框赋值的问题。在录制时可以录制到给富文框赋值的过程，但是当回放时却放不了。通过SPY查看，富文本框的outerHtml发现，设置富文本框实际上是一个BODY，而不是Edit，所以回放时赋值是失败的。那么如何解决这个问题呢？最终通过操纵IE DOM结构来完成了这一过程。废话不说了，直接上代码(注意使用Object时不能回放于fireFox中...
2013-10-21 17:35:33
195
原创 QTP简单框架之EXCEL报表
Dim oReporterManagerSet oReporterManager = New ReportManagerCall oReporterManager.StartReport("人人围登录1","C:\Report.xls","测试下而已1","sirrah1")Call oReporterManager.Report("Pass","Test_Case1",&qu
2013-10-15 15:06:34
148
原创 QTP如何检查WEB对象是否隐藏
在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'...
2013-10-10 10:38:11
124
QTP登录案例
SystemUtil.Run "http://192.168.1.58:8080"'以下两个变量，记录用户名、密码的输入情况'0代表输入为空，1代表输入正确，2代表输入错误Dim Udatainfo,Pdatainfo,warnrowcount=DataTable.GetSheet("login").GetRowCountBrowser("畅贷网").Page("畅贷网").Link("登录"...
2013-09-22 18:20:43
283
原创QTP11.5/UFT11.5视频
1、第一讲，QTP基本知识http://v.youku.com/v_show/id_XNjA5MzU5MTAw.html2、第二讲，QTP对象库上http://v.youku.com/v_show/id_XNjEwNjU0MTA4.html3、第三讲，QTP对象库中http://v.youku.com/v_show/id_XNjIwNDI5NjQ0.html 备注：...
2013-09-21 10:23:36
177
原创 判断datatable中的数据是否有重复数据
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.Se...
2013-09-13 12:06:03
947
1
原创 QTP测试报告代码
自动化测试实际是将测试人员手工进行的工作脚本化，这就需要在测试脚本运行完成后，展示一个明了的测试报告，供相关人员查看测试结果，判断系统的正确性，以下代码实现的是一个EXCEL格式的测试报告，以Function为单位记录脚本的执行情况，若完成则显示Complete，在Comment中显示验证点检查结果情况，以此来判断系统运行的正确行；若由于一些突发的异常情况导致脚本未执行完成，则显示Fail，在C...
2013-09-09 12:59:30
520
原创 京东网：疯狂抢购、猜您喜欢等模块下的图片超链接自动化测试
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...
2013-09-02 17:30:37
191
原创 测试自动化实现难点—Web对象的识别
静态Web对象的识别序号Web对象推荐识别属性方法1BrowsercreationTime 2Pageindex 3Framename 4We...
2013-08-30 13:25:56
432
原创 京东网京东快报超级链接验证
SystemUtil.Run "http://www.jd.com/"'打开京东网wait 3set object=Browser("京东网上商城-综合网购首选（JD.COM）-正品低价、品质保").Page("京东网上商城-综合网购首选（JD.COM）-正品低价、品质保").Object'获取link所在位置的父父节点set getdiv=object.getElementById("jdnew...
2013-08-30 12:37:41
251
原创 获取背景颜色
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_na.
2013-08-27 15:02:36
470
原创 Dictionary 字典对象
Dictionary 字典对象 Dictionary 对象与 PERL 关联数组是等价的。项目（可以是任何形式的数据）被保存在数组中。每项都与唯一的键相关联。键值用于检索单个项目，通常是整数或字符串，但不能为数组。 Dictionary对象的属性...
2013-08-23 11:32:53
251
原创 Scripting.Dictionary对象
[vb] view plaincopy'********************************** 'Dictionary 对象，使用数组一样使用。 '存储数据键和项目对的对象。 '以键值对的方式存储。 'Key一般已整数或字符串。 'Value可以是除数据以外的任何类型。 '*************************...
2013-08-23 11:08:51
223
原创 测试自动化设计 - GUI层面向对象的扩展设计
测试自动化设计 - GUI层面向对象的扩展设计 作者：zzxxbb112时间：2011/12/10 版权所有，侵权必究。出处：http://blog.youkuaiyun.com/zzxxbb112 源码下载：http://download.youkuaiyun.com/source/1855793摘要本文主要介绍的是QTP的一种较为先进的技术，本技术是由AdvancedQ...
2013-08-23 10:48:16
122
原创 对WebElement对象使用编程性描述
对WebElement对象使用编程性描述（Using Programmatic Descrīptions for the WebElement Object） 如果没有录制WebElement对象，也可以使用编程性描述，来对Web网站中的任何一个WebElement对象进行操作。 例如： Browser("Mercury Tours").Page("Mercury Tours"...
2013-08-08 18:18:37
430
原创 vbs中get和set方法
Class User Private s_name Private s_age Public Property get name name=s_name End Property Public Property get age age=s_age End Property Public Property Let...
2013-08-07 13:23:25
973
原创 TO&RO
1．GetTOProperty() ● 基本含义：获取对象库中某个对象的某个属性的值。 ● 公式：ReturnValue =对象.GetTOProperty("封装属性名") ● 基础示例： ValueOfTo=Browser("百度一下，你就知道").Page("百度一下，你就知道").Link("新 闻").GetTOProperty("text")msgbox Value...
2013-08-02 15:17:59
110
原创 QTP关闭多余的browser窗口
要判断打开了几个浏览器窗口，我们使用description对象就可以了，增加几句代码就可以灵活操作参考代码如下：Dim WinIe,Ie,i,j Set WinIe=description.Create() WinIe（"micclass").value="Browser" '所有页面的regexpwndtitle属性值都是“ Microsoft Int...
2013-08-02 14:23:01
176
原创 QTP如何打开浏览器，并进入网站,关闭浏览器
简单记录下打开浏览器的方法'打开IE，进入系统------方法1：快SystemUtil.Run"C:\Program Files\Internet Explorer\IEXPLORE.EXE","http://www.baidu.com"'打开IE，进入系统------方法2：慢SystemUtil.Run"http://www.51testing.com"'打开IE，进入系统1后...
2013-08-02 14:10:38
461
原创 QTP向word中插入表格
Sub EditWord(filepath)' 设置总行数及列数变量 Dim rowCount,colCount rowCount=0 colCount=0' 创建word对象 Set WordApp=createobject("word.application")' 设置可见 WordApp.Visible=true' 打开已经存在...
2013-08-01 11:37:34
263
原创 将excel表格里的内容导入到DataTable中，不可使用import和importsheet函数
'业务描述：将excel表格里的内容导入到DataTable中，不可使用import和importsheet函数 Excelpath="d:\data2.xls"Set ExcelApp=createobject("excel.application")Set Excelxls=ExcelApp.Workbooks.Open(Excelpath) ecount=Excelxls.Worksheet...
2013-07-31 17:27:33
612
原创 QTP输出结果到文本中并对齐
Dim fileSystemObj,fileSpec,logFileSet fileSystemObj=createobject("Scripting.filesystemobject") fileSpec="d:\"&"计算器测试报告"&".txt"set logFile=fileSystemObj.OpenTextFile(fileSpec,8,true) logFile.Wr...
2013-07-30 18:15:07
172
原创 QTP对EXCEL操作函数
' *********************************************************************************************'''''''''参数: ReportExcelFile 报告输出的路径,每次QTP运行后的测试结果路径''''''调用方法：'' Repor...
2013-07-30 13:40:09
232
原创 excel中读取参数并且用计算器计算结果与预期结果相比较
DataStr="d:\data1.xls"'设置读取excel路径Set ExlObj=createobject("excel.application")'打开excel对象ExlObj.Visible=true'设置可见性ExlObj.DisplayAlerts=false'关闭警告提示框Set book=ExlObj.Workbooks.Open(DataStr)'打开exc...
2013-07-30 13:35:52
128
uml基础教程
2012-04-24
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人