51Testing软件测试论坛

标题: 请教关闭网页 [打印本页]

作者: rich 时间: 2007-9-30 16:31
标题: 请教关闭网页
参考别人的代码写了一脚本，目的是将一个页面上的所有链接存入表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 编辑 ]

作者: fate 时间: 2007-9-30 17:14
Browser("index:=i").close

作者: coletan 时间: 2007-9-30 17:24
造成运行不下去报什么错？

作者: rich 时间: 2007-10-11 15:41

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

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

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

作者: rich 时间: 2007-10-11 16:35

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

对啦
感谢楼上的朋友

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)