QTP 描述性编程 VS 录制

' 录制 百度搜索：QTP高级编程

Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").Set "QTP高级编程"

Browser("百度一下，你就知道").Page("百度一下，你就知道").WebButton("百度一下").Click

Browser("百度一下，你就知道").Page("QTP_百度搜索").Link("QTP_百度百科").Click

Browser("QTP_百度百科").Close

'  描述性语言编程  方式一 (与录制的脚本风格一致)

Browser("title:=百度一下，你就知道").Page("title:=百度一下，你就知道").WebEdit("name:=wd").Set "test"

Browser("title:=百度一下，你就知道").Page("title:=百度一下，你就知道").WebButton("name:=百度一下").Click

Browser("title:=test_百度搜索").Close

'  描述性编程   方式二同一界面中出现很多个相同 类别的控件元素

Set baidu=Browser("title:=百度一下，你就知道").Page("title:=百度一下，你就知道")

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

Print .Link("name:=地 图").Exist

End With

'  描述性编程   方式二百度高搜索界面所有输入输入：QTP 高级编程（ http://www.baidu.com/gaoji/advanced.html）

set  all_oEdit=Description.Create

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

Set all_oEdits=Browser("title:=高级搜索").Page("title:=高级搜索").ChildObjects(all_oEdit)

msgbox all_oEdits.count

For i=0 to all_oEdits.count-1

Set bjEdit=all_oEdits.item(i)

objEdit.Set "QTP 高级编程"

Next