多进程下载模块

wszjljx · 发表于 2012-11-23 00:46:39

本帖最后由 wszjljx 于 2012-11-23 19:32 编辑

VB中调用API下载HTTP文件时程序会未响应本模块采用多进程下载数据只需调用一个函数即可实现下载并且下载过程中程序还可进行其他交互......

注意:请编译成EXE后再进行下载功能否则无法进行下载

JX下载模块  使用说明

①使用 Sub Main 作为启动对象

②在 Sub Main 过程中添加代码
Dim DownloadParamStatus As Boolean
If JXInitializeDownload = False Then
  '初始化网络失败执行代码
Else
  DownloadParamStatus = JXDownloadParam
  If DownloadParamStatus = False Then
'初始化网络成功执行代码
  Else
Call JXDownloadProcess
  End If
End If

③在程序退出过程函数添加代码
Call JXDestroyDownload

④下载函数 JXDownloadData

返回值:Boolean 下载成功/失败
参数:
Address As String:下载地址
Length As Long:下载数据大小
Data() As Byte:下载数据

2012/11/23 19:30 更新模块代码加快下载速度

模块:

JXDownload_Module.zip (4.97 KB, 下载次数: 4140)

示例:

JXDownload.zip (22.32 KB, 下载次数: 4174)