wxf_xsfy 日志 - 冰山一角 - 51Testing软件测试网 51Testing软件测试网-软件测试人的精神家园

TestComplete使用全局变量(原创)

2009-09-13 22:51:16

在使用Testcomplete（以下简称TC）过程中，经常会在脚本或者Project之间传递变量值，但是VBS脚本的面向对象特性比较弱，很难通过传递类的属性来做到这一点。同时，vbs也没有Python的持久存储的功能。当然你可以把变量存储在本地实体文件中，但是这样的做法麻烦且效率也不高。TC给出了一种解决方案，那就是使用Variables对象。这个对象共有三种类型，分别为:project,project suite,network suite

分别对应了不同的作用域，当前项目，当前项目集，站点集。

创建variables有两种方式:

1）通过编辑器进行可视化编辑

2）通过脚本进行编辑

下面我们分别进行讲解:

编辑器进行编辑有可视化，便捷的优点，但是不够灵活。打开编辑器通过点击Project，project Suite，Nework Suite节点就可以打开，界面中主要有以下几项:

Column	Description
Name	变量名称
Type	变量的类型,分别为 Boolean,Double,Integer,Object，String
Default Value	默认值,Object对象没有默认值,如果对默认值进行修改，会影响所有使用该项目的人
Local Value	当前变量值,这个值取决于当前打开项目的计算机,Object对象只能在运行时被设置。
Category	对变量进行分类，用于更好的管理变量，比如，对变量进行排序，分类
Description	变量的文字描述

使用脚本对variables进行编辑具有灵活的特点。

创建变量

Project.Variables.Addvariable Name,Type ---Name为变量名 Type为变量类型

修改变量

Project.Variables.Name = 变量值 ---Name为变量名

获取变量的属性

GetVariableCategory	返回变量分类
GetVariableDefaultValue	返回变量默认值
GetVariableDescription	返回变量描述
GetVariableName	根据一个变量集合的索引值返回变量名称
GetVariableType	返回变量类型
VariableCount	返回变量的个数

获取变量值

Project.variables.Name Or

Project. .Variables.VariableByName(Name) ---Name为变量名

删除变量

Project.Variables.RemoveVariable Name ---Name为变量名

PS：利用Python的持久存储也可以实现全局变量的存储，使用，分类以及排序。

查看(2103) 评论(0) 收藏分享管理

罪过,罪过!

2009-04-13 01:53:28

今天周末出去逛街,看到路旁有卖小金鱼的,见猎心喜就买了几条,不成想回到家后不久就死了几条.罪过啊,希望金鱼的在天之灵可以宽恕我的无心之失.

查看(339) 评论(0) 收藏分享管理

Vbscript中的动态数组以及从excel中取值，放入动态数组中

2008-06-04 23:55:00

1．Vbscrīpt中的动态数组以及从excel中取值，放入动态数组中。

'定义全局变量，供所有程序块使用,分别为excel实例对象，excel列值数组

dim objExcel

dim ary()

' 定义把excel中列的值转换为数组的函数

function testF(i)

redim ary(i)

ary(i)=objexcel.cells(i,1).value

testF = ary(i)

end function

sub test

'打开excel对象

set ōbjExcel = createobject("excel.application")

set ōbjwk=objexcel.workbooks.open("d:\myfile.xls")

Set Driver = DDT.ExcelDriver("d:\MyFile.xls", "Sheet1")

for i =1 to 4

log.message testF(i)

next

end sub

查看(1033) 评论(0) 收藏分享管理

TestComplete中的Sys对象的属性和方法(1)

2008-06-03 06:24:53

2.SYS 对象

The Sys object “represents” the system in your scrīpts -- everything outside TestComplete. Its methods and properties allow you to control scrīpt execution, interact with active windows, simulate key presses, etc. For instance, the following code assigns the clipboard contents to cl:

VBscrīpt Copy Code

Set cl = Sys.Clipboard

JscrīptCopy Code

cl = Sys.Clipboard();

Delphiscrīpt, DelphiCopy Code

cl: = Sys.Clipboard;

C++scrīpt, C#scrīpt, C++, C#Copy Code

cl = Sys["Clipboard"]();

Sys Properties

Sys PropertiesSys Properties

Name	Descrīption
_NewEnum (inherited from Common)	Returns an enumerator for the collection of children that belongs to the current object.
ChildCount (inherited from Common)	Returns the number of child objects of the current object. 返回当前对象的子对象的数目
Clipboard	Puts text or images to the clipboard or retrieves the clipboard data. 把文本或者图片放入剪贴板或者获取剪贴板中的数据
CORBA	Returns the CORBA object, which lets you work with CORBA objects that reside on the local or remote computer. 返回CORBA对象,让你可以操作本机或者远程的CORBA对象
CPU	Stores the model and frequency of the computer’s processor(s). 存储计算机处理器的型号和频率
CPUCount	Returns the number of CPUs installed on your computer. 返回本机CPU的个数
CPUUsage	Returns the current approximate percentage of CPU time used by the operating system and all running processes. 返回大概的当前被操作系统以及所有进程占用的CPU百分比
Desktop	Returns the desktop as the Desktop object. 返回桌面对象
DomainName	Returns the name of the domain to which the current computer belongs. 返回本机所属域的名字
Exists (inherited from Common)	Tells whether an object exists in the system. 检验对象是否出现
FullName (inherited from Common)	Specifies the full name that uniquely identifies the object in TestComplete. 为对象在TC中指定独一无二的关联名称
HostName	The name of the current computer. 本地计算机名
Id (inherited from Common)	Returns ID of the current object. 当前对象ID
MappedName (inherited from Common)	Returns the custom name that is mapped to the original name of the current object, as a string. 返回映射名称
MemUsage	Returns the integral size of memory occupied by the processes which are children of the sys object. 返回进程占有的进程大小
Name (inherited from Common)	Returns the name of the object as a string. 返回对象名称
OleObject	Returns an OLE object specified by name. 返回OLE对象
OSInfo	Returns the information on the currently installed operating system as OSInfo object. 返回当前安装系统的信息
Parent (inherited from Common)	Returns the parent object of the current one. 返回当前对象的父对象
UserName	The name of the user under whose account you are currently working. 返回当前用户名称

Sys Methods

Sys MethodsSys Methods

Name

Descrīption

Child (inherited from Common)

Returns one child object by its index.

通过Index返回子对象

Find (inherited from Common)

Returns an object by the values of the specified properties.

通过指定属性值返回对象

FindAll (inherited from Common)

Returns an array of objects by the values of the specified properties.

通过指定属性值返回对象数组

FindAllChildren (inherited from Common)

Returns an array of child objects by the specified property values.

通过指定属性值返回子对象数组

FindChild (inherited from Common)

Returns a child object by the specified property values.

通过指定属性值返回子对象

FindId (inherited from Common)

Returns an object by its ID.

通过ID返回对象

HighlightObject

Highlights a visible onscreen object with a flashing color rectangle.

对象高亮

Keys

Simulates one or several key presses.

模拟输入

ObjectFromPoint

Returns the visual object that contains the pixel with the specified coordinates.

返回指定坐标的对象图像

Process

Returns a 查看(896) 评论(0) 收藏分享管理

在testcomple中使用关键字驱动测试的一点想法

2008-05-09 14:06:24

最近在研究自动化测试框架的资料,很多都是使用robot工具进行扩展的,那么在TC上能不能实现的,最近做了一点研究(对简单的登录界面进行测试) ,总结的经验如下:

excel表中的数据如下：

动作类型	对象窗口	对象类型	对象标记	执行动作	数据
G	TFrmLogin	Textbox	TRzComboBox/Edit	keys	ksnq	zjnq
G	TFrmLogin	Textbox2	TRzEdit	keys	1	1
G	TFrmLogin	Button	TRzBmpButton	click

TFrmLogin：登录窗口

Textbox：控件类型

TRzComboBox/Edit：控件名称（此空间为ComboBox，TC识别的时候就会识别成两个控件：TRzComboBox，Edit）

我TRzComboBox/Edit这两个控件写在了一起，用/分隔起来，这是为了使excel表中每一行都是最底层的控件，

也就是我们可以会直接操作的控件对象。那么我们把具有层次的控件放在了一起，那么在使用时，我们还得

分开，所有可以使用Split函数，把它们分开并存入一个数组中，分开使用就可以了。具体代码如下：

Sub Test1
Dim w1
Dim p1
Dim w2
Dim w3
dim y
'数据列,设立此变量的目的是为了使数据的输入更灵活，如上表，我们在第6，7列存放数据，那么我们

使用不同的数据只需更换变量的值即可
Dim Data

'excel表的行
x=2
' 打开测试应用程序
set p = testedapps.items("jcysystem36").run
Set w1 = Aliases.Sys
Set p1 = w1.JcySystem36
'-------------------------------
'打开EXCEl文档，并从中读取数据
Set ōbjExcel = CreateObject("Excel.Application")
Set ōbjWorkbook = objExcel.Workbooks.Open ("D:\myfile.xls")

'对于复杂的控件，把路径写在一个cell中，并用“/”分隔开来，使用split（）处理，转化为数组
y = objExcel.Cells(x, 4).Value
myArry = split(y,"/",-1,1)

'登录界面
Set w2 = p1.Window(objExcel.Cells(X,2).Value, "系统登录")

'点击用户名输入框并输入数据
call w2.window(myArry(0)).window(myArry(1)).click()
call w2.window(myArry(0)).window(myArry(1)).keys(objExcel.Cells(X,Data).Value)

'点击密码框并输入数据
call w2.window(objExcel.Cells(X+1,4).Value).click()
call w2.window(objExcel.Cells(X+1,4).Value).keys(objExcel.Cells(X+1,Data).Value)

'点击确定按钮
call w2.window(objExcel.Cells(X+2,4).Value,"","2").click()

objExcel.Quit

End Sub

这是一个简单的例子，继续需要把框架作的更深入，把一些逻辑提取出来，还需努力啊

查看(1045) 评论(0) 收藏分享管理

Testcomplete中选中treeview中checkbox的方法

2008-03-17 02:41:33

发现对TreeView中的checkbox的录制的脚本在回放过程中，脚本是无效的，无法选中节点。现编写函数解决此问题。
'函数
Sub ClickCheckBox(tree, itemName)
   Set item = tree.wItems.Item(itemName)
   x = item.TextBounds.Left - item.TextBounds.Height / 2
   y = item.TextBounds.Top + item.TextBounds.Height / 2
   Call tree.Click(x, y)
End Sub

Sub Test1
Dim w1
Set w1 = Sys.Process("WindowsApplication3").Form1.WinFormsObject("treeView1")
Call ClickCheckBox(w1, "|节点2|节点3")
End Sub

查看(583) 评论(0) 收藏分享管理