*直接运行下面 代码就可以了，在.vfp8.0环境下测试成功！

* How to download data of this reference (DBF files) using HTTP
* 从 HTTP 上下载文件
*------------------------------------------------------------------
Clea
#Define INTERNET_OPEN_TYPE_DIRECT    1
#Define INTERNET_FLAG_NEED_FILE     16

#Define HTTP_QUERY_CONTENT_TYPE     1
#Define HTTP_QUERY_CONTENT_LENGTH    5

Do Decl        && declare external functions
*If InternetCheckConnection("http://www.163.com/", 1, 0) <> 0 &&已经连接Internet
*Endif
* initialize Wininet library

Private hOpen
hOpen = InternetOpen ("vfp", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0)
If hOpen = 0
? "GetLastError:", GetLastError()
? "在本机上 WinInet 函数库无效"
Return
Endif

Local lcBaseUrl, lcDstPath, hFile, lcFile
lcBaseUrl = "http://ftpgz13.pconline.com.cn/pub/download/200203/Mp3RenameEasy.zip"&&根据实际修改这里的字符串
lcFile    = "Mp3RenameEasy.zip"&&保存的文件名
lcDstPath = "C:\" &&保存的路径

* get a handle of the remote file
hFile = InternetOpenUrl (hOpen,;
lcBaseUrl , "", 0,;
INTERNET_FLAG_NEED_FILE, 0)

If hFile <> 0
?hfile
* even if there is no such file, the most evidently
* you will get an ASCII file in response (404 error page)
= http2local (hFile, lcDstPath + lcFile)
= InternetCloseHandle (hFile)
Else
? "网址不能打开"
? "错误号:", GetLastError()
Endif

* release WinInet library
= InternetCloseHandle (hOpen)
Return        && main

*--------------------------------------------
Function http2local (hSource, lcTarget)
* reads data from a remote file
#Define TransferBuffer   4096
? lcTarget + " "

* create the target file

hTarget = Fcreate (lcTarget)
If (hTarget = -1)
  ?? "指定的目标文件无效"
  Return -1
Endif

Local Buffer , BufLen , dwIndex
Buffer = Space(128)
BufLen = Len(Buffer)
dwIndex = 0
If HttpQueryInfo(hSource, HTTP_QUERY_CONTENT_LENGTH, @Buffer, @BufLen, @dwIndex) = 0
  ?"获取文件信息失败！"
  Return -1
Endif
?
?"文件大小: " + Left(Buffer,buflen)+" / "

lnTotalBytesRead = 0
lnSec = Seconds()

Do While .T.
  If Inkey() = 27 && 按 "Esc" 键
   Exit
  Endif
  lcBuffer = Replicate(Chr(0), TransferBuffer)
  lnBytesRead = 0

  If InternetReadFile (hSource, @lcBuffer,TransferBuffer, @lnBytesRead) = 1

   = Fwrite (hTarget, lcBuffer, lnBytesRead)
   If lnBytesRead = 0
    Exit
   Endif
   lnTotalBytesRead = lnTotalBytesRead + lnBytesRead
   Wait Window Transform(Val(Buffer)/1024) + " KB / " + Transform(lnTotalBytesRead/1024) + " KB " Nowait

  Else
   Exit
  Endif
  DoEvents
Enddo

= Fclose (hTarget)
?? " " + Transform(lnTotalBytesRead) + " Bytes 完成  用时: " + Transform(Seconds() - lnSec) + " 秒"
Return  lnBytesRead
Endfunc

Procedure  Decl
Declare Integer InternetCheckConnection In wininet.Dll ;
  String lpszUrl ,;
  Integer dwFlags ,;
  Integer dwReserved

Declare Integer GetLastError In kernel32

Declare Integer InternetOpen In wininet;
  STRING  sAgent,;
  INTEGER lAccessTypem,;
  STRING  sProxyName,;
  STRING  sProxyBypass,;
  STRING  lFlags

Declare Integer InternetCloseHandle In wininet Integer hInet

Declare Integer InternetOpenUrl In wininet;
  INTEGER hInternet,;
  STRING  lpszUrl,;
  STRING  lpszHeaders,;
  INTEGER dwHeadersLength,;
  INTEGER dwFlags,;
  INTEGER dwContext

Declare Integer InternetReadFile In wininet;
  INTEGER   hFile,;
  STRING  @ lpBuffer,;
  INTEGER   dwNumberOfBytesToRead,;
  INTEGER @ lpdwNumberOfBytesRead

Declare Integer HttpQueryInfo In wininet ;
  INTEGER   hHttpRequest, ;
  INTEGER   lInfoLe