QTP學習筆記----2013.04.27

1、描述性編程
一、對象名（「屬性名:=屬性值」）
第一種：單屬性及其屬性值來描述對象
Browser("micClass:=Browser").Page("micClass:=Page").WebEdit("name:=wd").Set "QTP自動化測試技術領航"
Browser("micClass:=Browser").Page("micClass:=Page").WebButton("name:=百度一下").Click
第二種：描述多個對象，中間用逗號隔開
Browser("micClass:=Browser").Page("micClass:=Page").WebEdit("html tag:=INPUT","name:=wd").Set "QTP自動化測試技術領航"
Browser("micClass:=Browser").Page("micClass:=Page").WebButton("html tag:=INPUT","name:=百度一下","type:=submit").Click
總結：若是父對象描述了，子對象則必定要描述；可是子對象若是描述了，父對象能夠不描述（父對象要添加到對象庫中

二、使用Description對象，它能夠返回包含一組Property對象的Properties集合對象（Property對象由屬性名和值組成）
語法： Set ObjDescription=Description.Create()
例子：
Browser("micClass:=Browser").Page("micClass:=Page").WebEdit("html tag:=INPUT","name:=wd").Set "QTP自動化測試技術"
經過Description對象的腳本以下：
Set ObjBrowser=Description.Create()
ObjBrowser("micClass").Value="Browser"
Set ObjPage=Description.Create()
ObjBrowser("micClass").Value="Page"
Set ObjWebEdit=Description.Create()
ObjWebEdit("html tag").Value="INPUT"
ObjWebEdit("name").Value="wd"
Browser(ObjBrowser).Page(ObjBrowser).WebEdit(ObjWebEdit).Set"QTP自動化測試技術"
'釋放對象
Set ObjBrowser=Nothing
Set ObjPage=Nothing
Set ObjWebEdit=Nothing

2、描述性編程案例：
一、同一個界面中，出現不少個相同類別的控件
Set baidu=Browser("micClass:=Browser").Page("micClass:=Page")
Print baidu.Link("name:=新聞").Exist
With baidu
Print .link("name:=貼吧").Exist
Print .link("name:=知道").Exist
Print .link("name:=圖片").Exist
Print .link("name:=網頁").Exist
Print .link("name:=地圖").Exist
End With
Set baidu=Nothing
分析：先用Set將公共部分提取，而後使用with將複用代碼提取
二、同時操做多個窗口
systemUtil.Run "C:\Program Files\Internet Explorer\iexplore.exe"
systemUtil.Run "C:\Program Files\Internet Explorer\iexplore.exe"
Browser ("CreationTime:=0").Navigate "http;//www.baidu.com"
Browser ("CreationTime:=1").Navigate "http://www.syue.com"
分析：使用Browser(CreationTime:=-1)來判斷當前打開的瀏覽器窗口有幾個
ObjBrowser=Browser(""CreationTime:=-1).Exist(0)
If ObjBrowser then
MsgBox "只存在一個窗口"
else
MsgBox "存在0個或者多個瀏覽器窗口"
End If
三、經過遍歷對象完成N個相同控件的操做
‘打開百度網站高級搜索頁面
systemUtil.Run "C:\Program Files\Internet Explorer\iexplore.exe","URL"
'描述WebEdit對象
set all_oEdit=Description.Create
all_oEdit("micClass").value="WebEdit"
'爲WebEdit找父對象和祖父對象，幷包裝在一塊兒
set all_oEdits=Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects(all_oEdit)
'遍歷對象
For i=0 to all_oEdits-1
set oEdit=all_oEdits.item(i)
oEdit.Set "QTP自動化測試技術"
Next
Set all_oEdit=Nothing
Set all_oEdits=Nothing
Set oEdit=Nothing