求大神帮忙写下这样的下载器

s1599916993

下载的文件就这个=“http://dldir3.qq.com/minigamefile/QQGame3.4_setup_web.EXE”
下载到编辑框1路径
点击按钮后就自动下载到路径。而且进度条显示下载进度



补充内容 (2014-6-14 23:29):
附件在2楼下载后直接在源码里写代码吧

Michengxiang

Desktop.rar (34.19 KB, 下载次数: 32)

2014-6-15 00:26 上传

点击文件名下载附件


修改完成  别忘记最佳  谢谢

s1599916993

这个下载后直接写代码吧

s1599916993

附件在2楼下载后直接在源码里写代码吧

剩下我de孩子气

剩下我de孩子气

mxsoft

.版本 2
.支持库 downlib
.支持库 shell

.程序集 窗口程序集1
.程序集变量 下载, 下载对象
.程序集变量 任务, 任务参数
.程序集变量 文件大小, 整数型

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

选择目录 ()


.子程序 选择目录
.局部变量 a, 文本型
.局部变量 b, 文本型
.局部变量 c, 文本型
.局部变量 v, 文本型

' b ＝ 取文本右边 (a, 取文本长度 (a) － 倒找文本 (a, “/”, , 假))
c ＝ 浏览文件夹 (“选择要保存到的文件夹”, 假)
.如果真 (c ≠ “”)
    编辑框1.内容 ＝ c
.如果真结束
' v ＝ c ＋ “\” ＋ b

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

' 下载的文件就这个=“http://dldir3.qq.com/minigamefile/QQGame3.4_setup_web.EXE”
' 下载到编辑框1路径
' 点击按钮后就自动下载到路径。而且进度条显示下载进度
任务.类型 ＝ #传送常量.下载
任务.本地文件路径 ＝ 编辑框1.内容
任务.默认线程数 ＝ 5
任务.文件地址 ＝ “http://dldir3.qq.com/minigamefile/QQGame3.4_setup_web.EXE”
任务.交互回调函数 ＝ &进度显示
下载.增加新任务 (任务)

.子程序 进度显示, 整数型
.参数 消息类型, 整数型
.参数 线程信息, 整数型
.参数 参数3, 整数型
.参数 参数4, 整数型
.参数 对象信息, 整数型

.判断开始 (消息类型 ＝ #传送常量.下载上传开始)
    文件大小 ＝ 参数3
.判断 (消息类型 ＝ #传送常量.下载上传结束)
    信息框 (“下载结束”, 0, )
.判断 (消息类型 ＝ #传送常量.收到数据)
    进度条1.位置 ＝ 四舍五入 (下载.取已下载长 () ÷ 文件大小 × 100, 0)
.默认

.判断结束

返回 (0)

s1599916993

shanxiren 发表于 2014-6-15 00:06
.版本 2
.支持库 downlib
.支持库 shell

帮我写在2楼的那个源码上面吧。我给你最佳

s1599916993

剩下我de孩子气 发表于 2014-6-14 23:36

没有效果啊。自动就关了

Matty

好多答案，我就是来打酱油的