能不能通过代码，提取指定网页中的压缩包文件，并自动保存在本地指定目录？怎么写？

来源：百度知道 编辑：UC知道 时间：2024/09/22 13:47:16
能不能通过代码，提取指定网页中的压缩包文件，并自动保存在本地指定目录？怎么写？比如华军的软件下载网站，我只要输入它软件下载页的网址。就会自动找到压缩包，并保存到本地目录或显示压缩包链结在页面中。。。
具体要怎么写。最好把完整的源码发上来看看。。嘿。我是菜鸟一只，不太熟悉那东东。。

这个可以啊，一个while就可以了。

取得网页的原码
用instr，判断.rar的文件。

用下列代码可以打开指定网页：
dim ie
set ie=createobject("internetexplorer.application")
ie.navigate "http://ytcnc.onlinedown.net/soft/54785.htm#download"
while ie.readystate<>4 then
doevents
wend

用下列代码可以取得所有超级链接的URL并分析是否是.rar或.zip
for each link in ie.document.links
if link.href like "*.rar" or link.href like "*.zip" then
....'这里放下载文件的代码，可以用inet或XMLHTTP+ADODB.Stream
next
next

主要思路就是这样，还应该加上避免同名文件多次被下载的代码，楼主自己思考吧，这里就不说了