如何动态检查所有链接？

Question

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

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

我遇到了查找所有动态链接的问题。

Answer 1

您可以使用Page（或Frame'）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（同时跟踪索引）或在其他浏览器/选项卡中打开链接。