QTP测试百度搜索框，关键字下拉列表框。

'测试百度输入关键字搜索框, 下拉列表

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

'Setting.WebPackage("ReplayType") = 2  '设置回放按鼠标事件，好像没效果会失败。 不知道咋回事忘高手指点， 个人觉得如果采用的录制方式的话应该有用。

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

wait 2 '暂停2秒,等待下拉框出现
'Setting.WebPackage("ReplayType") = 1

Set oDesc = Description.Create()
oDesc("micClass").Value = "WebElement"
oDesc("html tag").Value = "TD"

set oWebElement = Browser("name:=百度一下，你就知道").Page("title:=百度一下，你就知道").WebTable("name:=WebTable").ChildObjects(oDesc)
msgbox oWebElement.count 

For i = 0 To oWebElement.count - 1

	print  i & oWebElement(i).Object.innertext		'输出所有 WebElement 

	str = oWebElement(i).Object.innertext

	If str = "qtp教程" Then
		oWebElement(i).Click
		Exit For 
	End If

Next