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

Rank: 5Rank: 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
收藏 分享
初九的冬天

czjt1234

Rank: 6Rank: 6

帖子
1048 
积分
1549 
技术
112  
捐助
0  
注册时间
2010-4-30 
2楼
发表于 2014-1-8 21:47 | 只看该作者 
  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

1270697389

Rank: 5Rank: 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楼的网址不行，不知道是什么原因？
初九的冬天

TOP

1270697389

Rank: 5Rank: 5

帖子
182 
积分
1035 
技术
4  
捐助
0  
注册时间
2013-10-3 
4楼
发表于 2014-1-9 18:14 | 只看该作者
czjt1234 发表于 2014-1-8 21:47



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

TOP

1270697389

Rank: 5Rank: 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
这样可以吗？谢谢！
初九的冬天

TOP

返回列表