VB怎么在HTTP站点下载文件？

Question

VB怎么通过HTTP站点下载文件？

Answer 1

'Example Name:URL Download
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, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
  
    DownloadFile "http://www.csdn.net", "c:\csdn.htm"
End Sub

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
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Command1_Click()
  DownloadFile "http://192.168.0.4/dd/20063281234213579.jpg", "D:\123"
End Sub
我这样写对吗？
那为什么不行？

Answer 3

用 Inet 组件或者Socket向服务器80端口写HTTP头。建立连接后，服务器自然就会往回发数据。就是下载的文件喽。不会有任何头什么的。直接就是文件。