QTP中如何打开页面所有的Link

这几天做了一个小工具，在QTP中，可以遍历一个页面的link，并打开这些link。写了一个函数：

Sub BrowsLink()
 'Get all links on the page
 Set objDes = Description.Create
     objDes("micclass").Value = "Link"
 Set objLinkList = Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects(objDes)

    For i=0 to objLinkList.Count-1

  strHref=objLinkList(i).GetROProperty("href")
  strName=objLinkList(i).GetROProperty("name")

  ' Open the link
  SystemUtil.Run strHref
  wait 3

  Browser("CreationTime:=1").Page("micClass:=Page").Sync


  strPageName=Browser("CreationTime:=1").Page("micClass:=Page").GetROProperty("title")

  ' Check the page is open
  If strPageName<> ""  Then
   Reporter.ReportEvent micPass,strName,"Succeed to open " &strHref
  else
   Reporter.ReportEvent micFail, strName, "Fail to open " & strHref
  End If

  wait 2

  Browser("CreationTime:=1").Close
 Next

 Set objDes=Nothing
 Set objLinkList=Nothing

End Sub

 

本文出自 “软件测试 自动化测试之路” 博客，谢绝转载！