VB网络下载,很多人使用Socks控件,可是这样就无形中增加了麻烦;
准确地说,VB网络下载最少只是需要两行代码(一行用于API函数声明,一行用于执行);
具体声明如下:
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
调用API函数:
lngRetVal = URLDownloadToFile(0, FileURL, FilePath, 0, 0)
'FileURL是网络上的文件地址; FilePath是准备存放在本地的路径和文件名