易语言自动更新程序求助

作业堆成山° · 发表于 2013-5-18 12:56:11

大家帮我看看为什么总是无法获取文件大小谢谢了
[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"

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