vb 如何获取网站上的全部图片

Question

如我输入一个网址。。点运行就自动保存全部图片到C盘指定文件里　　　

Answer 1

http://www.codefang.com/soft/sort06/down-15764.html
看看人家的这个对你有没有用。

Answer 2

http://bbs.bccn.net/thread-118976-1-1.html
还有这个……

Answer 3

有个现成的软件叫webdup,搜索一下吧

Answer 4

借助webbrowser打开网页，然后用dhtml方式访问。用document.images或者document.getElmentsByTagName("image")可以得到当前网页中所有图像的集合。方法一：用image.src可以得到图像的url路径，直接下载图像文件，下载方法可以参考一些api函数，或者用xmlhttp对象。如果是直接下载图像文件的话，可以用xmlhttp直接下载得到网页源代码，然后得到图像地址。方法二：直接通过webbrowser访问，因为网页打开的话图像都已经下载到缓存了，你可以直接通过剪切板的方式复制然后保存到本地（简单可行），也可以通过缓存得到（较复杂）。dhtml资料参考：
http://blog.csdn.net/sysdzw/archive/2009/08/19/4463844.aspx直接下载得到图像地址的方法参考：
'此代码由“正则测试工具 v1.1.32”自动生成，请直接调用TestReg过程
Private Sub TestReg()
    Dim strData As String
    Dim reg As Object
    Dim matchs As Object, match As Object    strData = getHtmlStr("http://topic.csdn.net/u/20110225/23/2a1855a1-6e49-45de-ade2-f7972c125fdd.html")    Set reg = CreateObject("vbscript.regExp")
    reg.Global = True
    reg.IgnoreCase = True
    reg.MultiLine = True
    reg.Pattern = "<img.*?src=""(.*?)"".*?>"
    Set matchs = reg.Execute(strData)
    For Each match In matchs
        'Debug.Print match.Value
        Debug.Print match.SubMatches(0)
    Next
End SubPrivate Function getHtmlStr(strUrl As String) As String
    Dim XmlHttp As Object
    Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
    XmlHttp.Open "GET", strUrl, False
    XmlHttp.send
    getHtmlStr = StrConv(XmlHttp.ResponseBody, vbUnicode)
    Set XmlHttp = Nothing
End Function
================================
http://c.csdn.net/bbs/t/5/i/pic_logo.gif
http://c.csdn.net/bbs/t/5/i/rxsg.jpg
http://avatar.profile.csdn.net/3/C/D/2_goosen.jpg
http://c.csdn.net/bbs/t/5/i/blank.gif
http://avatar.profile.csdn.net/5/2/7/2_yiguangqiang88.jpg

Answer 5

参考 Offline Explorer，这类工具将网站下载到本地，其实就是递归地打开网页，同时将网页、图片之类的全部保存到本地。