参考别人的代码写了一脚本,目的是将一个页面上的所有链接存入表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
新手初学,谢谢指教。