Link参数化

SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","","C:\Documents and Settings\dgao","open"
Browser("Browser").Page("Page").Sync
Browser("Browser").Navigate "http://www.tudou.com/index.html"
Browser("Browser").Page("土豆网 - 视频 - 播客 - 每个人都是生活的导演").Link("首 页").Click
Browser("Browser").Page("土豆网 - 视频 - 播客 - 每个人都是生活的导演").Sync

Dim i, j, tags, element, arr()
Set tags=Browser("Browser").Page("土豆网 - 视频 - 播客 - 每个人都是生活的导演").Object.links

i=0
For Each element in tags
    If Ucase(element.tagname)="A"  Then       'and left(element.InnerText,1)="["
                        ReDim Preserve arr(i+1)
                    arr(i)=element.InnerText
    i=i+1
    end if
Next
'msgbox i
'msgbox arr(24)
For j=0 to 10
 Browser("Browser").Page("土豆网 - 视频 - 播客 - 每个人都是生活的导演").Link("首 页").SetTOProperty "target",""
    Browser("Browser").Page("土豆网 - 视频 - 播客 - 每个人都是生活的导演").Link("首 页").SetTOProperty "Text",arr(j)
    Browser("Browser").Page("土豆网 - 视频 - 播客 - 每个人都是生活的导演").Link("Text:=" & arr(j)).Click
    Browser("Browser").Back
Next