批处理之家 - Powered by Discuz! Board

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

作者: 股浪遇 时间: 2012-5-27 00:04 标题: [已解决]VBS下载网页如何一次性完成？

本帖最后由股浪遇于 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

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

作者: 股浪遇 时间: 2012-5-28 17:20

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

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

作者: powerbat 时间: 2012-5-28 23:03

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

作者: broly 时间: 2012-5-29 22:24

回复 3# 股浪遇

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

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

欢迎光临批处理之家 (http://www.bathome.net/)