QTP dom学习

来源:互联网 发布:centos nat 网络配置 编辑:程序博客网 时间:2024/05/29 03:42

在使用QTP测试WEB页面时,经常需要利用测试对象中的Object属性来访问和操作DOM,因此,QTP自动化测试工程师非常有必要掌握一些常用的DOM知识。

   QTP支持直接访问DOM(Document Object Model),可以通过DOM来访问HTML标签。在QTP中,访问DOM是通过使用Page测试对象的Object属性来进一步访问的。

 下面就列举了一些常用的DOM属性、方法和集合:

  常用DOM 属性

  ● className.同一样式规则的元素用相同的类名。可以通过className快速过滤出一组类似的元素。

  ● document.用于指向包含当前元素的文档对象。

  ● id.当前元素的标识。如果文档中包含多个相同id的元素,则返回一个数组。

  ● innerHTML.用于指向当前元素的开始标记和结束标记之间的所有文本和HTML标签。

  ● innerText.用于指向当前元素的开始标记和结束标记之间的所有文本和HTML标签。

  ● offsetHeight, offsetWidth.元素的高度和宽度。

  ● offsetLeft, offsetTop.当前元素相同对于父亲元素的左边位置和顶部位置。

  ● outerHTML.当前元素的开始标记和结束标记之间的所有文本和HTML标签。

  ● outerText.当前元素的开始标记和结束标记之间的所有文本,但不包括HTML标签。

  ● parentElement.当前元素的父亲元素。

  ● sourceIndex.元素在document.all集合中的索引(index)。

  ● style.元素的样式表单属性。

  ● tagName.当前元素的标签名。

  ● title.在IE中,代表元素的tool tip文本。

  常用DOM 方法

  ● click().模拟用户对当前元素的鼠标点击。

  ● contains(element).用于判断当前元素是否包含指定的元素。

  ● getAttribute(attributeName, caseSensitive).返回当前元素所包含的某个属性,参数attributeName为属性名、caseSensitive表示是否大小写敏感。

  ● setAttribute(attributeName, value, caseSenstive). 设置当前元素的属性。

  常用DOM 集合

  ● All[].当前元素中包含的所有HTML元素的数组。

  ● children[].当前元素包含的子元素。

 

例如下面的脚本获取到我们网站的所有A标签的InnerText

msgbox Browser("用户登录_猎聘猎头网:LieTou.com").Page("用户登录_猎聘猎头网:LieTou.com").Exist(1)
Set Doc=Browser("用户登录_猎聘猎头网:LieTou.com").Page("用户登录_猎聘猎头网:LieTou.com").Object
For Each Element In Doc.getElementsByTagName("A")
       TagName = Element.TagName ' 获取标签名 
        InnerText = Element.innerText ' 获取inner text
   If  Trim(InnerText)="删除该段项目经历" Then
           Reporter.ReportEvent 0, TagName, InnerText
   End If
Next

如果不知道自己要找的对象属于哪个类型的Tag我们可以使用:

msgbox Browser("用户登录_猎聘猎头网:LieTou.com").Page("用户登录_猎聘猎头网:LieTou.com").Exist(1)
Set Doc=Browser("用户登录_猎聘猎头网:LieTou.com").Page("用户登录_猎聘猎头网:LieTou.com").Object
For Each Element In Doc.all
       TagName = Element.TagName ' 获取标签名 
        InnerText = Element.innerText ' 获取inner text
        Reporter.ReportEvent 0, TagName, InnerText
   'If  Trim(InnerText)="删除该段项目经历" Then           
   'End If
Next


获取某个元素的个数:
Set Doc=Browser("用户登录_猎聘猎头网:LieTou.com").Page("基本信息_个人资料_会员中心_猎聘猎头网:LieTou.co").WebElement("2012.03-至今平台自动化测试 修改").Object
Dim i
i=0
For Each Element In Doc.getElementsByTagName("A")
       TagName = Element.TagName ' 获取标签名 
        InnerText = Element.innerText ' 获取inner text
        Reporter.ReportEvent 0, TagName, InnerText
  If  Trim(InnerText)="删除该段项目经历" Then           
  i=i+1
  End If
Next

原创粉丝点击