vb怎么实现从下载URL 地址图片到本机

[yhwebus]

比如,我怎么在vb的系统里面实现 将http://www.csdn.net/images/ad/ad-java.gif
图片保存到本机?

[yhwebus]

编程怎么实现呢?

[hhjjhjhj]

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



Private Sub Command1_Click()

Dim sourceUrl As String
Dim targetFile As String
Dim hfile As Long


sourceUrl = "http://soft.9zp.com/store.rar" ‘很多格式都可以
targetFile = "D:\WINDOWS\Desktop\s.rar"

hfile=URLDownloadToFile (0&, sourceUrl, targetFile, 0&, 0)
if hfile<>0 then msgbox "下载OK"
End Sub

[yhwebus]

感谢楼上提供的代码 , 不过应该if hfile = 0 then msgbox "ok" 才对

[abcwzl]

说实在的，我也在等侍着这个问题。

[lxcc]

添加 microsoft internet transfer control控件

Private Sub Command1_Click()

Dim b() As Byte
Dim strURL As String

strURL = "http://www.csdn.net/images/homeimage/csdn.gif"

b() = Inet1.OpenURL(strURL, icByteArray)

Open "csdn.gif" For Binary Access _
Write As #1
Put #1, , b()
Close #1
End Sub

[yhwebus]

thanks

还有个问题
如何判断该URL地址的文件是否存在呢?
比如http://www.csdn.net/images/homeimage/csdnUnknown.gif
该图片不存在,在下载前能否判断呢

[lxcc]

那怎么知道！
包括网页，也是一样，不连上试探，应该不可能知道这个网页或者图片存在

[好吃的肥牛]

关注

[lxcc]

不过一般下载不存在的东东，下载回来的是一般的网站都提示404错误，或者是网站自定义的错误页面