请教关闭网页

rich

参考别人的代码写了一脚本，目的是将一个页面上的所有链接存入表Action1的url字段中。然后再将每个链接一一打开，一一关闭。
Dim i
i=0
Set a=Browser("卡当网.个性化礼品定制、创意、交易平台！").Page("卡当网.个性化礼品定制、创意、交易平台！").Object.links
For each element in a
        i=i+1
    DataTable.GetSheet("Action1").SetCurrentRow(i)     
        DataTable.Value("url",2) = element.href
        SystemUtil.Run "IEXPLORE.EXE",element.href,"","open","3"  '打开链接

        '这里如何关闭所打开的页面呢？我试过两种方法，一种把所有IE都关了，一种是把Browser("卡当网.个性化礼品定制、创意、交易平台！")给关了，都造成运行不下去。
Next
新手初学，谢谢指教。

[ 本帖最后由 rich 于 2007-9-30 16:35 编辑 ]

rich

原帖由 木卫十二 于 2007-10-11 15:48 发表
猜想应该是Browser("CreationTime:=1").Close吧？（如果你的主页是运行前唯一的一个页面的话）

对啦
感谢楼上的朋友

木卫十二

猜想应该是Browser("CreationTime:=1").Close吧？（如果你的主页是运行前唯一的一个页面的话）

rich

原帖由 fate 于 2007-9-30 17:14 发表
Browser("index:=i").close

仍然把主页面关了。
楼上的，我说的运行不下去是指报错了，报错是因为把主页面关闭了，那么链接就取不到了，再往下执行就错了。

coletan

造成运行不下去报什么错？

fate

Browser("index:=i").close