在QTP中使用DOM

大家对DOM应该都不陌生，它在网页制作中有广泛的应用。如果我们想在QTP中使用DOM模型需要通过Page对象的Object属性来实现。注意，QTP11才有良好的DOM支持操作，这里用百度首页做例子。

我们需要做的是在百度的搜索输入框中输入"qtp"并改变输入框的样式

'改变搜索框样式

Set odom=Browser("百度一下，你就知道").Page("百度一下，你就知道").Object
odom.getElementById("kw").value="qtp"
odom.getElementById("kw").style.border="2px solid red"

input标签的ID可以通过IE开发者工具查到，按下F12就可以了。想快速定位的话，按下CTRL+B,鼠标移到输入框上，单击即可。

当需要操作的对象很多的时候，使用DOM可以快速的完成。例如，我们想输出百度知道页面的所有A标签，使用DOM的方式获取更为快速。

services.StartTransaction "GetA"
Set link_obj=description.Create
link_obj("micClass").value="Link"

Set links= Browser("百度知道 - 全球最大中文互动问答平台").Page("百度知道 - 全球最大中文互动问答平台").ChildObjects(link_obj)
For i=0 to links.count-1
    print links.item(i).GetROProperty("text")
Next
services.EndTransaction "GetA"

services.StartTransaction "GetB"
Set dom=Browser("百度知道 - 全球最大中文互动问答平台").Page("百度知道 - 全球最大中文互动问答平台").Object

Set adoms=dom.getElementsByTagName("a")

For each adom in adoms
    print adom.innerHTML
Next
services.EndTransaction "GetB"

DOM还可以做很多QTP不能做的事情，例如，我们想使百度首页的A标签全部不显示，DOM可以很简单的完成

Set dom=Browser("百度知道 - 全球最大中文互动问答平台").Page("百度一下，你就知道").Object

Set adoms=dom.getElementsByTagName("a")

For each adom in adoms
    adom.style.display="none"
Next