VB6使用API下载文件

''''##############################################################################
''''**
''''**   文件 frmDownLoad.frm 的内容
''''**
''''##############################################################################
VERSION 5.00
Begin VB.Form frmDownLoad 
   BorderStyle     =   1  ''''Fixed Single
   Caption         =   "Form1"
   ClientHeight    =   2880
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6375
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9
      Charset         =   0
      Weight          =   400
      Underline       =   0   ''''False
      Italic          =   0   ''''False
      Strikethrough   =   0   ''''False
   EndProperty
   LinkTopic       =   "文件下载"
   MaxButton       =   0   ''''False
   ScaleHeight     =   2880
   ScaleWidth      =   6375
   StartUpPosition =   2  ''''CenterScreen
   Begin VB.CommandButton cmdStop 
      Caption         =   "停止"
      Enabled         =   0   ''''False
      Height          =   480
      Left            =   1860
      TabIndex        =   6
      Top             =   2160
      Width           =   1365
   End
   Begin VB.CommandButton cmdStart 
      Caption         =   "开始"
      Height          =   480
      Left            =   165
      TabIndex        =   5
      Top             =   2160
      Width           =   1365
   End
   Begin VB.TextBox txtFile 
      Height          =   330
      Left            =   750
      TabIndex        =   3
      Top             =   705
      Width           =   5445
   End
   Begin VB.TextBox txtURL 
      Height          =   330
      Left            =   750
      TabIndex        =   1
      Top             =   285
      Width           =   5445
   End
   Begin VB.Label lblCount 
      BackStyle       =   0  ''''Transparent
      Caption         =   "下载"
      Height          =   180
      Left            =   180
      TabIndex        =   4
      Top             =   1245
      Width           =   5130
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  ''''True
      Caption         =   "文件:"
      Height          =   180
      Left            =   195
      TabIndex        =   2
      Top             =   780
      Width           =   450
   End
   Begin VB.Label lblURL 
      AutoSize        =   -1  ''''True
      Caption         =   "URL:"
      Height          =   180
      Left            =   195
      TabIndex        =   0
      Top             =   360
      Width           =   360
   End
End
Attribute VB_Name = "frmDownLoad"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Declare Function StrFormatByteSize Lib "shlwapi" Alias _
"StrFormatByteSizeA" (ByVal dw As Long, ByVal pszBuf As String, ByRef _
cchBuf As Long) As String

Private Declare Function InternetOpen Lib "wininet.dll" _
  Alias "InternetOpenA" (ByVal sAgent As String, _
  ByVal lAccessType As Long, ByVal sProxyName As String, _
  ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" _
   Alias "InternetOpenUrlA" (ByVal hOpen As Long, _
   ByVal surl As String, ByVal sHeaders As String, _
   ByVal lLength As Long, ByVal lFlags As Long, _
   ByVal lContext As Long) As Long

Private Declare Function HttpOpenRequest Lib "wininet.dll" _
   Alias "HttpOpenRequestA" _
   (ByVal hInternetSession As Long, _
    ByVal lps
[1] [2] [3] [4]  下一页

[网络技术]网络传输速度bps与下载文件所需时间的换算  


 

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18