ftp在线更新软件带进度条

新版文件名 ＝ #软件名称 ＋ 最新版本 ＋ “.exe”
当前文件名 ＝ 取执行文件名 ()
连接FTP服务器 (#ftp更新服务器地址, #ftp用户名, #ftp密码, 21, )
远程目录列表 ＝ FTP目录列表 (新版文件名, , , , 文件尺寸, ) ' 目录列表功能，能提文件的尺寸属性，提取文件尺寸 ＝ 文件尺寸 [1] ' 通过目录列表提出来的尺寸属性是放在数组里的，转化为长整数
输出调试文本 (提取文件尺寸)
FTP文件下载 (新版文件名, 新版文件名, ) ' 下载服务器上的新文件名，保存在本地后也是要新文件名

.如果 (到数值 (最新版本) ＞ 当前版本)
.如果真 (信息框 (“检测到新版本，是否更新？ ”, #询问图标 ＋ #是否钮, ) ＝ #是钮)
新版文件名 ＝ “管理系统” ＋ 最新版本 ＋ “.exe”
载入 (窗口_更新, , 真)