懂VB的帮忙看一下这段程序

来源：百度知道 编辑：UC知道 时间：2024/06/18 00:05:30
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").Set "1"
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("password").SetSecure "4a21e4de6dae8c46"
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Click 27,13
Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromMonth").Select RandomNumber("p_Item")
Dim fromMonth,toMonth
fromMonth = RandomNumber("p_Item")
Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromDay").Select RandomNumber("p_Item1")
Do
Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("toMonth").Select RandomNumber("p_Item2")
obj.getP

描述性编程（descriptive programming）

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”)

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