在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的方式获取更为快速。

 1 services.StartTransaction "GetA"
 2 Set link_obj=description.Create
 3 link_obj("micClass").value="Link"
 4 
 5 Set links= Browser("百度知道 - 全球最大中文互动问答平台").Page("百度知道 - 全球最大中文互动问答平台").ChildObjects(link_obj)
 6 For i=0 to links.count-1
 7     print links.item(i).GetROProperty("text")
 8 Next
 9 services.EndTransaction "GetA"
10 
11 services.StartTransaction "GetB"
12 Set dom=Browser("百度知道 - 全球最大中文互动问答平台").Page("百度知道 - 全球最大中文互动问答平台").Object
13 
14 Set adoms=dom.getElementsByTagName("a")
15 
16 For each adom in adoms
17     print adom.innerHTML
18 Next
19 services.EndTransaction "GetB"

 

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

1 Set dom=Browser("百度知道 - 全球最大中文互动问答平台").Page("百度一下，你就知道").Object
2 
3 Set adoms=dom.getElementsByTagName("a")
4 
5 For each adom in adoms
6     adom.style.display="none"
7 Next