引用:
原帖由 假装不在 于 2008-9-26 10:41 发表 
你说的是,例如
a(i)=cstr(linkobj(j))
for k=0 to count
borwser().page().link("url:="&a(k)).click
next
这样?
这样。。。
Dim LinkDes, LinkObj, i
Dim urls(1000)
Set LinkDes=description.Create()
LinkDes("micclass").value="Link"
Set LinkObj=browser(":=").Page(":=").ChildObjects(LinkDes)
For i=0 to LinkObj.count-1
urls(i)=LinkObj(i).GetROProperty("url")
Next
For i=0 to LinkObj.count-1
browser(":=").navigate urls(i)
Next