|
应该可以用描述性编程来识别。
这个与我做的项目有点类似,用QTP的Object Spy定位到这些展开节点,都是Image的对象,直接对这些Image对象做Click事件,不能展开这些节点。它们的父对象WebTable,可以用WebTable的ChildItem方法,结合描述性编程来实现对展开节点的Click.
Dim tableDes
Set tableDes= Description.Create()
tableDes("innertext").Value = "***"
(或者tableDes("name").Value = "***")
Set objTable = Browser("****").Page("*****").WebTable(tableDes)
Dim imgX,imgY
If objTable.Exist(0) Then
Set imgExpand = objTable.ChildItem(*,*,"Image",0)
imgX = imgExpand.GetROProperty("x")
imgY = imgExpand.GetROProperty("y")
Window("Windows Internet Explorer").WinObject("Internet Explorer_Server").Click imgX,imgY
Set imgExpand = nothing
End If
其中,*的地方根据实际情况而定。 |
|