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

[问题求助] [已解决]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
初九的冬天

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



    可不可以按列表抓取vbs我不懂,谢谢您!
就是a.txt
****.html
****.html
****.html
这样可以吗?谢谢!
初九的冬天

TOP

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



    谢谢大神,可能是我电脑有问题,你的代码行了,谢谢你
初九的冬天

TOP

本帖最后由 1270697389 于 2014-1-9 08:16 编辑
czjt1234 发表于 2014-1-8 21:47



    您测试了吗,我这里好像没什么内容。还是谢谢您!
我试了在其它网址都没问题,就是19楼的网址不行,不知道是什么原因?
初九的冬天

TOP

  1. Dim BinTemp, strUrl
  2. strUrl = "http://www.19lou.com/forum-26-thread-2601339311269947-1-1.html"
  3. With CreateObject("Msxml2.Xmlhttp")
  4.     .Open "get", strUrl, False
  5.     .Send
  6.     BinTemp = .ResponseBody
  7. End With
  8. With CreateObject("Adodb.Stream")
  9.     .Type = 1
  10.     .Mode = 3
  11.     .Open
  12.     .Write BinTemp
  13.     .SaveToFile "1-1.html"
  14.     .Close
  15. End With
复制代码
1

评分人数


QQ 20147578

TOP

返回列表