-------------html---------------------
<html>
<head></head>
<body>
<h4>John Smith<input type="checkbox" name="select" /></h4>
<h4 id="h4N">Anne Anderson<a href="http://127.0.0.1"> Link1</a><input type="checkbox" name="select" checked="true" /></h4>
<span><b>ddd</b> china</span>
<div>
<a href="httt://bei.com"> 22<h4>Joluke <input type="checkbox" name="select" /></h4> <span><b>ddd</b> china</span></a>
</div>
<img src="path" alt="alt" title="title" />
</body>
</html>
--------------页面效果-------
--------------------QTP脚本-------------------
注意:此种方式qtp不能定位到 div、span、H4(如//span),但可以作为路径(如/div/span/input),可以定位到 a 、input(如//a)。
Set oDesc = Description.Create()
oDesc("xpath").Value = "//input"
Set objLists = Browser("Browser").Page("Page").ChildObjects(oDesc)
For i = 0 To objLists.count -1 Step 1
print "//input:i = " & i
objLists(i).click
print objLists(i).GetROProperty("outerHTML")
Next
oDesc("xpath").Value = "//a"
Set objLists = Browser("Browser").Page("Page").ChildObjects(oDesc)
For i = 0 To objLists.count -1 Step 1
print "//A :i = " & i
print objLists(i).GetROProperty("outerHTML")
Next