多进程下载模块
本帖最后由 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 更新模块代码 加快下载速度
模块:
示例:
支持!
思路挺有意思.{:soso_e179:}
页:
[1]