自动版本升级

bugaosuni1314

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_升级进度窗口
变量名	类 型	数组	备 注
下载参数	任务参数
下载任务	下载对象
下载状态	整数型
下载信息	字节集
文件大小	双精度小数型
分割文件名	文本型	0
文件名	文本型

子程序名	返回值类型	公开	备 注
_升级进度窗口_创建完毕

' 删除文件 (“D:\门店管理\门店辅助系统.exe”)
' 下载地址 ＝ “http://127.0.0.1/%E8%8D%AF%E5%BA%97%E8%BF%9B%E9%94%80%E5%AD%98%E7%B3%BB%E7%BB%9F.exe”
分割文件名 ＝ 分割文本 (下载地址, “/”, )
文件名 ＝ 分割文件名 [取数组成员数 (分割文件名)]
时钟1.时钟周期 ＝ 100
进度条1.位置 ＝ 0
开始下载 ()

子程序名	返回值类型	公开	备 注
开始下载

变量名	类 型	静态	数组	备 注
后缀名	文本型

下载地址 ＝ 删首尾空 (下载地址)
下载参数.类型 ＝ #传送常量 .下载
下载参数.文件地址 ＝ 下载地址
下载参数.线程等待超时 ＝ 1000
下载参数.默认线程数 ＝ 5
判断 (保存路径 ＝ 0)
通用对话框1.类型 ＝ 1  ' 保存文件
后缀名 ＝ 取文本右边 (文件名, 取文本长度 (文件名) － 倒找文本 (文件名, “.”, , 假))
通用对话框1.文件名 ＝ 文件名
通用对话框1.过滤器 ＝ “保存文件(*.” ＋ 后缀名 ＋ “)”
通用对话框1.默认文件后缀 ＝ 后缀名
如果真 (通用对话框1.打开 ())
下载参数.本地文件路径 ＝ 通用对话框1.文件名

判断 (保存路径 ＝ 1)
下载参数.本地文件路径 ＝ 取运行目录 () ＋ “\” ＋ 文件名
判断 (保存路径 ＝ 2)
下载参数.本地文件路径 ＝ 取特定目录 ( #系统桌面 ) ＋ “\” ＋ 文件名



' 下载参数.本地文件路径 ＝ “D:\门店辅助系统.exe”  ' 这里是保存的文件地址
下载参数.连接超时 ＝ 5000
下载参数.发送超时 ＝ 5000
下载参数.接收超时 ＝ 10000
下载参数.接收大小 ＝ 10240
下载参数.交互回调函数 ＝ &交互回调函数
下载任务.增加新任务 (下载参数)

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

进度条1.位置 ＝ 四舍五入 (下载任务.取已下载长 () ÷ 文件大小 × 100, 0)
标签3.标题 ＝ 取文本左边 (到文本 (下载任务.取下载速度 () ÷ 1024 ÷ 1024), 4) ＋ “MB/秒”

子程序名	返回值类型	公开	备 注
交互回调函数	整数型
参数名	类 型	参考	可空	数组	备 注
消息类型	整数型
线程信息	整数型
参数3	整数型
参数4	整数型
对象信息	整数型

判断 (消息类型 ＝ #传送常量 .下载上传开始)
文件大小 ＝ 参数3
判断 (消息类型 ＝ #传送常量 .下载上传结束)
时钟1.时钟周期 ＝ 0
信息框 (“文件自动升级完毕！”, #信息图标, “成功提示”, )
升级进度窗口.销毁 ()
' 复制替换文件 ()
判断 (消息类型 ＝ #传送常量 .新下载线程启动)
判断 (消息类型 ＝ #传送常量 .下载线程继续下载)
判断 (消息类型 ＝ #传送常量 .线程正常结束)
判断 (消息类型 ＝ #传送常量 .线程异常结束)
判断 (消息类型 ＝ #传送常量 .存在同名文件)
判断 (消息类型 ＝ #传送常量 .收到数据)
判断 (消息类型 ＝ #传送常量 .下载数据范围)



返回 (0)

子程序名	返回值类型	公开	备 注
复制替换文件

' 复制文件 (“D:\门店管理\门店升级系统.exe”, “D:\门店管理\门店辅助系统.exe”)
' 文件更名 (“D:\门店管理\门店升级系统.exe”, “D:\门店管理\门店辅助系统.exe”)
' 执行 (4, “D:\门店管理\门店辅助系统.exe”, , , )
' 终止进程 (“门店自动升级.exe”)

i支持库列表	支持库注释
downlib	网络传送支持库
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 downlib<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_升级进度窗口<br /> .程序集变量 下载参数, 任务参数<br /> .程序集变量 下载任务, 下载对象<br /> .程序集变量 下载状态, 整数型<br /> .程序集变量 下载信息, 字节集<br /> .程序集变量 文件大小, 双精度小数型<br /> .程序集变量 分割文件名, 文本型, , "0"<br /> .程序集变量 文件名, 文本型<br /> <br /> .子程序 _升级进度窗口_创建完毕<br /> <br /> ' 删除文件 (“D:\门店管理\门店辅助系统.exe”)<br /> ' 下载地址 ＝ “http://127.0.0.1/%E8%8D%AF%E5%BA%97%E8%BF%9B%E9%94%80%E5%AD%98%E7%B3%BB%E7%BB%9F.exe”<br /> 分割文件名 ＝ 分割文本 (下载地址, “/”, )<br /> 文件名 ＝ 分割文件名 [取数组成员数 (分割文件名)]<br /> <br /> 时钟1.时钟周期 ＝ 100<br /> 进度条1.位置 ＝ 0<br /> 开始下载 ()<br /> <br /> <br /> <br /> .子程序 开始下载<br /> .局部变量 后缀名, 文本型<br /> <br /> 下载地址 ＝ 删首尾空 (下载地址)<br /> 下载参数.类型 ＝ #传送常量.下载<br /> 下载参数.文件地址 ＝ 下载地址<br /> 下载参数.线程等待超时 ＝ 1000<br /> 下载参数.默认线程数 ＝ 5<br /> <br /> .判断开始 (保存路径 ＝ 0)<br />     通用对话框1.类型 ＝ 1  ' 保存文件<br />     后缀名 ＝ 取文本右边 (文件名, 取文本长度 (文件名) － 倒找文本 (文件名, “.”, , 假))<br />     通用对话框1.文件名 ＝ 文件名<br />     通用对话框1.过滤器 ＝ “保存文件(*.” ＋ 后缀名 ＋ “)”<br />     通用对话框1.默认文件后缀 ＝ 后缀名<br />     .如果真 (通用对话框1.打开 ())<br />         下载参数.本地文件路径 ＝ 通用对话框1.文件名<br />     .如果真结束<br /> <br /> .判断 (保存路径 ＝ 1)<br />     下载参数.本地文件路径 ＝ 取运行目录 () ＋ “\” ＋ 文件名<br /> <br /> .判断 (保存路径 ＝ 2)<br />     下载参数.本地文件路径 ＝ 取特定目录 (#系统桌面) ＋ “\” ＋ 文件名<br /> .默认<br /> <br /> .判断结束<br /> <br /> ' 下载参数.本地文件路径 ＝ “D:\门店辅助系统.exe”  ' 这里是保存的文件地址<br /> 下载参数.连接超时 ＝ 5000<br /> 下载参数.发送超时 ＝ 5000<br /> 下载参数.接收超时 ＝ 10000<br /> 下载参数.接收大小 ＝ 10240<br /> 下载参数.交互回调函数 ＝ &交互回调函数<br /> 下载任务.增加新任务 (下载参数)<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 进度条1.位置 ＝ 四舍五入 (下载任务.取已下载长 () ÷ 文件大小 × 100, 0)<br /> 标签3.标题 ＝ 取文本左边 (到文本 (下载任务.取下载速度 () ÷ 1024 ÷ 1024), 4) ＋ “MB/秒”<br /> <br /> <br /> .子程序 交互回调函数, 整数型<br /> .参数 消息类型, 整数型<br /> .参数 线程信息, 整数型<br /> .参数 参数3, 整数型, 可空<br /> .参数 参数4, 整数型<br /> .参数 对象信息, 整数型<br /> <br /> .判断开始 (消息类型 ＝ #传送常量.下载上传开始)<br />     文件大小 ＝ 参数3<br /> .判断 (消息类型 ＝ #传送常量.下载上传结束)<br />     时钟1.时钟周期 ＝ 0<br />     信息框 (“文件自动升级完毕！”, #信息图标, “成功提示”, )<br />     升级进度窗口.销毁 ()<br />     ' 复制替换文件 ()<br /> .判断 (消息类型 ＝ #传送常量.新下载线程启动)<br /> <br /> .判断 (消息类型 ＝ #传送常量.下载线程继续下载)<br /> <br /> .判断 (消息类型 ＝ #传送常量.线程正常结束)<br /> <br /> .判断 (消息类型 ＝ #传送常量.线程异常结束)<br /> <br /> .判断 (消息类型 ＝ #传送常量.存在同名文件)<br /> <br /> .判断 (消息类型 ＝ #传送常量.收到数据)<br /> <br /> .判断 (消息类型 ＝ #传送常量.下载数据范围)<br /> <br /> .默认<br /> <br /> .判断结束<br /> 返回 (0)<br /> <br /> <br /> .子程序 复制替换文件<br /> <br /> ' 复制文件 (“D:\门店管理\门店升级系统.exe”, “D:\门店管理\门店辅助系统.exe”)<br /> ' 文件更名 (“D:\门店管理\门店升级系统.exe”, “D:\门店管理\门店辅助系统.exe”)<br /> ' 执行 (4, “D:\门店管理\门店辅助系统.exe”, , , )<br /> ' 终止进程 (“门店自动升级.exe”)

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_升级进度窗口
变量名	类 型	数组	备 注
下载参数	任务参数
下载任务	下载对象
下载状态	整数型
下载信息	字节集
文件大小	双精度小数型
分割文件名	文本型	0
文件名	文本型

子程序名	返回值类型	公开	备 注
_升级进度窗口_创建完毕

' 删除文件 (“D:\门店管理\门店辅助系统.exe”)
' 下载地址 ＝ “http://127.0.0.1/%E8%8D%AF%E5%BA%97%E8%BF%9B%E9%94%80%E5%AD%98%E7%B3%BB%E7%BB%9F.exe”
分割文件名 ＝ 分割文本 (下载地址, “/”, )
文件名 ＝ 分割文件名 [取数组成员数 (分割文件名)]
时钟1.时钟周期 ＝ 100
进度条1.位置 ＝ 0
开始下载 ()

子程序名	返回值类型	公开	备 注
开始下载

变量名	类 型	静态	数组	备 注
后缀名	文本型

下载地址 ＝ 删首尾空 (下载地址)
下载参数.类型 ＝ #传送常量 .下载
下载参数.文件地址 ＝ 下载地址
下载参数.线程等待超时 ＝ 1000
下载参数.默认线程数 ＝ 5
判断 (保存路径 ＝ 0)
通用对话框1.类型 ＝ 1  ' 保存文件
后缀名 ＝ 取文本右边 (文件名, 取文本长度 (文件名) － 倒找文本 (文件名, “.”, , 假))
通用对话框1.文件名 ＝ 文件名
通用对话框1.过滤器 ＝ “保存文件(*.” ＋ 后缀名 ＋ “)”
通用对话框1.默认文件后缀 ＝ 后缀名
如果真 (通用对话框1.打开 ())
下载参数.本地文件路径 ＝ 通用对话框1.文件名

判断 (保存路径 ＝ 1)
下载参数.本地文件路径 ＝ 取运行目录 () ＋ “\” ＋ 文件名
判断 (保存路径 ＝ 2)
下载参数.本地文件路径 ＝ 取特定目录 ( #系统桌面 ) ＋ “\” ＋ 文件名



' 下载参数.本地文件路径 ＝ “D:\门店辅助系统.exe”  ' 这里是保存的文件地址
下载参数.连接超时 ＝ 5000
下载参数.发送超时 ＝ 5000
下载参数.接收超时 ＝ 10000
下载参数.接收大小 ＝ 10240
下载参数.交互回调函数 ＝ &交互回调函数
下载任务.增加新任务 (下载参数)

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

进度条1.位置 ＝ 四舍五入 (下载任务.取已下载长 () ÷ 文件大小 × 100, 0)
标签3.标题 ＝ 取文本左边 (到文本 (下载任务.取下载速度 () ÷ 1024 ÷ 1024), 4) ＋ “MB/秒”

子程序名	返回值类型	公开	备 注
交互回调函数	整数型
参数名	类 型	参考	可空	数组	备 注
消息类型	整数型
线程信息	整数型
参数3	整数型
参数4	整数型
对象信息	整数型

判断 (消息类型 ＝ #传送常量 .下载上传开始)
文件大小 ＝ 参数3
判断 (消息类型 ＝ #传送常量 .下载上传结束)
时钟1.时钟周期 ＝ 0
信息框 (“文件自动升级完毕！”, #信息图标, “成功提示”, )
升级进度窗口.销毁 ()
' 复制替换文件 ()
判断 (消息类型 ＝ #传送常量 .新下载线程启动)
判断 (消息类型 ＝ #传送常量 .下载线程继续下载)
判断 (消息类型 ＝ #传送常量 .线程正常结束)
判断 (消息类型 ＝ #传送常量 .线程异常结束)
判断 (消息类型 ＝ #传送常量 .存在同名文件)
判断 (消息类型 ＝ #传送常量 .收到数据)
判断 (消息类型 ＝ #传送常量 .下载数据范围)



返回 (0)

子程序名	返回值类型	公开	备 注
复制替换文件

' 复制文件 (“D:\门店管理\门店升级系统.exe”, “D:\门店管理\门店辅助系统.exe”)
' 文件更名 (“D:\门店管理\门店升级系统.exe”, “D:\门店管理\门店辅助系统.exe”)
' 执行 (4, “D:\门店管理\门店辅助系统.exe”, , , )
' 终止进程 (“门店自动升级.exe”)

i支持库列表	支持库注释
downlib	网络传送支持库
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 downlib<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_升级进度窗口<br /> .程序集变量 下载参数, 任务参数<br /> .程序集变量 下载任务, 下载对象<br /> .程序集变量 下载状态, 整数型<br /> .程序集变量 下载信息, 字节集<br /> .程序集变量 文件大小, 双精度小数型<br /> .程序集变量 分割文件名, 文本型, , "0"<br /> .程序集变量 文件名, 文本型<br /> <br /> .子程序 _升级进度窗口_创建完毕<br /> <br /> ' 删除文件 (“D:\门店管理\门店辅助系统.exe”)<br /> ' 下载地址 ＝ “http://127.0.0.1/%E8%8D%AF%E5%BA%97%E8%BF%9B%E9%94%80%E5%AD%98%E7%B3%BB%E7%BB%9F.exe”<br /> 分割文件名 ＝ 分割文本 (下载地址, “/”, )<br /> 文件名 ＝ 分割文件名 [取数组成员数 (分割文件名)]<br /> <br /> 时钟1.时钟周期 ＝ 100<br /> 进度条1.位置 ＝ 0<br /> 开始下载 ()<br /> <br /> <br /> <br /> .子程序 开始下载<br /> .局部变量 后缀名, 文本型<br /> <br /> 下载地址 ＝ 删首尾空 (下载地址)<br /> 下载参数.类型 ＝ #传送常量.下载<br /> 下载参数.文件地址 ＝ 下载地址<br /> 下载参数.线程等待超时 ＝ 1000<br /> 下载参数.默认线程数 ＝ 5<br /> <br /> .判断开始 (保存路径 ＝ 0)<br />     通用对话框1.类型 ＝ 1  ' 保存文件<br />     后缀名 ＝ 取文本右边 (文件名, 取文本长度 (文件名) － 倒找文本 (文件名, “.”, , 假))<br />     通用对话框1.文件名 ＝ 文件名<br />     通用对话框1.过滤器 ＝ “保存文件(*.” ＋ 后缀名 ＋ “)”<br />     通用对话框1.默认文件后缀 ＝ 后缀名<br />     .如果真 (通用对话框1.打开 ())<br />         下载参数.本地文件路径 ＝ 通用对话框1.文件名<br />     .如果真结束<br /> <br /> .判断 (保存路径 ＝ 1)<br />     下载参数.本地文件路径 ＝ 取运行目录 () ＋ “\” ＋ 文件名<br /> <br /> .判断 (保存路径 ＝ 2)<br />     下载参数.本地文件路径 ＝ 取特定目录 (#系统桌面) ＋ “\” ＋ 文件名<br /> .默认<br /> <br /> .判断结束<br /> <br /> ' 下载参数.本地文件路径 ＝ “D:\门店辅助系统.exe”  ' 这里是保存的文件地址<br /> 下载参数.连接超时 ＝ 5000<br /> 下载参数.发送超时 ＝ 5000<br /> 下载参数.接收超时 ＝ 10000<br /> 下载参数.接收大小 ＝ 10240<br /> 下载参数.交互回调函数 ＝ &交互回调函数<br /> 下载任务.增加新任务 (下载参数)<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 进度条1.位置 ＝ 四舍五入 (下载任务.取已下载长 () ÷ 文件大小 × 100, 0)<br /> 标签3.标题 ＝ 取文本左边 (到文本 (下载任务.取下载速度 () ÷ 1024 ÷ 1024), 4) ＋ “MB/秒”<br /> <br /> <br /> .子程序 交互回调函数, 整数型<br /> .参数 消息类型, 整数型<br /> .参数 线程信息, 整数型<br /> .参数 参数3, 整数型, 可空<br /> .参数 参数4, 整数型<br /> .参数 对象信息, 整数型<br /> <br /> .判断开始 (消息类型 ＝ #传送常量.下载上传开始)<br />     文件大小 ＝ 参数3<br /> .判断 (消息类型 ＝ #传送常量.下载上传结束)<br />     时钟1.时钟周期 ＝ 0<br />     信息框 (“文件自动升级完毕！”, #信息图标, “成功提示”, )<br />     升级进度窗口.销毁 ()<br />     ' 复制替换文件 ()<br /> .判断 (消息类型 ＝ #传送常量.新下载线程启动)<br /> <br /> .判断 (消息类型 ＝ #传送常量.下载线程继续下载)<br /> <br /> .判断 (消息类型 ＝ #传送常量.线程正常结束)<br /> <br /> .判断 (消息类型 ＝ #传送常量.线程异常结束)<br /> <br /> .判断 (消息类型 ＝ #传送常量.存在同名文件)<br /> <br /> .判断 (消息类型 ＝ #传送常量.收到数据)<br /> <br /> .判断 (消息类型 ＝ #传送常量.下载数据范围)<br /> <br /> .默认<br /> <br /> .判断结束<br /> 返回 (0)<br /> <br /> <br /> .子程序 复制替换文件<br /> <br /> ' 复制文件 (“D:\门店管理\门店升级系统.exe”, “D:\门店管理\门店辅助系统.exe”)<br /> ' 文件更名 (“D:\门店管理\门店升级系统.exe”, “D:\门店管理\门店辅助系统.exe”)<br /> ' 执行 (4, “D:\门店管理\门店辅助系统.exe”, , , )<br /> ' 终止进程 (“门店自动升级.exe”)

sostemp

能不能有测试的E

meiqingbo

感谢分享

jiangqiong

感谢分享！！！！ 感谢分享！！！！

胖子葛格

感谢分享！！！！

pipicool

学习一下

xf702

加油！！！

KD飞飞

感谢分享，支持开源！！！

please

感谢分享，支持开源！！！

year1970

感谢分享