3个回答
展开全部
判断 (消息类型 = #传送常量.线程正常结束).判断 (消息类型 = #传送常量.线程异常结束).判断 (消息类型 = #传送常量.存在同名文件).判断 (消息类型 = #传送常量.收到数据).判断 (消息类型 = #传送常量.下载数据范围).默认.判断结束返回 (0).子程序 _时钟1_周期事件进度条1.位置 = 四舍五入 (下载任务.取已下载长 () ÷ 文件大小 × 100, 0)_启动窗口.标题 = “正在下载更新文件:” + 到文本 (四舍五入 (下载任务.取已下载长 () ÷ 文件大小 × 100, 0)) + “%”.子程序 _ZIP压缩1_解压缩进度, 逻辑型.参数 已完成百分比, 整数型进度条1.位置 = 已完成百分比_启动窗口.标题 = “正在安装更新文件:” + 到文本 (已完成百分比) + “%”版本 2.支持库 downlib.支持库 eCompress.程序集 窗口程序集1.程序集变量 下载参数, 任务参数.程序集变量 下载任务, 下载对象.程序集变量 下载状态, 整数型.程序集变量 下载信息, 字节集.程序集变量 文件大小, 双精度小数型.子程序 __启动窗口_创建完毕.局部变量 下载地址, 文本型.局部变量 局_命令行, 文本型, , "0"取命令行 (局_命令行).如果真 (取数组成员数 (局_命令行) = 0)复制文件 (取运行目录 () + “\” + 取执行文件名 (), 取运行目录 () + “\temp.dat”)置文件属性 (取运行目录 () + “\temp.dat”, 2)运行 (取运行目录 () + “\temp.dat -g”, 假, )结束 ().如果真结束.如果真 (取数组成员数 (局_命令行) ≠ 0).如果真 (局_命令行 [1] = “-g”)下载地址 = “127.0.0.1/123.zip”下载参数.类型 = #传送常量.下载下载参数.文件地址 = 下载地址下载参数.线程等待超时 = 1000下载参数.默认线程数 = 5下载参数.本地文件路径 = 取运行目录 () + “\temp.temp”下载参数.连接超时 = 5000下载参数.发送超时 = 5000下载参数.接收超时 = 10000下载参数.接收大小 = 10240下载参数.交互回调函数 = &交互回调函数下载任务.增加新任务 (下载参数)时钟1.时钟周期 = 10.如果真结束.如果真 (局_命令行 [1] = “-d”)_启动窗口.标题 = “更新完成”进度条1.位置 = 100信息框 (“更新完成”, 0, “提示”)删除文件 (取运行目录 () + “\temp.dat”)运行 (取运行目录 () + “\主程序.exe”, 假, )结束 ().如果真结束.如果真结束.子程序 交互回调函数, 整数型.参数 消息类型, 整数型.参数 线程信息, 整数型.参数 参数3, 整数型.参数 参数4, 整数型.参数 对象信息, 整数型.判断开始 (消息类型 = #传送常量.下载上传开始)文件大小 = 参数3.判断 (消息类型 = #传送常量.下载上传结束)时钟1.时钟周期 = 0ZIP压缩1.解压 (取运行目录 () + “\temp.temp”, 取运行目录 ())删除文件 (取运行目录 () + “\temp.temp”)运行 (取运行目录 () + “\update.exe -d”, 假, )结束 ().判断 (消息类型 = #传送常量.新下载线程启动).判断 (消息类型 = #传送常量.下载线程继续下载.
展开全部
可以用QQ名字更新,代码如下:
--------------------------------------
.版本 2
.支持库 internet
.支持库 iconv
.程序集 窗口程序集1
.程序集变量 最新版本, 文本型
.子程序 _按钮1_被单击
.局部变量 name, 文本型
.局部变量 m, 整数型
.局部变量 n, 整数型
name = 到文本 (HTTP读文件 (“http://r.qzone.qq.com/cgi-bin/user/cgi_personal_card?uin=” + “你的QQ号”))
m = 寻找文本 (name, “nickname”, , 真)
.如果 (m = -1)
最新版本 = “1.0”
.否则
n = 寻找文本 (name, “,”, m, 真)
最新版本 = 子文本替换 (到文本 (编码转换 (到字节集 (取文本中间 (name, m + 10, n - m - 10)), #编码_UTF_8, #编码_GB18030, )), #引号, 取空白文本 (0), , , 真)
.如果结束
.如果 (最新版本 > 到数值 (“当前版本”))
.否则
.如果结束
--------------------------------------
.版本 2
.支持库 internet
.支持库 iconv
.程序集 窗口程序集1
.程序集变量 最新版本, 文本型
.子程序 _按钮1_被单击
.局部变量 name, 文本型
.局部变量 m, 整数型
.局部变量 n, 整数型
name = 到文本 (HTTP读文件 (“http://r.qzone.qq.com/cgi-bin/user/cgi_personal_card?uin=” + “你的QQ号”))
m = 寻找文本 (name, “nickname”, , 真)
.如果 (m = -1)
最新版本 = “1.0”
.否则
n = 寻找文本 (name, “,”, m, 真)
最新版本 = 子文本替换 (到文本 (编码转换 (到字节集 (取文本中间 (name, m + 10, n - m - 10)), #编码_UTF_8, #编码_GB18030, )), #引号, 取空白文本 (0), , , 真)
.如果结束
.如果 (最新版本 > 到数值 (“当前版本”))
.否则
.如果结束
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
连接上ftp 命名旧的程序 下载完就把旧的给删了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询