一提到自动化测试工具，给人印象最深的就是录制和回放了。录制测试人员的操作过程，再回放出来并多次运行，达到使用机器代替人来执行测试的效果。

    QTP采用的关键字驱动与专家视图的设计思想，不但可以自动生成代码，使初学者快速入门，更为高级测试人员提供了便利的编程界面，使其可以高效的完成自动化测试脚本，不用完全依赖于录制和回放过程。

    下面就我个人的使用经验，简单谈谈如何不依赖于录制和回放来完成QTP脚本的。

    操作步骤很简点，主要分为三步：
    第一步，维护对象库，添加必需的对象以及配置对象的属性。
    第二步，在专家视图中，编写测试代码。
    第三步，运行并调试代码。

    举个简单的例子。

    以在51testing的网站上搜索关键字QTP为例。

    首先，打开QTP，点击工具栏上的Object Repository按钮，打开对象库维护界面。如图一（图片暂时上传不了）

    点击Add Objects按钮，添加站内搜索的文本框以及后面的查询按钮对象，如图二

    然后，在专家视图中，手动输入如下代码：
    Browser("软件测试专业网站:51Testing软件测试网").Page("软件测试专业网站:51Testing软件测试网").WebEdit("keyword").Set "QTP"
    Browser("软件测试专业网站:51Testing软件测试网").Page("软件测试专业网站:51Testing软件测试网").Image("GO").Click

    由于录制的过程中，待测试的页面是已经打开的，所以为了保证这个测试的前提条件，在前面添加打开IE的语句。
    SystemUtil.Run "iexplore.exe",""

    这样，使用QTP的自动化测试脚本就完成了，运行看看是否通过？结果是一次性通过，而且没有其他需要修改的地方了。

    还可以在此基础上增加关闭所有IE的函数，增加验证点等等使脚本更加健壮和完整，这里就不赘述了。

    如果使用录制和回放的方法来开发脚本，可能存在以下几个问题：

    一个是自动生成的代码有一些是没有用的，有时候反而会影响代码的质量；

    一个是通过录制生成的代码，健壮性都不好，如果要使脚本在无人值守的情况下顺畅地运行，还是需要手动修改的。比如在对象找不到的地方增加判断对象是否存在，再继续下一步操作等等；

    再有，就是录制的过程中，会使你的对象库中多出来一些脚本正常运行以外的多余的对象，给维护对象库也增加了工作量。

    比较这两种方法，总体感觉直接添加对象并编写代码的方式，可以弥补录制回放过程的不足，节省了脚本的开发时间，减少了对象库的维护工作量，大大提高了自动化测试脚本的开发效率。

    当然，能够这样做是有前提的。
    第一，必须对待测试的系统非常熟悉。即开始写自动化脚本之前就能从大脑中反映出每一个步骤中需要的对象及操作。
    第二，对QTP的工作原理以及工具本身非常熟悉。能够有办法解决脚本运行时出现的任何问题。
    第三，有良好的编程基础尤其是针对VBscrīpt语言的。如果对于代码的结构、可维护性都把握很好的话，那么效果就会更加明显了。

    补充一点，使用这种方法，你的对象库的设计一定要到位，保证在写代码的时候，很容易的找到你要操作的对象，否则就得不偿失了。

    现在我再来介绍另一种方法，这种方法也是QTP本身所提供的。就是设置菜单选项“setting”中的"resource"选项来做到调用共享文件的效果。在"resource"选项中，有三种文件格式是可以被调用的，分别是*.sql;*.vbs;*.txt三种后缀文件。这里我用一个*.txt文件为例。

    新建一个名为test.txt的文本文件，其保存内容如下：（注：保存的内容也必须合法）

Function writeorderno(orderno)
Dim fso, myfile
Set fso=CreateObject("scrīpting.FileSystemObject")
Set myfile=fso.openTextFile("C:\result1.txt",8,false)
myfile.writeline orderno
myfile.close
End Function

    一个名为writeorderno的Function，其作用是把传进来的值写到C盘名为result1.txt的结果文件中去。（注：结果文件也是事先要准备好的）。共享文件准备完毕，那么就开始设置"resource"选项。打开“setting”窗口，找到"resource"选项。点击“+”的button。选择前面我们建好的文件。如下：

    确定关闭窗口。我们就来试验一下，是不是这个共享文件里的Function能够被调用了。在QTP专家视图里写上这么几句代码：

Dim order

order=1

writeorderno order

    接下去就按run执行试验，结果测试通过。虽然在脚本中根本没对writeorderno函数做说明，但是当QTP运行到这句代码的时候，在本脚本里没说明的情况下，自己会到"resource"选项里去找。结果QTP能正确识别这个writeorderno 函数。打开c盘里的 result1.txt的结果文件，发现传进函数的值1，被正确的写了进去。预示着整个调用共享文件的成功。

    刚开始使用QTP，就一直对着说明书，不停的“订飞机票”（订飞机票是说明书里的一个例子）。学会了一个步骤就拿到公司产品上玩玩，回忆起来还是挺有趣的。

   当我用一些简单的功能开始录制脚本时，发现保存ActiveXScreen的话，生成的脚本很中空间（因为程序会保存每个不同的录制页面），多录一些硬盘空间就满了，而且回放过程会很慢。  但如果不保存活动页（ActiveXScreen），对脚本的再改造/维护起来就相对困难一些。

   于是我开始去了解“关键字”视图里的内容，尝试了解代码。慢慢的，我了解到“关键字”视图显示了整个操作步骤，第个组件相对于程序里一个元素。同时还记录了录制过程对该元素的操作和结果。

    然后我又开始在论坛在找些资料看看，从有点所谓的高级应用中，我发现脚本的维护并不一定要有“活动页”。实际是QTP所有对象的识别，都存在脚本的一个对象库里了。QTP经常出现无法识别对象的问题，可以从这里着头修改。  
   为了减少QTP脚本占用空间大、录制慢的问题。我查阅了一些资料，可以在设置中进行修改，让脚本中不保存活动控件（ActiveX）或仅保存出错时的录制页面。干脆，我就从此录制页面了。所有的调试都从“关键字”视图和“专家”视图中进行修改。而且关于对象库，QTP也有个选项，可以设置加载页面上所有的对象，我修改成只保存页面上录制过程使用的对象。  这样，脚本的容量问题就解决了，录制后的脚本会比以前小很多，来了个彻底的瘦身。关于录制速度的问题，和保存“活动页”、动态脚本也有一定的关系，另外可以减小启动的加载项（如：去掉VB插件、.net插件，不需要的就不加进来）。这样的脚本上传到TestDirector上，或从TestDirector上调用就不会太慢了。

   然而真正的问题，棘手的问题就不是上面所述的那么简单了。不过都是有办法解决了的，嘿嘿……
   以下是我经常遇到的问题：
       一、无法识别控件。
       二、错误回放过程未知弹出窗口。
       三、加载.net插件后和TD的关联问题。
       四、动态加载元素的识别问题。
       五、调用外部dll的问题。
       六、随机验证码的问题。

问题一，解决办法有三种：
   1、更改QTP自身对某控件的识别方式，在 tools——Object Identification 中。在这里列出了所有QTP能识别的控件，以及控件的识别方式。你可以给他添加X、Y坐标进行识别。或更明显的，列表中的信息，不按名称识别，而是按ID识别。这个修改可以解决一些问题，具体的赶紧动手试试吧……
   2、使用虚拟物件，来定义一个控件，在 tools——Virtual Object 中。在这里可以自定义一个控件。例如在ASP的程序中，程序出错，在客户端的表现形式大部分是一样的，你可以把整个错误页面当成一个控件来识别（感觉不错）。如果加一个判断，出错后你想做什么就由你自己定了。
   3、使用低级录制或鼠标录制。用 Test——LowLevelRecording/AnlogRecording 吧，用它录制就不需要什么设置了，他会记录你的程序控件相对屏幕的位置。用LowLevelRecording还有代码可改，用AnlogRecording动作就被封装了（维护性极差）。两者因实际环境更取其长吧……

问题二的解决过程：
关于弹出提示的问题，我当时需要情况是这样的。一个信息录入系统，由于数据量很大，查询需要一段时间。QTP回放时动作比较快，点了保存，程序还没反应过来它就进行了下一步操作。这时的操作就和录制时不一样了，程序给出一个提示，但这个提示是录制过程没有的。弹出框是一般都是POP形势（至上）的，导致QTP无法继续回放，结果就是回放失败。  
解决办法有两个：
        1、进行判断，当出现这个提示时，点是/否/取消按钮。
        2、通过 Tools——Recorvery Scenario Manager 设置默认操作。
    我最初就是用的第一种方法。写一个函数判断是否出现这个提示，如果出现就点“取消”然后wait(2)。    每个可能出现弹出框的动作后都调用一次这个函数。虽然可以解决这个问题，但回放的效率就低了，而且需要你预知提示框的信息。
    当我知道了第二种方法，显然更科学^_^。它可以对所有预知甚至不知的提示进行指定的操作。
    实际上，当程序出现了未预知的提示时，可能就是程序的BUG，所以使用上述办法解决工具问题时，也要考虑是否会掩盖程序的缺陷。

问题三的解决办法：
      用好QTP后，会不自觉的和TD关联起来。但从TD直接启动QTP时，程序只会加载QTP自带的插件，如果你安装了其它插件（如.net、java、etc.），默认是不加载的。这会导致上传的脚本无法正确执行。解决办法很简单，去 Test——Setting里进行Modify 吧。从本地打开的脚本，这里不能进行Modify的。所以办法很简单，但如果不知道的话就很难了。当初为这个问题我可是废了八牛三虎之力呢……

问题四的解决过程：
     当我开始改代码时，定义一个动作，然后可以生成N个动作。假设N个动作产生了N个结果，你要对这结果进行处理时，你会发现这N个结果都不能被识别:

网页上有个表格，是往数据库里加数据的。
两个表格显示在同一个页面上，左边为父表，右边为子表。
点击左表，右表显示其子项目。 
结构如下：  
A
├─1
├─2
├─3
└─4
B
├─1
├─2
├─3
└─4
                    ……
思想很清晰：
添加一个父项A、选中此父项A、对其添加子项1、2、3、4
添加一个父项B、选中此父项B、对其添加子项1、2、3、4  ……

代码也很简单：
dim M          '定义父项数
dim N          '定义每个父项包含的子项数

For i=1 to M
      Call 添加父项( i )       
      选中父项( i )              '问题就出在这里  
   For j=1 to bwfl step 1
       Call 添加子项( j )
    Next       
Next

现在问题出来了，思路应该没有问题（除非这方法真的行不通），循环也是顺着思想来的。

问题是，无法实现选中的父项（最多识别到一个）。
由于此循环可以在录制过程进行，如果不改变变量名称，循环可且只可以成功运行一次。问题是这个名称都是从DataTable里获取的。
因为，在运行过程中生成的项目没有加到对象库中，无法被识别。

   这个问题最后是从思想上解决的。答案是我做的是功能测试，为什么不先加父项，检查父项的功能是否正常，然后再去测子项的功能。不去改变名字，因为那没有必要。核心答案“功能测试、测试功能”。即对测试工具首先需要有正确的认识。
   当然，这个问题可以用代码去实现，但那需要有一定的编程功底且耗时，可维护性不一定好。有需要的朋友可以去试一下，然后把你的经验也共享一下。

问题五，是对QTP很大的一个扩充。  
    对于QTP调用外部DLL的功能，由于我的编程功底不够，没有相关人士配合我，我只能望之垂涎了！
    如果能调用外部DLL的话，QTP的功能就可以变得很强大。自己写的程序，自己编一些过程用QTP进行测试，我想“后果很严重”  。真想有一次给我尝试的机会……

【摘要】自动化功能测试是一种企业级的用于检验应用程序是否如期运行的功能性测试工具。通过自动捕获，检测，和重复用户交互的操作，能够辨认缺陷并且确保那些跨越多个应用程序和数据库的业务流程在初次发布就能避免出现故障，并且保持长期可靠运行。在市场上用的比较多的主要包括Mercury公司的WinRunner，QuickTest Professional和IBM的Rational Robot。笔者对于QuickTest Professional相对较为熟悉，希望有机会向大家逐步介绍QuickTest Professional中的一些要点及技巧。在本文里主要介绍了QuickTest Professional中的一项核心内容Descrīptive Programming，希望对大家有所借鉴和帮助。在文中，为了方便起见，将QuickTest Professional简称QTP。(本文是基于Quick Test Professional V8.0而写)。

【关键词】

描述性编程Descrīptive Programming

功能测试Functional Test

专家视图Expert View

关键字视图Keyword View

对象模型Object Model

运行时对象Run-Time Object

测试对象Test Object

【正文】

．QTP功能测试基本方法

我们简单介绍一下有关功能测试的基本方法，这实际上对于所有自动化功能测试产品来说都是一样的。一般情况下，用QTP来进行功能测试的基本方法主要包括三个主要阶段：

1、创建测试或组建

首先可以通过在应用程序或网站上录制会话，或者建立对象库并使用关键字驱动功能向关键字视图中手动添加步骤来创建测试或组件。在QTP里面我们可以通过两种方式添加步骤来创建测试或组件：

• 在应用程序或网站上录制会话。
• 建立对象库并使用这些对象在关键字视图或专家视图中手动添加步骤

然后在在测试或组件中插入检查点，检查页面、对象或文本字符串中的特定值或特征，通过它可以标识网站或应用程序是否正常运行。或是通过用参数替换固定值扩展测试或组件的范围。提供数据表中的数据，定义环境变量和值，定义测试、组件或操作参数和值，或者使用QTP生成随机数字或当前用户和测试数据等。

最后如果需要的话使用QTP中众多的功能测试功能来增强测试或组件或添加编写语句来实现更复杂的测试目标。

2、运行测试和组建

控制运行会话，帮助标识和消除测试或组件中的缺陷。使用“单步执行”、“单步跳过”和“单步退出”命令逐步运行测试或组件，或设置断点使测试或组件在预定点暂停。每当测试或组件在断点处停止时，可以在“调试查看器”中查看其变量的值。

3、分析结果

在运行测试或组件之后，通过两种方式可以查看其结果：在“结果”窗口中查看结果；自动报告在运行会话过程中检测到的缺陷，可能的话并上报到其他缺陷管理产品中。

．试图与对象模型

在介绍QTP中的Descrīptive Programming前，我们有必要先介绍一下ExpertView及在ExpertView里进行编码的一些基本知识。

在QTP里面提供了两种视图，第一种我们把它称为KeywordView（关键字视图，在早期的版本中称为TreeView），第二种把它成为ExpertView（专家视图），这两种视图分别是针对两种类型的人进行使用的。

1、KeywordView（关键字视图）

通过关键字视图，QTP提供了一种模块化的表格格式创建和查看测试或组件的步骤。每个步骤在关键字视图中都是一行，这样用户可以轻松的修改任何一部分组成。

在录制会话过程中，用户在应用程序上执行的每个步骤在关键字视图中记录为一行。例如，在51testing的页面上执行的下列三个步骤：

• 在“用户名”编辑框中输入 zhoda02。
• 在“密码”编辑框中输入加密字符串 41c630a213508cd49eb35089db1b893144b9。
• 单击“登录”按钮。

那么，关键字视图将包含下列行：

很显然，关键字视图非常直观有效，使用的人可以很清晰的看到被录制对象的录制层次及运行步骤，比较适合那些对于业务操作流程熟悉的人员使用。但是，如果需要一些增强型的操作，那就需要切换到专家视图里进行了。

2．ExpertView（专家视图）

QTP在关键字视图中的每个节点在专家视图中对应一行脚本。上面例子对应的脚本如下：（删除后一句是因为前后重复，一句可以说明问题）

Browser("51Testing软件测试网：软件测试的专业网站").Page("51Testing软件测试网：软件测试的专业网站").WebEdit("username").Set "zhoda02"

Browser("51Testing软件测试网：软件测试的专业网站").Page("51Testing软件测试网：软件测试的专业网站").WebEdit("password").SetSecure "41c630a213508cd49eb35089db1b893144b9"

Browser("51Testing软件测试网：软件测试的专业网站").Page("51Testing软件测试网：软件测试的专业网站").WebButton("登录").Click

对于QTP来说，其核心编码语言是Visual Basic scrīpt，因此，如果用户熟悉VBscrīpt，可以运用自如的添加和更新语句，并通过编程方式增强测试和脚本，而这一切必须在专家视图中完成。

更为重要的是，有些操作是必须在专家视图中才可以完成的，例如：要处理动态对象、客户化报告、获取对象运行时的属性值（Run-time Value）等等，这些都必须通过专家视图中的VBscrīpt编码完成。

然而，QTP里所有的操作都是基于对象进行的，所以我们必须对对象模型有一个基本了解，才可以在专家视图内进行Descrīptive Programming。

3、测试对象模型

测试对象模型是一大组对象类型或类，QTP用这些对象类型或类来表示应用程序中的对象。每个测试对象类都有一个可以唯一标识属于该类的对象的属性列表，以及一组 QTP可以对其进行录制的方法。它包括测试对象（Test Object）和运行时对象（RunTime Object）。

测试对象是QTP在测试或组件中创建的用于表示应用程序中的实际对象的对象。QTP存储有关该对象的信息，这些信息有助于它在运行会话期间标识和检查该对象。

运行时对象是网站或应用程序中的实际对象，在运行会话期间执行针对该对象的方法。

如果录制时执行应用程序的相应操作，则一般情况下QTP将完成以下操作：

• 标识 QTP测试对象类（表示执行了操作的对象），并创建相应的测试对象
• 读取应用程序中对象属性的当前值，然后将属性和属性值列表与测试对象一起存储。
• 选择该对象的唯一名称，一般使用该对象某个重要属性的值。
• 使用适当的 QPT 测试对象方法录制对对象执行的操作。

例如，假定使用以下 HTML 源代码单击“查找”按钮：

<INPUT TYPE="submit" NAME="Find" VALUE="Find">

QTPl将单击的对象标识为 WebButton 测试对象。它将创建一个名为 Find 的 WebButton 对象，然后为该 Find WebButton 对象录制下列属性和属性值，同时还会录制对WebButtion的Click方法。

在关键字视图及专家视图中显示内容分别为：

Browser("Mercury Interactive").Page("Mercury Interactive").WebButton("Find").Click

运行测试或组件时，QTP通过其测试对象类及其描述（一组用于唯一标识该对象的测试对象属性和属性值）来标识应用程序中的每个对象。测试对象及其属性和属性值的列表存储在对象库中。例如在上例中，QTP将在运行会话期间在对象库中搜索 WebButton 对象，通过名称 Find 来查找其描述。QTP根据找到的描述，在应用程序中查找 WebButton 对象，该对象带有 HTML 标记 INPUT、类型为 submit、值为 Find。找到对象后，它将对其执行 Click 方法。

在这样一组对象模型的基础上，QTP为各类应用对象都提供了一组方法和属性，例如Web Objects，Windows Objects，SAPGUI Objects，ActiveX，Java等。下面是一些Web Objects的方法和示例：

例1：获取单元格中的值

thisText = Browser(…).Page(…).Frame.(…).WebTable("sample").GetCellData(2,1)

例2：获取图片的名称

ObjectName = Browser(…).Page(…).Image("Find").GetProperty("Name")

例3：检查某个对象是否存在，如果存在弹出对话框说明对象存在。

If Browser("Browser").Page("Page").Applet("login.html").JavaEdit("username").Exist Then

MsgBox("The object exists.")

End if

．描述性编程（descrīptive programming）

1、descrīptive programming概述

通常情况下，当在录制一个操作时，QTP会将被操作对象加入到对象库里（Object Repository）。一旦对象存在于对象库里，我们就可以在专家视图里通过添加相关的对象方法来对该对象进行操作。我们可以通过引用层次型对象库里的对象描述（Object Descrīption）来添加相应的方法。

因为QTP对象库中的每个对象都具有唯一名称，所以在引用时对象名是必须需要指定的。然后在测试运行期间，QTP在对象库中根据这个对象的名称和父对象来查找对象，并使用为这个测试对象存储的测试对象描述，在网站或应用程序中标识该对象。

例如我们用QTP录制Yahoo Mail登录情况时我们需要输入用户名，于是在录制时我们就会录下一个WebEdit对象，它的缺省逻辑名为“login”，该编辑字段位于名为 “Yahoo! Mail - The best” 的页面上，并且该页面在浏览器中使用名称 Yahoo!进行录制。如图所示，即为录制时的对象库的内容：

那么如果我们想要应用该对象，就可以在专家视图输入以下信息：

Browser("Yahoo!").Page("Yahoo! Mail - The best").WebEdit("login").Set “xxx”

或者我们也可以调用一些方法，获取改对象在运行时的对象名，如：

Browser("Yahoo!").Page("Yahoo! Mail - The best").WebEdit("login").GetROProperty(“name”)

然而，我们可以发觉到，上面的例子在处理对象时，对象已经存在于对象库里，因此我们可以应用这个对象的逻辑名。实际使用中，情况往往并非如此简单，我们经常会遇到很多在页面上动态产生的对象，换而言之，对象库里没有这些对象，我们也无从引用。因此我们必须采用其他的技术来完成这类操作，这也就是我们需要讲解的Descrīptive Programming。

为了满足上面提到的动态对象的处理问题，QTP允许用户通过将对象属性编码到测试脚本里来动态识别对象，这就是我们通常意义下称为的Descrīptive Programming。通过这种方式，我们可以指示QTP不通过引用对象库和对象名来对实际对象进行操作。具体操作中，我们只需要为QTP提供对象的一组属性和值，这样QTP就可以来识别相应的对象并对其进行操作。这相当于，告诉QTP要识别对象的一些关键特征，根据这些特征QTP就可以一一匹配然后识别出来这个对象。

而且，更为重要的是，通过这种Descrīptive Programming的方式，还可以让QTP识别具有某些相同属性的对象。我们先来举个例子来看一下：我们假设当前的Windows系统中打开了若干的Yahoo主页面（多于一个），现在我们要关闭所有的正在浏览Yahoo主页面的浏览器。

对于上面那个例子来说，我们先看一个简单一点的情况，假设只有且仅有一个Yahoo主页面：那么我们可以用下面的方法来

Window("Text:=Yahoo! - Microsoft Internet Explorer").Close

我们可以看到语句里我们要查找的对象是Window窗口标题为“Yahoo! - Microsoft Internet Explorer”，然后把它关闭，具体的语法说明我们稍后为解释。但是上面的语句仅仅适合前面提到的条件“只有且仅有一个Yahoo主页面”，如果有多个同样的窗口就会出错，原因是通过语句可以匹配到多个对象，而QTP不知道应该对哪个对象进行关闭动作。我们需要进一步的缩小匹配范围：

Dim i

i = 0

while (Window("Text:=Yahoo! - Microsoft Internet Explorer", "index:="&i).exist)

Window("Text:=Yahoo! - Microsoft Internet Explorer", "index:="&i).close

i = i +1

wend

这里我们可以看到，对于具有相同属性的对象，我们可以通过index参数来对其进行区别，第一个对象为index=0，第二个为index=1等等，依次类推。当然我们还可以通过CreationTime和Location参数来定位对象，这里就不详细叙述了。

通过上面的例子，我们对Descrīptive Programming有一个基本了解了，下面我们详细讲解一下Descrīptive Programming：在具体实现中，我们有两种类型的Descrīptive Programming方法。可以列出直接在测试语句中描述对象的属性和值的集合；或者向 Descrīption 对象中添加属性和值的集合，然后在语句中输入 Descrīption 对象的名称。下面我们分别举例介绍。

2、直接在语句中输入编程描述

通过多个指定描述对象的property:=value对，可以直接在语句中描述对象，这是最直接有效的方法。

常规语法为：

TestObject("PropertyName1:=PropertyValue1", "..." , "PropertyNameX:=PropertyValueX"}

TestObject - 测试对象的类。

PropertyName:=PropertyValue - 测试对象的属性及其值。各个property:=value 对之间应用逗号和引号分开。

例如：以下语句指定 Mercury Tours 页面中名为author且索引值为 3 的 WebEdit 测试对象。当测试运行时，QTP 将查找具有匹配属性值的 WebEdit 对象，并输入文本jojo。

Browser("Mercury Tours").Page("Mercury Tours").WebEdit("Name:=Author", "Index:=3").Set "Mark Twain"

我们也可以从从描述中的特定位置（从 Page 对象描述开始）开始使用Descrīptive Programming。

Browser("Mercury Tours").Page("Title:=Mercury Tours").WebEdit("Name:=Author", "Index:=3").Set "jojo"

此外，如果我们希望在在一个测试或组件中多次使用相同的Descrīptive Programming，则可以将创建的对象赋值给变量，这样使用会方便很多。

例如：我们需要完成下面一系列操作

Window("Text:=HyperSna").WinButton("Caption:=日期").Click

Window("Text:=HyperSna").WinButton("Caption:=时间").Click

Window("Text:=HyperSna").WinButton("Caption:=确定").Click

那么，为了方便其见，我们可以将Window("Text:=HyperSna")赋值到一个变量，然后再使用，参见下面的代码：

Set WinHyper = Window("Text:=HyperSna")

WinHyper.WinButton("Caption:=日期").Click

WinHyper.WinButton("Caption:=时间").Click

WinHyper.WinButton("Caption:=确定").Click

如果使用了VBscrīpt里面的With语句，还可以简化为以下代码：

With Window("Text:=HyperSna")

.WinButton("Caption:=日期").Click

.WinButton("Caption:=时间").Click

.WinButton("Caption:=确定").Click

End With

下面我们来看一个更为详细的例子，在QTP产品缺省安装里面自带了一个网上订机票的示例称为Mercury Tour，我们看一下在订票过程中何时需要用Descrīptive Programming。

首先登入系统后，如果需要订票，就要先搜索航班，此时系统要求输入订票乘客的数量，假设我们在第一次录制脚本时选择了1个Passenger，并成功完成订票。然后，我们需要参数化乘客数量来测试订票系统，我们会发现回放会失败。原因在于，不同的乘客的数量导致在订票时需要输入每个乘客的姓名，而录制时，只输入了一个乘客的姓名。而乘客姓名的输入框是随着乘客数量的变化而动态生成的，我们不可能从对象库里得到没有录制的对象，因此必须使用Descrīptive Programming。

在录制单个乘客时，我们得到的录制语句是：

Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebEdit("passFirst0").Set "Michael"

Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebEdit("passLast0").Set "Wang"

显然WebEdit("passFirst0")和WebEdit("passLast0")是录制时产生的对象并存放到对象库里的。通过对象库，我们可以看到对象的属性如下

系统对于发生多个FirstName时，命名规则是passFirst0，passFirst1…依次类推。因此只要通过简单的Descrīptive Programming就可以完成动态FirstName与LastName的识别工作。这里我们假设参数化的乘客数已经赋值给intPassNum，下面是脚本中的关键语句：

counter = 0

For i = 0 to (intPassNum)

Browser("Find a Flight:").Page("Book a Flight:").WebEdit("name:=passFirst"&i).Set "Michael"

Browser("Find a Flight:").Page("Book a Flight:").WebEdit("name:=passLast"&i).Set "Wang"

counter = counter + 1

Next

3、使用descrīption对象

使用 Descrīption 对象可以返回包含一组 Property 对象的 Properties 集合对象。Property 对象由属性名和值组成。然后，可以在语句中指定用返回的 Properties 集合代替对象名。（每个 property 对象都包含一个属性名和值）。

要创建 Properties 集合，可以使用以下语法输入 Descrīption.Create 语句：

Set MyDescrīption = Descrīption.Create()

创建 Properties 对象（例如，以上示例中的MyDescrīption）后，就可以输入语句，以便在运行会话期间在 Properties 对象中添加、编辑、删除或检索属性和值。这样，就可以在运行会话期间，使用动态方法确定哪个属性以及多少个属性应包含在对象描述中。

在 Properties 集合中填充一组 Property 对象（属性和值）后，可以在测试语句中指定用 Properties 对象代替对象名。

例如，假设我们需要完成以下一个操作：

Window("Error").WinButton("text:=OK", "index:=1").Click

我们可以通过Descrīption对象来实现同样的功能，参加下面的代码：

Set MyDescrīption = Descrīption.Create()

MyDescrīption("text").Value = "OK"

MyDescrīption("index").Value = 1

Window("Error").WinButton(MyDescrīption).Click

Set MyDescrīption = Nothing

【小结】以上是对QTP中有关处理动态对象中的Descrīptive Programming的简单介绍，希望对大家能够有所帮助，就总体而言，如果能够熟练掌握Descrīptive Programming，那么有很多实际中的问题就可以迎刃而解。当然Descrīptive Programming只是QTP中的一个功能，QTP在实际功能测试中还有很多强大的功能，作为QTP学习的一个系列有机会我会一一介绍。