实现Web的链接参数化

        Browser("51Testing软件测试网").Page("51Testing软件测试网").Sync

        Browser("51Testing软件测试网").Navigate "http://www.51testing.net/"

        Browser("51Testing软件测试网").Page("51Testing软件测试培训网").Sync

        Set tags=Browser("51Testing软件测试网").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   'Ucase()表示把字母转为大写

              ReDim Preserve arr(i)　　'定义动态数组

              arr(i)=element.InnerText

              'msgbox(arr(i))

            i=i+1

                end if

        Next

        For j=0 to i-1

                      msgbox(arr(j))

                      Browser("51Testing软件测试网").Page("51Testing软件测试培训网").Link("[软件测试就业培训]").SetTOProperty "Text",arr(j)   '修改对象的"Text"属性　，也就是link的参数化

                      Browser("51Testing软件测试网").Page("51Testing软件测试培训网").Link(arr(j)).Click

                      wait(4)

                      Browser("51Testing软件测试网").Back

                      wait(4)

        Next