QTP里的DOM应用.docxVIP

QTP里的DOM应用DOM全称”Document Object Model”，字面上叫做”文档对象模型”，它是一款主要用于Web Html中的一种独立语言。Html Dom主要通过定义一套标准的对象通道接口，使得我们能够轻松访问并控制Html对象元素，它是一种用于Html和Xml文档的编程接口。DOM的表现方法是一种树状结构。有些时候QTP只对标准控件支持比较好，而对特殊的控件无法识别。DOM是一种罪底层的对象操作模型，使用它来控制对象不但速度快，而且可以访问很多QTP无法访问的东西。修改控件自身接口QTP本身无法修改控件自身接口属性，但通过DOM我们可以访问并修改自身接口属性DOM对象下CurrentStyle对象应用CurrentStyle是一个可以与Html对象元素style sheets进行交互的接口，它可以获取对象元素的字体名，字体大小，颜色，是否可见等，在验证点时有重要作用。性能提升DOM执行速度会比QTP对象库的执行速度快好几倍，这是因为DOM是底层对象接口，而QTP首先要把对象封装，然后在脚本运行时调用对象库的对象，最后与页面上的对象进行比对，如果匹配才可控制测试对象。而DOM是直接找对象进行控制。下面的例子是IE对象模型里的DOM应用启动IE的三种常见方法在QTP中启动IE:SystemUtil.Run“iexplore.exe”使用WSH启动IE：Set oShell = CreateObject(“wscript.shell”)使用IE COM对象：Set oIE = CreateObject(InternetExplorer.Application)oIE.Visible = TrueoIE.Navigate使用第三种方法还可以获得当前窗口的句柄，并通过QTP来定位浏览器：ieHwnd = oIE.HWNDBrowser(“hwnd:=” ieHwnd).Close接下来的这个例子就是使用到DOM去操作页面元素了Set oIE = CreateObject(InternetExplorer.Application)oIE.Visible = TrueoIE.Navigate While oIE.BusyWendoIE.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) ThenEnumIE.Addwin.hwnd,win End If NextEnd Function我打开一共两个IE窗口，但是第一个IE窗口里有四个子窗口，如下图：然后调用上面的代码：Set allIE = EnumIE()For each oIE in allIE.ItemsoIE.quitNext结果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) ThenEnumIE.Addwin.hwnd,win End If End If NextEnd Function调用的时候，我采用了递归调用，只要有子窗口没有关完，就会继续关。这里用do wh