tengzejun508
- 浏览: 27218 次
- 性别:
- 来自: 上海
-
最新评论
文章列表
Dictionary 字典对象 Dictionary 对象与 PERL 关联数组是等价的。项目（可以是任何形式的数据）被保存在数组中。每项都与唯一的键相关联。键值用于检索单个项目，通常是整数或字符串，但不能为数组。 Dictionary对象的属性： CompareMode（c ompare）：设置并返回在 Dictionary 对象中比较字符串关键字的比较模式。
Compare：可选项。vbBinaryCompare（0）：执行二进制比 ...
[vb] view plaincopy
'**********************************
测试自动化设计 - GUI层面向对象的扩展设计
作者：zzxxbb112时间：2011/12/10 版权所有，侵权必究。
出处：http://blog.csdn.net/zzxxbb112
源码下载：http://download.csdn.net/source/1855793
摘要
本文主要介绍的是QTP的一种较为先进的技术，本技术是由AdvancedQTP SOLMAR自动化测试专家组所采纳的一种面向对象的设计模式，由Meir Bar-Tal于2008年12月20日发表，笔者将会详细介绍此设计模式的每个类以及方法，设计模式的使用，设计模式的优缺点。
...
对WebElement对象使用编程性描述（Using Programmatic Descrīptions for the WebElement Object）
如果没有录制WebElement对象，也可以使用编程性描述，来对Web网站中的任何一个WebElement对象进行操作。
例如：
Browser("Mercury Tours").Page("Mercury Tours").WebElement("Name:=UserName", "Index:=0").Click
或
set ...
- 2013-08-08 18:18
- 浏览 2314
- 评论(0)
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 name (new_name) s_name=new_name End Property Public Property Let age (new_age) ...
1．GetTOProperty() ● 基本含义：获取对象库中某个对象的某个属性的值。 ● 公式：ReturnValue =对象.GetTOProperty("封装属性名") ● 基础示例： ValueOfTo=Browser("百度一下，你就知道").Page("百度一下，你就知道").Link("新 闻").GetTOProperty("text")msgbox ValueOfTo2．GetTOProperties() ● 基本含义：获取对象库中某个对象的所有属性的值。 ...
- 2013-08-02 15:17
- 浏览 793
- 评论(0)
要判断打开了几个浏览器窗口，我们使用description对象就可以了，增加几句代码就可以灵活操作参考代码如下：
Dim WinIe,Ie,i,j Set WinIe=description.Create() WinIe（"micclass").value="Browser" '所有页面的regexpwndtitle属性值都是“ Microsoft Internet Explorer”,也可以用其他属性 Set Ie=desktop.ChildObjects(WinIe) j=Ie.count ...
- 2013-08-02 14:23
- 浏览 535
- 评论(0)
QTP如何打开浏览器，并进入网站,关闭浏览器
- 博客分类：
- 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后，再跳转到系统2SystemUtil.Run"C:\Program Files\Internet Explorer\IEXPLORE ...
- 2013-08-02 14:10
- 浏览 1576
- 评论(0)
Sub EditWord(filepath)' 设置总行数及列数变量 Dim rowCount,colCount rowCount=0 colCount=0' 创建word对象 Set WordApp=createobject("word.application")' 设置可见 WordApp.Visible=true' 打开已经存在的word文档 Set WordDoc=WordApp.Documents.Open(filepath)' 选中文档区域 WordDoc.Range.Selec ...
- 2013-08-01 11:37
- 浏览 768
- 评论(0)
'业务描述：将excel表格里的内容导入到DataTable中，不可使用import和importsheet函数 Excelpath="d:\data2.xls"Set ExcelApp=createobject("excel.application")Set Excelxls=ExcelApp.Workbooks.Open(Excelpath) ecount=Excelxls.Worksheets.Count dcount=datatable.GetSheetCount a=ecount-dcountIf a>0 Then For b = 1 ...
- 2013-07-31 17:27
- 浏览 1851
- 评论(0)
Dim fileSystemObj,fileSpec,logFileSet fileSystemObj=createobject("Scripting.filesystemobject") fileSpec="d:\"&"计算器测试报告"&".txt"set logFile=fileSystemObj.OpenTextFile(fileSpec,8,true) logFile.WriteLine("查询结果共:10条") logFile.WriteLine("注册号&qu ...
- 2013-07-30 18:15
- 浏览 695
- 评论(0)
' *********************************************************************************************
'''''''''参数: ReportExcelFile 报告输出的路径,每次QTP运行后的测试结果路径
''''''调用方法：
'' ReportExcelFileSavePath
' *********************************************************************************** ...
- 2013-07-30 13:40
- 浏览 747
- 评论(0)
DataStr="d:\data1.xls"'设置读取excel路径
Set ExlObj=createobject("excel.application")'打开excel对象
ExlObj.Visible=true'设置可见性
ExlObj.DisplayAlerts=false'关闭警告提示框
Set book=ExlObj.Workbooks.Open(DataStr)'打开excel文档对象
Set sheet=book.Worksheets("sheet1").usedrange'设置第一个表的可读区域
rowsCount= ...
- 2013-07-30 13:35
- 浏览 770
- 评论(0)