Set oDesc = Description.Create()
oDesc("html tag").Value = "A"
Set Lists =Browser("Browser").Page("百度搜索").ChildObjects(oDesc)
NumberOfLists = Lists.Count()
For i = 0 To NumberOfLists - 1
Lists(i).click
Next
Set oDes=Desription.Creat()
oDes("type").Value="Link"
Set ObjList=Browser("").Page("").ChildObjects(oDes)
ObjCount=ObjList.count
for i=0 to ObjCount-1
If ObjList(i).WaitProperty("visible",True,1000) Then
ObjList(i).Click
End If
Next