QTP里的DOM应用

DOM全称”Document Object Model”，字面上叫做”文档对象模型”，它是一款主要用于Web Html中的一种独立语言。Html Dom主要通过定义一套标准的对象通道接口，使得我们能够轻松访问并控制Html对象元素，它是一种用于Html和Xml文档的编程接口。DOM的表现方 法是一种树状结构。 有些时候QTP只对标准控件支持比较好，而对特殊的控件无法识别。DOM是一种罪底层的对象操作模型，使用它来控制对象不但速度快，而且可以访问很多QTP无法访问的东西。 1. 修改控件自身接口 QTP本身无法修改控件自身接口属性，但通过DOM我们可以访问并修改自身接口属性 2. DOM对象下CurrentStyle对象应用 CurrentStyle是一个可以与Html对象元素style sheets进行交互的接口，它可以获取对象元素的字体名，字体大小，颜色，是否可见等，在验证点时有重要作用。 3. 性能提升 DOM执行速度会比QTP对象库的执行速度快好几倍，这是因为DOM是底层对象接口，而QTP首先要把对象封装，然后在脚本运行时调用对象库的对象，最后与页面上的对象进行比对，如果匹配才可控制测试对象。而DOM是直接找对象进行控制。 下面的例子是IE对象模型里的DOM应用 1. 启动IE的三种常见方法 在QTP中启动IE: SystemUtil.Run “iexplore.exe” 2. 使用WSH启动IE： Set oShell = CreateObject(“wscript.shell”) 3. 使用IE COM对象： Set oIE = CreateObject("InternetExplorer.Application") oIE.Visible = True oIE.Navigate http://www.baidu.com 使用第三种方法还可以获得当前窗口的句柄，并通过QTP来定位浏览器： ieHwnd = oIE.HWND Browser(“hwnd:=” ieHwnd).Close 接下来的这个例子就是使用到DOM去操作页面元素了 Set oIE = CreateObject("InternetExplorer.Application") oIE.Visible = True oIE.Navigate "http://www.baidu.com" While oIE.Busy Wend oIE.Document.f.wd.value = "sunyu" 我把While oIE.Busy:Wend这两句话注释掉了，运行结果如下： 程序运行出错了，主要是因为我们没有等待页面加载完，就进行了下一步的填值操作，QTP会找不到这个对象。如果你点击Retry再次运行，那么这次会通过，因为页面已经加载完毕了。所以我们在操作Web对象时，要特别注意需要等待页面加载完毕。 注：以上这个错误我们会经常遇到，有时候你只需要关掉QTP再重新打开后就不会再遇到这个错误了。 遍历所有IE对象： Function EnumIE() Set EnumIE = CreateObject("Scripting.Dictionary") Set winShell = CreateObject("Shell.Application") Set allWins = winShell.Windows For each win in allWins If instr(1,win.FullName,"iexplore.exe",vbTextCompare) Then EnumIE.Add win.hwnd,win End If Next End Function 我打开一共两个IE窗口，但是第一个IE窗口里有四个子窗口，如下图： 然后调用上面的代码： Set allIE = EnumIE() For each oIE in allIE.Items oIE.quit Next
结果QTP报错了 这是因为在同一个窗口下的四个子窗口使用的是同一个句柄，所以无法加入到Dictionary对象里去。只要对代码稍加修改就可以了： Function EnumIE() Set EnumIE = CreateObject("Scripting.Dictionary") Set winShell = CreateObject("Shell.Application") Set allWins = winShell.Windows For each win in allWins If instr(1,win.FullName,"iexplore.exe",vbTextCompare) Then If Not EnumIE.Exists(win.hwnd) Then EnumIE.Add win.hwnd,win End If End If Next End Function 调用的时候，我采用了递归调用，只要有子窗口没有关完，就会继续关。这里用do while的话会多执行一次EnumIE这个函数，大家可以考虑换一种循环方式，我就不多说了。 Set allIE = EnumIE() Do while allIE.Count 0 For each oIE in allIE.Items oIE.quit Next Set allIE = EnumIE() Loop 当然了QTP有自己的方法会很快关闭所有的IE窗口： SystemUtil.CloseProcessByName(“iexplore.exe”) 下面介绍下利用DOM操作测试对象的几种常用方法，还是用百度主页做例子，首先将百度主页加进对象库。 IE8里会自带F12开发工具，可以方便你看你需要的DOM属性 Set oDOM = Browser("百度一下，你就知道").Page("百度一下，你就知道").Object 需要注意的是，此处的Object属性目前只支持IE，而对其他的浏览器目前还没有加入支持。 1. 通过getElementById方法获取定位对象，对其进行操作： oDOM.getElementById("kw").value = "态度决定测试" oDOM.getElementById("su").click 2. 通过getElementsByName方法获取定位对象，对其进行操作： 方法一： Set oEdits = oDOM.getElementsByName("wd") For each oEdit in oEdits oEdit.value = "态度决定测试" Next oDOM.getElementById("su").click 方法二： Set oEdits = oDOM.getElementsByName("wd") oEdits(0).value = "态度决定测试" oDOM.getElementById("su").click 通过方法名里Element后面的复数形式也大概可以知道这个方法返回的是一个集合，所以需要遍历集合里的对象获取这个对象。 3. 通过getElementsByTagName方法获取定位对象，对其进行操作： Set oEdits = oDOM.getElementsByTagName("INPUT") For each oEdit in oEdits If oEdit.type = "text" Then oEdit.value = "态度决定测试" End If Next oDOM.getElementById("su").click 用这个方法遍历之后通常要加判断，因为一个页面里可能有很多INPUT标签。
4. 利用FORM来获取对象元素，对其进行操作： oDOM.f.wd.value = "态度决定测试" oDOM.f.su.click 5. 访问页面里的Script脚本变量 通过DOM可以直接访问到页面中的JS或者VBS中的变量，还是以百度为例，我们用F12进行探测，可以看到k这个变量： k = d.f.wd oDOM.parentWindow.k.value = "态度决定测试" oDOM.getElementById("su").click 从代码里可以看出，我们只需要通过parentWindow去访问web页面中的变量即可。 下面我们来说说利用DOM完成QTP无法完成的任务： 还是百度，假设我们需要验证一些属性，此时我们可以使用CurrentStyle来验证。 Set oDOM = Browser("百度一下，你就知道").Page("百度一下，你就知道").Object Set p = oDOM.f.CurrentStyle msgbox p.color 我们可以验证表单的颜色。 利用DOM还可以提升我们的脚本性能，举个例子，自己构建一个含有100个文本框的HTML页面，每个文本框的name属性都是由text_开头，之后由1到100递增。首先将Page对象加到对象库里去。 效果图如下： 接下来我们就可以引入保留对象Services的Transaction属性来验证性能是否有提高。 QTP描述性编程： Services.StartTransaction "test" For i =1 to 100 Browser("Browser").Page("Page").webEdit("name:=text_"+cstr(i)).Set "hello world" Next Services.EndTransaction "test" 运行后结果大概用了11.5秒时间填写完一百个webEdit对象。 DOM操作脚本： Set oDOM= Browser("Browser").Page("Page").Object Services.StartTransaction "test" For i =1 to 100 oDOM.getElementsByName("text_"+cstr(i))(0).value = "hello world" Next Services.EndTransaction "test" 结果只用了1.8秒时间，效率惊人。 如果文本框更多的话，那么DOM操作对象的优势将进一步显现出来。这对性能的提升会有巨大的帮助。 最新内容请见作者的GitHub页：http://qaseven.github.io/

摸鱼不如来了解一下--DOM文档对象模型 Web API DOM文档对象模型(document object model) W3C定义了一系列DOM接口，通过这些DOM接口可以改变网页的内容、结构和样式