[问题求助] VBS如何实现读取文本的网址内容并复制到文本文件中？

elec

假设1.txt文本有如下链接

http://www.baidu.com/
http://hao.360.cn/COPY

我想打开链接后在浏览器显示的内容复制到out.txt中，效果如下。可以实现吗？

相当于用浏览器打开http://www.baidu.com/，CTRL+A CTRL+C CTRL+V到out.txt

宝箱换肤消息设为首页elec
 
新闻网页贴吧知道音乐图片视频地图百科文库更多>>
 
 
导航 新闻 世界杯 音乐
订阅/管理更多卡片
点击这里哦
7-6 周日7-9 周三我的积分: 0赚积分 领取每日登录奖励活动规则
巴西VS
4:00德国
直播|前瞻|专题
 
巴西胜
赔率2.72
 
德国胜
赔率2.63
押分:立即竞猜
竞猜截止时间 4:00单场竞彩
 
世界杯下的中国人
内马尔替身曝光
德国致命弱点
巴西上诉遭驳回
克洛泽冲神纪录
详解内马尔之伤
中国玩不起足球
积分榜射手榜微博讨论区比赛预测
©2014 Baidu 使用百度前必读 京ICP证030173号
北京：28℃|空气质量：51良COPY

CrLf

最直观的是用 InternetExplorer.Application，示例：

arr = Array("http://www.baidu.com","http://hao.360.cn/")
 
Set ie = CreateObject("InternetExplorer.Application")
 
For Each url In arr
	ie.Navigate url
	Do While(ie.ReadyState <> 4) : WScript.Sleep 100 : Loop
	MsgBox ie.Document.documentElement.innerText
Next
 
ie.Quit()COPY

storm8

来学习了

storm8

来学习了

elec

回复 2# CrLf


    嗯，是这种效果。 不过我想把结果全输出到out.txt中。
    网址可能有几百个，保存在1.txt上。。最好能够一行行调用当做arr的参数。。