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

 
  
  1. Sub BrowsLink()  
  2.  'Get all links on the page  
  3.  Set objDes = Description.Create  
  4.      objDes("micclass").Value = "Link" 
  5.  Set objLinkList = Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects(objDes)  
  6.  
  7.     For i=0 to objLinkList.Count-1
  8.  
  9.   strHref=objLinkList(i).GetROProperty("href")  
  10.   strName=objLinkList(i).GetROProperty("name")   
  11.  
  12.   ' Open the link  
  13.   SystemUtil.Run strHref  
  14.   wait 3   
  15.  
  16.   Browser("CreationTime:=1").Page("micClass:=Page").Sync   
  17.   
  18.  
  19.   strPageName=Browser("CreationTime:=1").Page("micClass:=Page").GetROProperty("title")    
  20.  
  21.   ' Check the page is open  
  22.   If strPageName<> ""  Then 
  23.    Reporter.ReportEvent micPass,strName,"Succeed to open " &strHref  
  24.   else  
  25.    Reporter.ReportEvent micFail, strName, "Fail to open " & strHref  
  26.   End If 
  27.  
  28.   wait 2    
  29.  
  30.   Browser("CreationTime:=1").Close  
  31.  Next 
  32.  
  33.  Set objDes=Nothing 
  34.  Set objLinkList=Nothing 
  35.  
  36. End Sub