易语言下载器制作

布凡特攻略库将会介绍易语言下载，有相关烦恼的人，就请继续看下去吧。

易语言下载器制作

.版本 2

.支持库 downlib

.支持库 shell

.程序集 窗口程序集1

.程序集变量 目录, 文本型

.程序集变量 文本, 文本型

.程序集变量 文件名, 文本型

.程序集变量 下载参数, 任务参数

.程序集变量 下载任务, 下载对象

.程序集变量 文件大小, 双精度小数型

.子程序 __启动窗口_创建完毕

.子程序 _按钮1_被单击

.如果真 (编辑框1.内容 ＝ “”)

  信息框 (“请输入网址”, 0, )

  返回 ()

.如果真结束

.如果真 (目录 ＝ “”)

  信息框 (“请选择保存位置!”, 0, )

  _按钮2_被单击 ()

.如果真结束

文本 ＝ 编辑框1.内容

文件名 ＝ 取文本右边 (文本, 取文本长度 (文本) － 倒找文本 (文本, “/”, , 假))

文本 ＝ 目录 ＋ “” ＋ 文件名

下载参数.类型 ＝ #传送常量.下载

下载参数.默认线程数 ＝ 5

下载参数.线程等待超时 ＝ 1000

下载参数.连接超时 ＝ 5000

下载参数.发送超时 ＝ 5003

下载参数.接收超时 ＝ 10000

下载参数.接收大小 ＝ 10240

下载参数.交互回调函数 ＝ &交互回调函数

时钟1.时钟周期 ＝ 1000

下载参数.文件地址 ＝ 编辑框1.内容

下载参数.本地文件路径 ＝ 文本

下载任务.增加新任务 (下载参数)

.子程序 _按钮2_被单击

目录 ＝ 浏览文件夹 (“选择要保存到的文件夹”, 假)

.如果真 (目录 ＝ “”)

  信息框 (“请选择保存位置!”, 0, )

.如果真结束

.子程序 交互回调函数, 整数型

.参数 消息类型, 整数型

.参数 线程信息, 整数型

.参数 参数3, 整数型

.参数 参数4, 整数型

.参数 对象信息, 整数型

.判断开始 (消息类型 ＝ #传送常量.存在同名文件)

  .如果 (信息框 (“文件已存在,继续下载吗”, #是否钮, ) ＝ #是钮)

      返回 (#传送常量.系统日志)

  .否则

      返回 (#传送常量.结束下载)

  .如果结束

.判断 (消息类型 ＝ #传送常量.下载上传开始)

  文件大小 ＝ 参数3

.判断 (消息类型 ＝ #传送常量.下载上传结束)

  信息框 (“完毕”, #信息图标, )

  时钟1.时钟周期 ＝ 0

  进度条1.位置 ＝ 0

.默认

.判断结束

返回 (0)

.子程序 _时钟1_周期事件

标签3.标题 ＝ 到文本 (四舍五入 (下载任务.取下载 () ÷ 1024, 2)) ＋ “kb/秒”

进度条1.位置 ＝ 下载任务.取已下载长 () ÷ 文件大小 × 100

---------------------------