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
總結：如果父對象描述了，子對象則一定要描述；但是子對象如果描述了，父對象可以不描述（父對象要添加到對象庫中

2、使用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

二、描述性編程案例：
1、同一個界面中，出現很多個相同類別的控件
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將複用代碼提取
2、同時操作多個窗口
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
3、通過遍歷對象完成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