参数化Link

如何参数化link

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

这段代码先是打开一个空的页面，然后输入url.

到达论坛首页。

然后得到所有版面的名称，也就是link的名称。

存到数组里面。

然后使用SetTOProperty更换录制时候录下的link的属性。

这时候再click