易语言自动更新程序 求助

作业堆成山°

大家帮我看看   为什么总是无法获取文件大小 谢谢了
[e]
.版本 2.支持库 eCompress.程序集 窗口集_主窗口.程序集变量 局_文件号, 整数型, , , 配置文件的文件号.子程序 __启动窗口_创建完毕.局部变量 局_命令行, 文本型, , "0"信息框 (“是否开始更新”, #是否钮, )取命令行 (局_命令行).如果真 (取数组成员数 (局_命令行) ≠ 2)    结束 ().如果真结束.如果真 (取数组成员数 (局_命令行) ＝ 2)    .如果真 (局_命令行 [1] ≠ “UpDate”)        结束 ()    .如果真结束.如果真结束.判断开始 (局_命令行 [2] ＝ “Y”)    配置文件 ＝ 取运行目录 () ＋ “\UpDate_Config.ini”  ' 工具启动时,网络的文件,并保存到这个位置来.默认    配置文件 ＝ 目录_取临时目录 () ＋ “UpDate_Config.ini”  ' 工具启动时,网络的文件,并保存到这个位置来.判断结束全_运行目录 ＝ 取运行目录 ().如果真 (文件是否存在 (配置文件) ＝ 假)    结束 ().如果真结束局_文件号 ＝ 打开文件 (配置文件, #读入, #禁止写)_启动窗口.标题 ＝ 配置_读标题 ()进度条_改颜色 (进度条_下载进度.取窗口句柄 (), 2871848).子程序 __启动窗口_可否被关闭, 逻辑型.如果真 (按钮_确定.禁止)    .如果真 (提示框 (“程序还未更新完成,确定要退出吗?”, 36, , 取窗口句柄 ()) ≠ #是钮)        返回 (假)    .如果真结束    BT_全部停止 ().如果真结束功能_清理垃圾 ()结束 ().子程序 __启动窗口_将被销毁功能_清理垃圾 ().子程序 __启动窗口_首次激活超级链接.Internet地址 ＝ 配置_读网络地址 ()编辑框_显示.内容 ＝ 到文本 (网页_访问 (配置_读历史更新记录地址 ()))功能_开始更新 ().子程序 功能_开始更新.局部变量 局_文本, 文本型.局部变量 hp_下载任务, BT_下载任务BT_初始化 (取窗口句柄 (), 到数值 (&下载进度事件), 到数值 (&状态提示事件))hp_下载任务.欲下载地址 ＝ 配置_读网络地址 ()hp_下载任务.本地文件名 ＝ 目录_取临时目录 () ＋ “Temp.zip”BT_开始下载 (hp_下载任务).子程序 下载提示.参数 提示文本, 文本型标签_显示.标题 ＝ 提示文本.子程序 下载进度事件.参数 任务ID, 整数型.参数 文件总大小, 整数型, , 字节.参数 已下载大小, 整数型, , 字节.参数 下载速度, 整数型, , KB/S.参数 下载进度, 整数型, , 百分比进度条_下载进度.位置 ＝ 下载进度下载提示 (到文本 (取整 (文件总大小 ÷ 1024)) ＋ “/” ＋ 到文本 (取整 (已下载大小 ÷ 1024)) ＋ “　” ＋ 到文本 (下载速度) ＋ “/S　” ＋ 到文本 (下载进度) ＋ “%”).子程序 状态提示事件.参数 任务ID, 整数型.参数 状态消息号, 整数型.参数 本地文件名, 文本型.参数 状态提示, 文本型.局部变量 局_表项, 整数型.判断开始 (状态消息号 ＝ #消息号_下载完毕)    功能_更名指定文件 ()  ' 先改名,再覆盖    .如果 (功能_解压并复制文件 ())        功能_删除指定文件 ()        下载提示 (“更新完成,请点击确定按钮”)        按钮_确定.禁止 ＝ 假    .否则        删除文件 (目录_取临时目录 () ＋ “Temp” ＋ 配置_取文件格式 ())        删除目录 (目录_取临时目录 () ＋ “Temp”)        标签_显示.标题 ＝ “更新失败,已更换更新方式重新更新中...”        功能_开始更新 ()    .如果结束.判断 (状态消息号 ＝ #消息号_下载开始)    下载提示 (“准备更新中...”).判断 (状态消息号 ＝ #消息号_下载错误)    下载提示 (“更新失败,原因：提取文件大小失败,你可点击左上角的链接,手动更新”).默认.判断结束.子程序 功能_清理垃圾.如果真 (是否为调试版 ())    返回 ().如果真结束关闭文件 (局_文件号)删除文件 (目录_取临时目录 () ＋ “Temp” ＋ 配置_取文件格式 ())删除目录 (目录_取临时目录 () ＋ “Temp”)删除文件 (配置文件).子程序 功能_删除指定文件.局部变量 局_文本, 文本型.局部变量 局_序号, 整数型.循环判断首 ()    局_序号 ＝ 局_序号 ＋ 1    局_文本 ＝ 删首尾空 (配置_替换目录 (读配置项 (配置文件, “删除指定文件”, “文件” ＋ 到文本 (局_序号), “”)))    .如果真 (局_文本 ≠ “” 且 寻找文本 (局_文本, 全_运行目录, , 假) ≠ -1)        .如果真 (删除文件 (局_文本) ＝ 假)            删除目录 (局_文本)        .如果真结束    .如果真结束.循环判断尾 (局_文本 ≠ “”).子程序 功能_更名指定文件.局部变量 局_原文件名, 文本型.局部变量 局_新文件名, 文本型.局部变量 局_序号, 整数型.循环判断首 ()    局_序号 ＝ 局_序号 ＋ 1    局_原文件名 ＝ 删首尾空 (配置_替换目录 (读配置项 (配置文件, “更名指定文件”, “原文件名” ＋ 到文本 (局_序号), “”)))    局_新文件名 ＝ 删首尾空 (配置_替换目录 (读配置项 (配置文件, “更名指定文件”, “新文件名” ＋ 到文本 (局_序号), “”)))    .如果真 (局_原文件名 ≠ “” 且 局_新文件名 ≠ “” 且 寻找文本 (局_原文件名, 全_运行目录, , 假) ≠ -1)        文件更名 (局_原文件名, 局_新文件名)    .如果真结束.循环判断尾 (局_原文件名 ≠ “”).子程序 _按钮_确定_被单击配置_运行主程序 ()  ' 运行指定的主程序,并销毁更新窗口.子程序 功能_解压并复制文件, 逻辑型.判断开始 (配置_取文件格式 () ＝ “.zip”)    目录_创建 (目录_取临时目录 () ＋ “Temp”)    .如果 (ZIP.解压 (目录_取临时目录 () ＋ “Temp.zip”, 目录_取临时目录 () ＋ “Temp”) ＝ 1)  ' 解压成功        目录_更新 (目录_取临时目录 () ＋ “Temp”, 文件_取目录 (配置_读本地地址 ()), 真)  ' 复制压缩包里的所有文件到指定目录        返回 (真)    .否则        返回 (假)    .如果结束.默认    返回 (文件_复制 (目录_取临时目录 () ＋ “Temp” ＋ 配置_取文件格式 (), 配置_读本地地址 (), 真)).判断结束返回 (假)
[/e]

补充内容 (2013-5-18 12:58):
.版本 2
.支持库 eCompress

.程序集 窗口集_主窗口
.程序集变量 局_文件号, 整数型, , , 配置文件的文件号

.子程序 __启动窗口_创建完毕
.局部变量 局_命令行, 文本型, , "0"

信息框 (“是否开始更新”, #是否...

得罪人的血债

神马乱七八糟的东西?？？？

malu

神马都是浮云啊

liux

不是很明白  直接上源码是最快解决问题的

sq1999

看看自己也不会