批处理之家 » VBS求助&讨论 » [已解决]vbs如何批量抓取网页？谢谢czjt1234老师

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

返回列表发帖

Rank: 5 Rank: 5

帖子: 182
积分: 1035
技术: 4
捐助: 0
注册时间: 2013-10-3

1楼 跳转到 » 正序看帖

字体大小: tT

发表于 2014-1-7 19:08 | 只看该作者

[问题求助] [已解决]vbs如何批量抓取网页？谢谢czjt1234老师

本帖最后由 1270697389 于 2014-1-9 18:55 编辑

文件夹A里有
http://www.19lou.com/forum-26-thread-2601339311269947-1-1.html
http://www.19lou.com/forum-26-thread-2601339311269947-2-1.html
http://www.19lou.com/forum-26-thread-2601339311269947-3-1.html
我想用vbs抓取这些网页的内容，谢谢老师们！谢谢

1 评分人数

Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

初九的冬天

Rank: 5 Rank: 5

帖子: 182
积分: 1035
技术: 4
捐助: 0
注册时间: 2013-10-3

5楼

发表于 2014-1-9 18:38 | 只看该作者

czjt1234 发表于 2014-1-8 21:47

可不可以按列表抓取vbs我不懂，谢谢您！
就是a.txt
****.html
****.html
****.html
这样可以吗？谢谢！

初九的冬天

Rank: 5 Rank: 5

帖子: 182
积分: 1035
技术: 4
捐助: 0
注册时间: 2013-10-3

4楼

发表于 2014-1-9 18:14 | 只看该作者

czjt1234 发表于 2014-1-8 21:47

谢谢大神，可能是我电脑有问题，你的代码行了，谢谢你

初九的冬天

Rank: 5 Rank: 5

帖子: 182
积分: 1035
技术: 4
捐助: 0
注册时间: 2013-10-3

3楼

发表于 2014-1-9 08:13 | 只看该作者

本帖最后由 1270697389 于 2014-1-9 08:16 编辑

czjt1234 发表于 2014-1-8 21:47

您测试了吗，我这里好像没什么内容。还是谢谢您！
我试了在其它网址都没问题，就是19楼的网址不行，不知道是什么原因？

初九的冬天

Rank: 6 Rank: 6

帖子: 1059
积分: 1560
技术: 112
捐助: 0
注册时间: 2010-4-30

2楼

发表于 2014-1-8 21:47 | 只看该作者

Dim BinTemp, strUrl
strUrl = "http://www.19lou.com/forum-26-thread-2601339311269947-1-1.html"
With CreateObject("Msxml2.Xmlhttp")
    .Open "get", strUrl, False
    .Send
    BinTemp = .ResponseBody
End With
With CreateObject("Adodb.Stream")
    .Type = 1
    .Mode = 3
    .Open
    .Write BinTemp
    .SaveToFile "1-1.html"
    .Close
End With
复制代码

1 评分人数

1270697389: 谢谢你技术 + 1

QQ 20147578