QTP描述性编程（descriptive programming）

vikesgao

1 、 descriptive programming 概述
通 常情况下，当在录制一个操作时， QTP 会将被操作对象加入到对象库里（ Object Repository ）。一旦对象存在于对象库里，我们就可以在专家 视图里通过添加相关的对象方法来对该对象进行操作。我们可以通过引用层次型对象库里的对象描述（ Object Description ）来添加相应的方 法。因为 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”) 然 而，我们可以发觉到，上面的例子在处理对象时，对象已经存在于对象库里，因此我们可以应用这个对象的逻辑名。实际使用中，情况往往并非如此简单，我们经常 会遇到很多在页面上动态产生的对象，换而言之，对象库里没有这些对象，我们也无从引用。因此我们必须采用其他的技术来完成这类操作，这也就是我们需要讲解 的 Descriptive Programming 。为了满足上面提到的动态对象的处理问题， QTP 允许用户通过将对象属性编码到测试脚 本里来动态识别对象，这就是我们通常意义下称为的 Descriptive Programming 。通过这种方式，我们可以指示 QTP 不通过引用对象库和 对象名来对实际对象进行操作。具体操作中，我们只需要为 QTP 提供对象的一组属性和值，这样 QTP 就可以来识别相应的对象并对其进行操作。这相当于，告诉 QTP 要识别对象的一些关键特征，根据这些特征 QTP 就可以一一匹配然后识别出来这个对象。而且，更为重要的是，通过这种 Descriptive 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 参数来定位对象，这里就不详细叙述了。
通 过上面的例子，我们对 Descriptive Programming 有一个基本了解了，下面我们详细讲解一下 Descriptive Programming ：在具体实现中，我们有两种类型的 Descriptive Programming 方法。可以列出直接在 测试语句中描述对象的属性和值的集合；或者向 Description  对象中添加属性和值的集合，然后在语句中输入 Description  对象的名称。 下面我们分别举例介绍。
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  对象描述开始）开始使用 Descriptive Programming 。
Browser("Mercury Tours").Page("Title:="Mercury" Tours").WebEdit("Name:="Author"", "Index:="3"").Set "jojo"  此外，如果我们希望在在一个测试或组件中多次使用相同的 Descriptive 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
如果使用了 VBScript 里面的 With 语句，还可以简化为以下代码：
With Window("Text:="HyperSna"")  
.WinButton("Caption:= 日期 ").Click  
.WinButton("Caption:= 时间 ").Click
.WinButton("Caption:= 确定 ").Click
End With  
下面我们来看一个更为详细的例子，在 QTP 产品缺省安装里面自带了一个网上订机票的示例称为 Mercury Tour ，我们看一下在订票过程中何时需要用 Descriptive Programming 。首 先登入系统后，如果需要订票，就要先搜索航班，此时系统要求输入订票乘客的数量，假设我们在第一次录制脚本时选择了 1 个 Passenger ，并成功完成订 票。然后，我们需要参数化乘客数量来测试订票系统，我们会发现回放会失败。原因在于，不同的乘客的数量导致在订票时需要输入每个乘客的姓名，而录制时，只 输入了一个乘客的姓名。而乘客姓名的输入框是随着乘客数量的变化而动态生成的，我们不可能从对象库里得到没有录制的对象，因此必须使用 Descriptive 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… 依次类推。因此只要通过简单的 Descriptive 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 、使用 description 对象
使 用 Description  对象可以返回包含一组 Property  对象的 Properties  集合对象。 Property  对象由属性名和值组成。然 后，可以在语句中指定用返回的 Properties  集合代替对象名。（每个 property  对象都包含一个属性名和值）。
要创建 Properties  集合，可以使用以下语法输入 Description.Create  语句：
Set MyDescription = Description.Create()  
创 建 Properties  对象（例如，以上示例中的 MyDescription ）后，就可以输入语句，以便在运行会话期间在 Properties  对象中 添加、编辑、删除或检索属性和值。这样，就可以在运行会话期间，使用动态方法确定哪个属性以及多少个属性应包含在对象描述中。
在 Properties  集合中填充一组 Property  对象（属性和值）后，可以在测试语句中指定用 Properties  对象代替对象名。
例如，假设我们需要完成以下一个操作：
Window("Error").WinButton("text:=OK", "index:="1"").Click
我们可以通过 Description 对象来实现同样的功能，参加下面的代码：
Set MyDescription = Description.Create()
MyDescription("text").Value = "OK"
MyDescription("index").Value = 1
Window("Error").WinButton(MyDescription).Click
Set MyDescription = Nothing

situjm

请问一下，类似这段：
Browser("Mercury Tours").Page("Title:="Mercury" Tours").WebEdit("Name:="Author"", "Index:="3"").Set "jojo"

Page("**"M"**")为什么里面还套了个引号""呢？作用是什么？为什么我一用这种格式，QTP就报错，说我缺少")"呢？

vikesgao

QTP中使用描述性编程
　　● 使用编程性描述(Using Programmatic Descrīptions)

　　在录制脚本时，QTP会将被测对象添加到对象仓库中。只要对象存在于仓库中，我们就可以在专家视图中使用该对象进行手动添加脚本。在脚本中，我们一般都使用对象的名称(该对象名称不区分大小写)作为对象描述。

　　例如：

　　在下面的语句中“username”是一个编辑框的名称。这个编辑框位于某页面(Page)之上(该页面的名称为“Mercury Tours”)，并且该页面属于名为“Mercury Tours”的浏览器(browser)。

　　Browser("Mercury Tours").Page("Mercury Tours").WebEdit("username")

　　因为对象仓库中的对象的名称是唯一的，因此你只要在脚本中指定对象的名称即可。QTP根据指定的对象名称以及它的父对象在对象仓库中找到该对象，然后根据仓库中对象的详细描述从被测试程序中查找并识别对象。

　　其实，在QTP脚本中，不使用对象仓库或对象名称，也可以对被测程序中的对象进行操作。为了做到这一点，我们需要在QTP脚本中提供对象的属性及其值的列表。这就是编程性描述。

　　当对象不存在于对象仓库之中，而我们又希望操作该对象时，编程性描述就非常有用。如果有多个对象，它们具有某些相同的属性，通过编程性描述，我们可以在这些对象上进行相同的操作；或者某个对象的属性无法确定，需要在运行过程中指定，我们也可以使用编程性描述，来对该对象进行操作。

　　例如：在一个页面有多个check box，你不能预知其个数，也不知道所有check box的准确描述，然而你希望选中所有的check box。在这种情况下，你可以使用编程性描述来解决。你只需要让QTP对所有描述为HTML TAG=input,TYPE=check box的对象执行一个Set “ON”的操作即可。

　　编程性描述的方法有两种：

　　方法一：在语句中直接列出对象的属性及值的列表；

　　方法二：使用Descrīption对象，为Descrīption对象添加属性及值的集合，然后在语句中直接使用Descrīption对象的名称即可。

　　使用第一种方法要简单一些，但是在很多情况下，第二种方法更显得功能强大并更有效率。

　　● 在语句中直接使用编程描述(Entering Programmatic Descrīptions Directly into Statements)

　　在语句中不使用对象的名称，而是使用对象的描述(指定多对property:=value值)。

　　通常语法如下：

　　TestObject(“PropertyName1:=PropertyValue1”，“…”，“PropertyNameX:=PropertyValueX”)

　　TestObject：指的是测试对象的类名

　　PropertyName:=PropertyValue：指的是测试对象的属性及值。每对property:=value用双引号标记，并用逗号隔开。

　　注：property value可以是变量。

　　注意：在编程性描述中，QTP将所有的property value视为正则表达式。因此，当property value中包括正则表达式特殊字符(如*，？,或+)时，要在特殊字符前加“\”。

　　下面的语句中，使用到了Mercury Tours网页中的一个WebEdit对象，它的Name为Author，Index为3。在运行过程中，QTP就会从网页中查找Name为Author并且Index为3的WebEdit对象，并在WebEdit中输入文字“MarkTwain”。

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

　　注意：如果你对测试对象层级关系中的某个上级对象使用了编程性描述，那么在同一语句中，从该对象开始，它的所有下级对象都必须使用编程性描述，否则QTP不能识别该父级对象的下级对象。

　　例如：语句中，层级关系中所有的对象都使用了编程性描述：

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

　　下面的语句中，从层级关系中的某个点开始，使用编程性描述(从Page对象开始)：

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

　　但是，你不能象下面的语句这样使用编程性描述。(它对Browser及Page对象使用了编程性描述，但是对于WebEdit对象，却又想使用对象仓库中的名称)

　　Browser("Title:=Mercury Tours").Page("Title:=Mercury Tours").WebEdit("Author").Set "Mark Twain"

　　QTP偿试根据WebEdit的名称在仓库中定位对象，但是却无法在仓库中找到它的父对象。

　　For more information on working with test objects, seeWorking with Test Objects。

　　如果在脚本中你要多次使用到相同的编程性描述，可以将对象指定到变量。

　　例如，有如下脚本：

　　Window("Text:=Myfile.txt - Notepad").Move 50, 50

　　Window("Text:=Myfile.txt - Notepad").WinEdit("AttachedText:=Find what:").Set "hello"

　　Window("Text:=Myfile.txt - Notepad").WinButton("Caption:=Find next").Click

　　你可以将脚本改进为：

　　Set MyWin = Window("Text:=Myfile.txt - Notepad")

　　MyWin.Move 50, 50

　　MyWin.WinEdit("AttachedText:=Find what:").Set "hello"

　　MyWin.WinButton("Caption:=Find next").Click

　　你还可以使用With语句，将脚本改进为：

　　With Window("Text:=Myfile.txt - Notepad")

　　.Move 50, 50

　　.WinEdit("AttachedText:=Find what:").Set "hello"

　　.WinButton("Caption:=Find next").Click

　　End With

　　For more information about theWithstatement, seeWith Statement。

　　● 在编程性描述中使用Descrīption对象(Using Descrīption Objects for Programmatic Descrīptions)

　　你可以使用Descrīption对象，来返回一个Properties collection对象，该集合对象包括一系列Property对象。每个Property对象由Property name及value组成。

　　然后在语句中用Properties collection对象替代被测对象的名称。

　　注意：默认情况下，所有被添加到Properties collection中的Property对象的值被当成正则表达式对待。因此，当Property Value中包含正则表达式的特殊字符(如*，?，+)时，要在特殊字符前使用“\”符号。

　　你也可以在Properties Collection中，将RegularExpression属性值设置为False，这样即使在Property Value中用到了正则表达式的特殊字符，也会被视为普通字符。更多信息参考QuickTest Professional Object Model Reference的Utility部分。

　　要创建Properties collection，使用Dexcription Create语句，语法如下：

　　SetMyDescrīption= Descrīption.Create()

　　一旦创建了Properties对象(例如上例中的Mydescrīption)，在运行过程中，你就可以使用语句向Properties对象添加、编辑、移除或获取属性及属性值。这使你在运行过程中可以动态的决定：在对象描述中使用哪些属性、使用多少属性。

　　当你将一系列的属性及属性值加入到Properties collection中以后，你就可以在脚本语句中用Properties对象替代被测对象的名称。

　　例如，有如下语句：

　　Window("Error").WinButton("text:=OK", "width:=50").Click

　　通过改造，成为：

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

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

　　MyDescrīption("width").Value = 50

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

　　注：当为一个ActiveX对象创建编程性描述时，如果该对象的run-time对象是windowless的(即没有相应的window handel)，就必须在属性描述中将它的windowless property设置为Ture。

　　例如：

　　Set ButDesc = Descrīption.Create

　　ButDesc("ProgId").Value = "Forms.CommandButton.1"

　　ButDesc("Caption").Value = "OK"

　　ButDesc("Windowless").Value = True

　　Window("Form1").AcxButton(ButDesc).Click

　　● 对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 WebObjDesc = Descrīption.Create()

　　WebObjDesc("Name").Value = "UserName"

　　WebObjDesc("Index").Value = "0"

　　Browser("Mercury Tours").Page("Mercury Tours").WebElement(WebObjDesc).Click

　　QuickTest clicks on the first Web object in the Mercury Tours page with the nameUserName。

　　关于WebElement对象的更多信息，参考QuickTest Professional Object Model Reference。

　　● 在编程性描述中使用Index属性(Using the Index Property in Programmatic Descrīptions)

　　在需要唯一识别一个对象时，index属性有时候可能非常有用。index属性是对象在源代码中出现的顺序，第1次出现时，index值为0。

　　Index属性是object-specific的。因此，当你用index属性值“3”来描述一个WebEdit对象时，QTP会在被测程序的当前页面中查找第4个WebEdit对象。

　　如果你使用index属性值3来描述一个WebElement对象时，QTP会在被测程序的当前页面中查找第4个Web对象。

　　例如，当前页面中存在下面的对象：

　　* 一个名为Qpple的Image对象

　　* 一个名为UserName的Image对象

　　* 一个名为UserName的WebEdit对象

　　* 一个名为Password的Image对象

　　* 一个名为Password的WebEdit对象

　　下面的语句中指的是列表中的第3个对象，因为它要求指向的是第1个名为UserName的WebEdit对象。

　　WebEdit("Name:=UserName", "Index:=0")

　　下面的语句中指的是列表中的第2个对象，因为它要求指向的是第1个名为UserName的WebElement对象。

　　WebElement("Name:=UserName", "Index:=0")

　　注：如果当前只有一个对象，使用index=0将无法查找到对象，因此就不能在对象描述中使用index属性。

walker1020

非常感谢楼主的奉献。现在难得有人能静下心来 写些这样高质量的 总结性的帖子里。

walker1020

如果还不行 那么使用对象的 Exist 属性 判断一下你用描述性编程写的对象是否存在。

walker1020

Browser("Title:=百度一下，你就知道").Page("Title:=百度一下，你就知道").WebEdit("name:=wd").Set "我的 ...
zhaoshenzhou 发表于 2010-10-16 09:49

  把 第三行中的 Text 改为 text 再试试

Jason_ex

上帝注定

好东西，要顶

lyscser

楼上的好像不会有问题

zhaoshenzhou

Browser("Title:=百度一下，你就知道").Page("Title:=百度一下，你就知道").WebEdit("name:=wd").Set "我的中国心"
Browser("Title:=百度一下，你就知道").Page("Title:=百度一下，你就知道").WebEdit("name:=wd").Submit
Browser("Title:=百度一下，你就知道").Page("Title:=百度搜索_我的中国心").Link("Text:=我的中国心_百度百科").Click
呵呵，问一下这样的描述第三行为什么会有问题呢

vikesgao

自己顶一下