qileilove

blog已经转移至github,大家请访问 http://qaseven.github.io/

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操作对象的优势将进一步显现出来。这对性能的提升会有巨大的帮助。

posted on 2014-10-30 11:09 顺其自然EVO 阅读(222) 评论(0)  编辑  收藏 所属分类: 测试学习专栏selenium and watir webdrivers 自动化测试学习


只有注册用户登录后才能发表评论。


网站导航:
 
<2014年10月>
2829301234
567891011
12131415161718
19202122232425
2627282930311
2345678

导航

统计

常用链接

留言簿(54)

随笔分类

随笔档案

文章分类

文章档案

搜索

最新评论

阅读排行榜

评论排行榜