使用DOM操控各类HTML元素

'1.WebEdit:

'HTML源代码样例:

'<INPUT type="text" value="QuickTest" id="ID_001" name="NAME_001">

'QTP中代码样例:

'操作方式1:

'获取DOM对象

set oDocument = Browser("Browser").Page("Page").Object

 

'使用GetElementByID获取对象元素,并更改文本框WebEdit的value属性值

oDocument.getElementByID("ID_001").value = "zzxxbb112"

'操作方式2:

'获取DOM对象

set oDocument = Browser("Browser").Page("Page").Object

 

'使用GetElementsByName获取对象元素,并更改文本框WebEdit的value属性值

oDocument.getElementsByName("NAME_001")(0).value = "zzxxbb112"

'操作方式3:

'获取DOM对象

set oDocument = Browser("Browser").Page("Page").Object

 

'如果ID和name都是空的,可以使用getElementsByTagName

Set allElements = oDocument.getElementsByTagName("INPUT")

 

For each element in allElements

 If element.value = "QuickTest" Then

  element.value = "zzxxbb112"

 End if

Next

 

'2.WebButton/Link

'HTML源代码样例:

'<input type="Button" id="ID_001" name="name_001" value="click this">

'QTP中代码样例:

'操控方式1:

'获取DOM对象

set oDocument = Browser("Browser").Page("Page").Object

 

'使用GetElementByID获取按钮对象并触发onclick事件

oDocument.getElementByID("ID_001").click

'操控方式2:

'获取DOM对象

set oDocument = Browser("Browser").Page("Page").Object

 

'使用GetElementsByName获取按钮对象并触发onclick事件

oDocument.getElementsByName("NAME_001")(0).click

'操控方式3:

'获取DOM对象

set oDocument = Browser("Browser").Page("Page").Object

 

'使用All方法获取按钮对象并触发onclick事件

oDocument.all("ID_001").click

 

'3.WebCheckBox

'HTML源代码样例:

'<input type="CheckBox" id="ID_001" name="name_001">

'QTP中代码样例:

'操控方式:

'获取DOM对象

set oDocument = Browser("Browser").Page("Page").Object

 

'使用GetElementByID方法获取按钮对象,选取checkbox

oDocument.getElementByID("ID_001").checkd=true

'4.WebList/WebComboBox

'HTML源代码样例:

'<SELECT name = "NAME_001">

'　　<option value="child_001">child_001</option>

'　　<option value="child_002">child_002</option>

'　　<option value="child_003">child_003</option>

'</SELECT>

'QTP中样例代码:

'获取DOM对象

set oDocument = Browser("Browser").Page("Page").Object

 

'使用GetElementsByName方法获取List对象

set ListObjElements = oDocument.getElementsByName("Name_001").item(0)

 

'遍历List列表,根据关键字选取List项

For i = 0 to ListObjElements.Options.length - 1

 If ListObjElements.Options(i).value = "child_002" Then

  ListObjElements.Options(i).selected = true

 End If

Next

'5.WebRadioGroup

'HTML源代码样例:

'<input type="radio" name="sex" value="男" checked="checked"> 男

'<input type="radio" name="sex" value="女"> 女

'QTP中代码样例:

'操控方式:

'获取DOM对象

set oDocument = Browser("Browser").Page("Page").Object

 

'使用GetElementsByName方法获取对象元素后选取Radio单选按钮

oDocument.getElementsByName("sex").item(1).checked=true

'6.WebTable

'HTML源代码样例:

'<table id="id_001" border=1>

'　　　　<tr>

'　　　　　　<td>A1</td>

'　　　　　　<td>B1</td>

'　　　　</tr>

'　　　　<tr>

'　　　　　　<td>A2</td>

'　　　　　　<td>B2</td>

'　　　　</tr>

'</table>

'QTP中代码样例:

'操控方式:

'获取DOM对象

set oDocument = Browser("Browser").Page("Page").Object

 

'获取WebTable对象元素

set objTable = oDocument.getElementByID("ID_001")

 

'打印WebTable的行数

msgbox objTable.rows.length

'打印WebTable的单元格数量

msgbox objTable.cells.length

'打印WebTable第二行第一个单元格中的内容

msgbox objTable.rows(1).cells(0).outertext

 

转载于:https://www.cnblogs.com/dushuai/articles/2674962.html