[转]vb下载网页文件或图片的几种简易方法

一、使用 API 函数 URLDownloadToFile，下载网页文件（也可以是图片等其他文件）到硬盘
Dim nUrl As String, F As String, S As Long

nUrl = "http://www.baidu.com/img/baidu_logo.gif": F = App.Path & "\My-1.bmp" '下载百度图片
S = URLDownloadToFile(0, nUrl, F, 0, 0)     '下载文件，0 表示成功

nUrl = "http://www.baidu.com": F = App.Path & "\Baidu.html" '下载百度首页的网页
S = URLDownloadToFile(0, nUrl, F, 0, 0)     '下载文件，0 表示成功

二、使用 API 函数 OleLoadPicturePath，下载图片文件到变量，注意要勾选引用：OLEAutomation
Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRef ppvRet As IPicture) As Long
Private Type TGUID
    Data1 As Long: Data2 As Integer: Data3 As Integer: Data4(0 To 7) As Byte
End Type

Public Function LoadNetPicture(ByVal ImgSrc As String) As Picture
    Dim riid As TGUID
    riid.Data1 = &H7BF80980: riid.Data2 = &HBF32: riid.Data3 = &H101A
    riid.Data4(0) = &H8B: riid.Data4(1) = &HBB: riid.Data4(2) = &H0
    riid.Data4(3) = &HAA: riid.Data4(4) = &H0:   riid.Data4(5) = &H30
    riid.Data4(6) = &HC:   riid.Data4(7) = &HAB
    OleLoadPicturePath StrPtr(ImgSrc), 0&, 0&, 0&, riid, LoadNetPicture
End Function

'使用方法:
Dim ImgSrc As String, nPicture As Picture
ImgSrc = "http://www.baidu.com/img/baidu_logo.gif"
Set nPicture = LoadNetPicture(ImgSrc)          '将图片下载到变量
SavePicture nPicture, App.Path & "\MyImg.bmp"  '保存到硬盘
Picture1.Picture = nPicture

'如果要将图片装载到控件，可以直接这样：
Picture1.Picture = LoadNetPicture(ImgSrc)

三、使用 Microsoft.XMLHTTP 对象，下载网页文件（也可以是图片等其他文件）到硬盘
Private Sub DownNetFile(ByVal nUrl As String, ByVal nFile As String)
     Dim XmlHttp, B() As Byte
     Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
     XmlHttp.Open "GET", nUrl, False
     XmlHttp.Send
     If XmlHttp.ReadyState = 4 Then
         B() = XmlHttp.ResponseBody
         Open nFile For Binary As #1
         Put #1, , B()
         Close #1
     End If
     Set XmlHttp = Nothing
End Sub

'使用方法:
DownNetFile "http://www.baidu.com/img/baidu_logo.gif", App.Path & "\My-1.bmp" '下载百度图片
DownNetFile "http://www.baidu.com", App.Path & "\Baidu.html" '下载百度首页的网页

四、使用 WebBrowser 的 Document 对象，保存网页的所有图片

    Dim nPath As String, K As Long, E, nRange
    nPath = App.Path & "\Tu\"
    WebBrowser1.Silent = True '关闭交互   禁止脚本错误
    For Each E In WebBrowser1.Document.All
       If E.tagName = "IMG" Then
          Set nRange = WebBrowser1.Document.body.createControlRange()
          nRange.Add E
          nRange.execCommand "Copy" '复制到剪贴板
          K = K + 1
          SavePicture Clipboard.GetData, nPath & K & ".bmp" '保存到硬盘
       End If
    Next

五、用API调用系统的另存为下载对话框
Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
使用方法：
Dim nUrl As String
nUrl = StrConv("http://www.baidu.com", vbUnicode)
Call DoFileDownload(nUrl)

六、用 WebBrowser1 的 ExecWB 方法调用网页另存为对话框：
WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT

以上方法各有优缺点。
Microsoft.XMLHTTP 对于大文件有利，支持断点续传，但需调用 getResponseHeader 进行数据检查。
对于谷歌地图图片，图片链接形如 http://mt1.google.cn/vt/lyrs=s@63&gl=cn&x=51694&s=&y=26884&z=16&s=Galile，仅第四种方法有效