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

1270697389

文件夹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

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

复制代码

1270697389

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

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

1270697389

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

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

1270697389

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

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