QTP支持直接访问DOM(Document Object Model),可以通过DOM来访问HTML标签。在QTP中,访问DOM是通过使用Page测试对象的Object属性来进一步访问的,例如下面的脚本获取到Google主页中的:
On Error Resume Next
Set Doc = Browser("Google").Page("Google").Object
' 循环获取Page中的所有对象
For Each Element In Doc.all
TagName = Element.TagName ' 获取标签名
InnerText = Element.innerText ' 获取inner text.
' 把信息写入测试结果
Reporter.ReportEvent 0, TagName, InnerText
Next