怎样获取页面上所有的链接数

‘启动ie，并打开baidu
systemutil.Run “C:\Program Files\Internet Explorer\iexplore.exe”, _
“http://www.baidu.com”

‘ 描述链接对象
Set linkDes = Description.Create
linkDes(“html tag”).value = “A”

‘利用childobject获取page下的所有链接对象集
set oLink = Browser(“iQuickTest Studio | iQuickTest”). _
Page(“iQuickTest Studio | iQuickTest”). _
ChildObjects(linkDes)

‘获取所有链接对象的个数
msgbox oLink.count