批处理之家 - Powered by Discuz! Board

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

作者: 1270697389 时间: 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抓取这些网页的内容，谢谢老师们！谢谢

作者: czjt1234 时间: 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
复制代码

作者: 1270697389 时间: 2014-1-9 08:13

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

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

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

作者: 1270697389 时间: 2014-1-9 18:14

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

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

作者: 1270697389 时间: 2014-1-9 18:38

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

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

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