基于HTTP协议用WinSock实现任意文件下载.docxVIP

仅供个人参考 仅供个人参考 不得用于商业用途 不得用于商业用途 基于HTTP协议用WinSock实现任意文件下载 HTTP协议是文本格式通讯，下载文件是二进制数据，怎样处理好两 种格式，而不受VB独断专行的Uni code转换影响，本代码提供了一 个示例。 Optio n Explicit Private strURL As Stri ng Private mstrFileName As Stri ng, ml ngFileNum As Long Private mln gFileLe n As Long, mln gCurByte As Long Private mbl nOn lyLe n As Boolea n, mbl nPutStart As Boolea n Private Sub Form_Load() strURL = Text1.Text 准备下载的文件 URL mstrFileName = Text2.Text 下载文件在本存放的位置与文件名 Label1.Caption =文件总字节:0 Label2.Caption =已下载字节:0 Command1.Caption 二开始下载” Command2.Caption 二取得长度” End Sub Private Sub Comma nd1_Click() mblnOnl yLe n 二 False Dow nF