VBA自学应用（6）——URLDownloadToFile下载图片

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Sub test()
    'URLDownloadToFile(0, "网页地址", "保存到本地文件名和地址", 0, 0)
    Call URLDownloadToFile(0, _
    "http://inews.gtimg.com/newsapp_bt/0/11084888376/1000.jpg" _
    , "D:\美女图.png", 0, 0)
End Sub