web页面随机点击link

Dim LinkObj,LinkSelect
Set ImageObj = Description.Create
LinkObj("html tag").Value = "XX"
LinkObj("text").value = "XX"
Set LinkSelect= Browser("Browser").Page("Page").ChildObjects(LinkObj)
        LinkSelect.item(randnumber(0,LinkSelect.Count-1)).Click

如果link对象值没有规律，可以使用正则表达式“.*"