大家好，又见面了，我是你们的朋友全栈君。

基于GUI的自动化测试主要是围绕着界面的控件元素来进行的，例如文本框、列表框、控制按钮等等，软件用户通常都是通过这些控件与程序交互，因此，编辑测试脚本的第一步就是识别测试对象。

1、测试对象、运行时对象的区分以及对象库概念

首先区分UFT中测试对象和运行时对象概念。

测试对象：Test Object，TO，是UFT定义的一些类，用它们来代表被测应用的各种对象；

TO属性：

获取对象的属性，可以理解为静态的属性，在运行时的输入东西与它无关。测试对象的属性是UFT为了识别在测试执行过程中的运行时对象而保留在对象库中的属性。

GetToProperty/GetToProperties和SetToProperty则分别用于读取和修改To的属性值

运行时对象：Runtime Object，RO，是实际的被测应用对象，是测试执行过程中，TO用来关联的对象；

RO属性：

是变的（用户名框输入不同的值，这个Ro属性取出来就是不一样）

GetRoProperty方法用于取得运行时对象（实际对象）的某个属性的值。

简单以登录操作中AgentName对象来说，to属性和运行时输入的东西无关，而ro属性是实际中被测应用对象，在测试执行过程中，会看到对应属性的变化：

3-UFT对象管理

UFT对象库：UFT中，使用对象库对对象进行管理。记录的对象和这些对象的属性，都存储在对象库中。而对象库也可以设置为共享对象库，供多个Action调用。当发现对象库中缺少某个对象时，可以使用对象抓取工具，单个抓取对象添加到对象库中。

3-UFT对象管理

2、对象库工具的一些操作

1）对象识别器：Tools—–Object Identification

3-UFT对象管理

2）对象嗅探器：Tools—-Object Spy

3-UFT对象管理

打开如下的嗅探器窗口，点击下图方框中的按钮，移动手型的光标，可以看到下图中显示当前光标下的空间属性

3-UFT对象管理

3）对象库：Resources—–Object Repository

3-UFT对象管理

注意这里存储的除了测试对象，还有其他的对象类型，如下面的检查点。同样在对象库中，我们可以点击工具栏中的按钮，添加对象到对象库中；也可以高亮某个测试对象；，也可以使用对象嗅探器捕获测试对象；也可以关联其他的测试对象；

3-UFT对象管理

4）对象库管理：Resources—-Object Repository Manager

这里实际上共享对象库。在该对话框中，我们可以创建一个共享对象库、将对象库跟Action关联、添加对象到共享对象库中、保存一个共享对象库、修改共享对象库中的对象等。下面是新建一个共享的测试对象：

3-UFT对象管理

3、练习

录制一个Flight程序登录的脚本。脚本要求：

使用Systemutil.Run打开程序
创建三个Action，分别是Login，NewOrder，Logout。在三个Action中分别录制对应的操作
保存NewOrder的本地对象库为NewOrder.tsr
删除NewOrder的本地对象库
将NewOrder的Action使用共享对象库（引用已保存的NewOrder.tsr），设置为共享对象库的路径为相对路径
使用自定义检查点，检查Price*Ticket的价格是否等于Total，并用If语句写出判断成功或是失败后的Reporter.ReportEvent报告语句
点击关闭，结束录制

补充知识点：

1）可以使用Systemutil.run加上程序路径，使UFT自动打开被测程序

2）在录制脚本的过程中，可以点击“录制工具条”中的新建Action按钮，将三个部分的操作放在三个Action中

3）UFT的VBscript脚本中，使用Const声明定义常量，使用Dim声明定义变量

4）报告语句，如果程序正确，则可以书写为Reporter.ReportEvent micPass,”结果正确”,”总价格正确”;如果程序不正确，可以使用Reporter.ReportEvent micFail,”结果错误”,”总价格计算错误”;

结果：

flight3.zip

NewOrder中代码：

'新建订单
Window("Flight Reservation").ActiveX("MaskEdBox").Type "121216"
Window("Flight Reservation").WinComboBox("Fly From:").Select "Denver"
Window("Flight Reservation").WinComboBox("Fly To:").Select "London"
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set "jojo"
Window("Flight Reservation").WinEdit("Tickets:").SetSelection 0,1

Dim tiknum,price,total
tiknum=2


Window("Flight Reservation").WinEdit("Tickets:").Set tiknum
Window("Flight Reservation").WinRadioButton("First").Set
Window("Flight Reservation").WinButton("Insert Order").Click

Dim pricestr,totalstr
pricestr=mid(window("Flight Reservation").WinEdit("Price:").GetROProperty("text"),2)
price=CDBl(pricestr)
totalstr=mid(window("Flight Reservation").WinEdit("Total:").GetROProperty("text"),2)
total=CDBl(totalstr)

If (price*tiknum)=total Then
    Reporter.ReportEvent micPass,"结果正确","总价格正确"
Else
    Reporter.ReportEvent micFail,"结果错误","总价格计算错误"
End if

发布者：全栈程序员-用户IM，转载请注明出处：https://javaforall.cn/140242.html原文链接：https://javaforall.cn

【正版授权，激活自己账号】： Jetbrains全家桶Ide使用，1年售后保障，每天仅需1毛

【官方授权正版激活】： 官方授权正版激活支持Jetbrains家族下所有IDE 使用个人JB账号...