Question

VB代码求教。下载网络上指定文件

我需要一个一段代码，下载网络上指定文件，保存到本地指定目录下。我已经写了网址部分的代码，可以生成一系列网络文件地址URl，现在我需要知道怎么写“下载”这个功能的代码。

Answer 1

下面的代码可以下载百度的LOGO，下载后的文件是c:\baidu.gif

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

Public Function DownloadFile(URL As String, fn As String) As Boolean
DownloadFile = (URLDownloadToFile(0, URL, fn, 0, 0) = 0)
End Function

Private Sub Command1_Click()
If DownloadFile("http://www.baidu.com/img/shouye_b5486898c692066bd2cbaeda86d74448.gif", "c:\baidu.gif") Then
MsgBox "下载成功！"
Else
MsgBox "下载失败！"
End If
End Sub

追问

出现下图的情况，不知道怎么回事

追答

你的VB什么版本的？我提供的代码是VB6的。

追问

vs2010

Answer 2

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()
a = URLDownloadToFile(0, "http://www.51dangao.com/Amepic/2012111917292571451.jpg", App.Path & "\123.jpg", 0, 0)
If a = 0 Then
MsgBox "下载完毕"
End If
End Sub

追问

出现这个，不知道怎么回事。

追答

VB6的，你的版本需要修改吧

追问

我的是VS2010版的，不知道怎么办。。。完全不懂上面窗口什么意思。。。因为我个人是业余玩玩Vb的。

追答

你早说是VS2010版的我就不回复了。

追问

如果您在建立与在 Visual Basic 6.0 中编写的组件（例如自动化对象或 COM 对象）之间的接口，请牢记 Long 在 Visual
Basic 6.0 中具有不同的数据宽度（32 位）。若将一个 32 位参数传递给这样的组件，在 Visual Basic .NET 中应将其声明为
Integer 而不是 Long。