易语言多线程下载支持断点续传

.子程序 开始下载, 逻辑型, 公开, 返回假 = 打开本地文件失败
.参数 本地文件名, 文本型, , 保存的本地文件完整路径
.参数 线程数, 整数型, 可空, 默认5线程,
.参数 回调子程序, 整数型, 可空
.局部变量 局_线程句柄, 整数型

.如果真 (取数组成员数 (类_线程句柄) ≠ 0)
返回 (假)
.如果真结束
类_文件句柄 ＝ 打开文件 (本地文件名, #改读, 4)
.如果真 (类_文件句柄 ＝ 0)
返回 (假)
.如果真结束
是否暂停 ＝ 假
删除数据 (类_文件句柄, 取文件长度 (类_文件句柄))
类_已下载大小 ＝ 0
.如果真 (是否为空 (线程数))
线程数 ＝ 5
.如果真结束
类_下载回调 ＝ 回调子程序
.计次循环首 (线程数, )
局_线程句柄 ＝ CreateThread (0, 0, 类_函数地址, 类_变量地址, 0, 0)
.如果真 (局_线程句柄 ＞ 0)
加入成员 (类_线程句柄, 局_线程句柄)
.如果真结束
处理事件 ()
.计次循环尾 ()