dynamic - 如何动态检查所有链接？

Question

我必须在 QTP 10/11 中使用 VBScript 做以下事情：

VBScript 打开一个登录页面。登录后，它会计算该页面中的链接数，然后打印所有链接。之后它会一一打开每个链接。

我在查找所有动态链接时遇到问题。

Answer 1

您可以使用Page's（或Frame's）ChildObject方法获取页面上的所有链接。

Set desc = Description.Create()
desc("html tag").Value = "a"
Set links = Browser("B").Page("P").ChildObjects(desc)
For i = 0 to links.Count - 1
    Print links(i).GetRoProperty("inner_text") & " => " & links(i).GetRoProperty("href")
Next

至于单击它们，这有点复杂，因为单击链接后会导致导航使links对象无效，您应该ChildObjects每次执行（同时跟踪索引）或在不同的浏览器/选项卡中打开链接。