Browser("Browser").Page("Page").Sync
Browser("Browser").Navigate
"http://www.51testing.com/cgi-bin/index.php"
Browser("Browser").Page("51Testing软件测试论坛---软件测试,软件质量工程师").Sync
Set
tags=Browser("Browser").Page("51Testing软件测试论坛---软件测试,软件质量工程师").Object.links
Dim i,j, arr()
i=0
For Each element in tags
If Ucase(element.tagname)="A" and left(element.InnerText,1)="["
Then
ReDim Preserve arr(i+1)
arr(i)=element.InnerText
i=i+1
end if
Next
For j=0 to i
Browser("Browser").Page("51Testing软件测试论坛---软件测试,软件质量工程师").Link("[
版主讨论区 ]").SetTOProperty "Text",arr(j)
Browser("Browser").Page("51Testing软件测试论坛---软件测试,软件质量工程师").Link("[
版主讨论区 ]").Click
Browser("Browser").Back
Next