天天看點

qtp code

Browser("百度一下,你就知道").Page("百度一下,你就知道").WebEdit("wd").Highlight

set TestObject = Browser("百度百科——全球最大中文百科全書").Page("百度百科——全球最大中文百科全書").Image("到百科首頁")

Set Properties = TestObject.GetToProperties()

PropertiesCount = Properties.Count

Print "對象總計存在" & propertiesCount &"個性封裝屬性."

For i = 0 To PropertiesCount -1

    PropName = Properties(i).Name

    PropValue = Properties(i).Value

    Print PropName &"=" & PropValue

Next

Set Properties = Nothing 

Set TestObject = Nothing

ValueOfRo = Browser("百度百科——全球最大中文百科全書").Page("百度百科——全球最大中文百科全書").WebEdit("搜尋内容編輯框").GetROProperty("value")

MsgBox ValueOfRo

index = Browser("百度百科——全球最大中文百科全書").Page("百度百科——全球最大中文百科全書").WebEdit("wd").GetRoProperty("source_index")

Browser("百度百科——全球最大中文百科全書").Page("百度百科——全球最大中文百科全書").WebEdit("source_index:=" & index).set "QTP自動化測試技術領航"

With Browser("51Testing軟體測試論壇").Page("51Testing軟體測試論壇")

     .WebButton("搜尋").Object.value = "百度搜尋"

     .Image("51Testing_Logo").Object.src = "http://www.baidu.com/img/baidu_sylogo1.gif"

     .Link("加入51Testing(注冊)").Object.innerText = "加入百度(注冊)"

     .Link("登入").Object.innerText = "baidu_login"

End with

Browser("百度百科——全球最大中文百科全書").Page("百度百科——全球最大中文百科全書").WebEdit("wd").set "QTP自動化測試技術領航"

Browser("百度百科——全球最大中文百科全書").Page("百度百科——全球最大中文百科全書").WebButton("進入詞條").Click

代碼1:

Browser("micClass:=Browser").Page("micClass:=Page").WebEdit("name:=wd").Set "QTP自動化測試技術領航"

代碼2:

Browser("micClass:=Browser").Page("micClass:=Page").WebButton("name:=進入詞條").Click

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:=MP3").Exist

      Print .Link("name:=圖檔").Exist

      Print .Link("name:=把百度設為首頁").Exist

      Print .Link("name:=搜尋風雲榜").Exist

      Print .Link("name:=About Baidu").Exist

End With

set baidu =Nothing

'打開網站頁面

SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE",_

"http://www.baidu.com/gaoji/advanced.html"

'描述對象--WebEdit

Set all_oEdit = Description.Create

all_oEdit("micClass").value = "WebEdit"

'為WebEdit找父對象和祖父對象,并将所有對象“包裝"在一起

Set all_oEdits = Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects(all_oEdit)

'周遊頁面中的WebEdit對象,找到一個就輸入一串指定的字元串

For i = 0 to all_oEdits.count - 1

   Set oEdit = all_oEdits.item(i)

   oEdit.Set "QTP自動化測試技術導航"

'最後記得釋放所有設定的對象

Set oEdit = Nothing

Set all_oEdits = Nothing

Set all_oEdit = Nothing

SystemUtil.Run "baike.baidu.coim"

For i =0 to 9

Browser("百度百科——全球最大中文百科全書").Page("百度百科——全球最大中文百科全書").WebEdit("關鍵字輸入框").set "QTP自動化測試技術領航"

Browser("百度百科——全球最大中文百科全書").Page("百度百科——全球最大中文百科全書").WebButton("進入詞條").Click

Browser("百度百科——全球最大中文百科全書").Page("百度百科——全球最大中文百科全書").Image("到百科首頁").Click

Next 

testData = DataTable.Value("關鍵字輸入","Global")

Browser("百度百科——全球最大中文百科全書").Page("百度百科——全球最大中文百科全書").WebEdit("關鍵字輸入框").set testData

Browser("百度百科——全球最大中文百科全書").Page("百度百科——全球最大中文百科全書").WebButton("進入詞條").Click

Browser("百度百科——全球最大中文百科全書").Close