[已解决]VBS下载网页如何一次性完成？

股浪遇 · 发表于 2012-5-27 00:04:56

本帖最后由股浪遇于 2012-6-27 00:29 编辑

Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET"," http://***/****/DM",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "d:\001\DM.txt",2

复制代码

**************************************
DM内容如下
A0001
A0002
A0003
..
B0001
************************************
请教如何才能一次性完成，谢谢！

broly · 发表于 2012-5-28 17:13:33

没理解你的意思。
DM.TXT不是就一个文件吗？
看不出哪里有很多个文件要一次性下载

股浪遇 · 发表于 2012-5-28 17:20:38

本帖最后由股浪遇于 2012-5-28 19:37 编辑

DM.TXT是一个文件
网页分别是：
http://***/****/A0001
http://***/****/A0002
http://***/****/A0003
...
下载后，分别保存为DM.TXT文件中对应的文件名（A0001...)
不知道我说清楚了没
谢谢broly版主！

powerbat · 发表于 2012-5-28 23:03:51

你的真的没说清楚，吼吼。。。

broly · 发表于 2012-5-29 22:24:43

回复 3# 股浪遇

http://***/****/A0001
http://***/****/A0002
http://***/****/A0003

这部分的网页，如果没有规律就不好搞了。
没规律只能自己一个个下载。O_o

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[问题求助] [已解决]VBS下载网页如何一次性完成？

浏览过的版块