【软件测试自动化-QTP系列讲座 22】 == 描述性编程 ==

       这一章的内容较为简单，对描述性编程熟悉的朋友可以直接略过，为了教程的完整性还是把这章的内容补上去，在学习本章之前，请先务必完成以下讲座的学习：

【软件测试自动化-QTP系列讲座 2】 == 对象库及原理透析 ==

http://blog.csdn.net/zzxxbb112/archive/2009/08/27/4489342.aspx

 

• 描述性编程：我们都知道QTP对象的鉴别原理，在QTP回放时，通过脚本中对应对象库中的对象的属性与真实测试对象的属性进行对比并且能够唯一匹配之后才能够对对象进行操作。而描述性编程其实就是通过把对象库中的对象属性的描述全部通过脚本体现出来，并且可以脱离对象库进行运行脚本。

 

• 描述性编程语法

systemutil.Run "C:/Program Files/Internet Explorer/IEXPLORE.EXE","http://www.baidu.com"

set oBrowser=Description.Create
Set oPage=Description.Create
Set oEdit=Description.Create

oBrowser("micClass").value = "Browser"
oPage("micClass").value="Page"
oEdit("name").value="wd"

Browser(oBrowser).Page(oPage).WebEdit(oEdit).Set "zzxxbb112"

开启一个百度浏览器后，不需要对象库，直接运行以上脚本，通过以上的例子我们可以看到通过把对象的属性都描述下来，运行以上脚本并可直接在搜索框进行输入，运行的原理是一样的，只不过一个是QTP帮我们封装好了的对象库，而现在是我们通过把对象的属性都描述下来从而定位对象。

 

• 字符串描述

systemutil.Run "C:/Program Files/Internet Explorer/IEXPLORE.EXE","http://www.baidu.com/"

Browser("micClass:=Browser").Page("micClass:=Page").WebEdit("name:=wd").Set "zzxxbb112"

执行完后我们可以看到字符串描述和上面的普通方法效果是一样的。

 

• 遍历对象

systemutil.Run "C:/Program Files/Internet Explorer/IEXPLORE.EXE","http://www.baidu.com/gaoji/advanced.html"

Set all_oEdit = Description.Create
all_oEdit("micClass").value="WebEdit"

Set all_oEdits = Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects(all_oEdit)
For i = 0 to all_oEdits.count - 1
    Set oEdit = all_oEdits.item(i)
    oEdit.set "zzxxbb112"
Next

使用此方法我们就可以通过遍历页面上所有同类型的对象并对其进行操作。

 

• 多窗口控制

以上3钟情况的脚本都是只能在打开一个浏览器的情况下才能正常执行，否则就会报对象超过一个的错误，不能识别，因此当出现多窗口的情况我们可以使用CREATIONTIME这个属性来做顺序的控制。

systemutil.Run "C:/Program Files/Internet Explorer/IEXPLORE.EXE"

systemutil.Run "C:/Program Files/Internet Explorer/IEXPLORE.EXE"

Browser("CreationTime:=0").Navigate "http://blog.csdn.net/zzxxbb112"

Browser("CreationTime:=1").Navigate "http://www.baidu.com"

使用以上代码QTP就能够分辨出多个浏览器的情况了，当然我也可以使用INDEX属性，大家可以试试。

注意：当我们使用Browser("CreationTime:=-1")时表明当前有且仅有一个浏览器窗口，当我们只需要一个浏览器的时候可以使用这个来作为判断依据。

buBrowser=Browser("CreationTime:=-1").Exist(0)

If buBrowser Then

    msgbox "存在一个浏览器窗口"

else

    msgbox "存在0个或者多个浏览器窗口"

End If