http文件下载可显示速度百分比

.判断开始 (文件是否存在 (取运行目录 () ＋ “\下载”) ＝ 假)
创建目录 (取运行目录 () ＋ “\下载\”)
HTTP.进度下载 (&下载事件, 编辑框1.内容, 取运行目录 () ＋ “\下载\”, 2)
按钮1.标题 ＝ “正在下载”