.版本 2
.支持库 downlib
.支持库 spec
.支持库 edroptarget
.支持库 EThread
.支持库 internet
.支持库 shell
.程序集 窗口程序集_启动窗口
.程序集变量 全_接受到的文件, 文本型
.程序集变量 FTP, FTP辅助对象
.程序集变量 下载对象, 下载对象
.程序集变量 任务参数, 任务参数
.程序集变量 传送常量, 传送常量
.程序集变量 版本号, 文本型, , "2"
.程序集变量 文件号, 整数型, , "2"
.子程序 __启动窗口_创建完毕
.局部变量 文件大小, 整数型
文件号 [1] ＝ 打开文件 (“C:\Users\Administrator\Desktop\软件更新案例\版本信息.txt”, #读写, 1) ' 先检查本地软件版本
版本号 [1] ＝ 读入一行 (文件号 [1]) ' 将读入本地版本号
调试输出 (版本号 [1])
关闭文件 (文件号 [1])
拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ()) ' 用于上传文件，方便试验
.如果真 (版本号 [1] ≠ “”) ' 先确定找到本地版本号才运行以下代码
.如果 (FTP.连接FTP服务器 (“这里输入你申请的服务链接”, “这输入用户名！”, “这里输入密码”, 21, &日志回调, )) ' 登录服务器
.如果真 (文件_删除 (“C:\Users\Administrator\Desktop\软件更新案例\版本信息.txt”))
启动线程 (&更新线程2, , )
.如果真结束
_启动窗口.标题 ＝ “连接服务器成功” ' 提示服务器连接成功
.否则
_启动窗口.标题 ＝ “连接服务器失败”
.如果结束
.如果真结束
.子程序 日志回调
.参数 线程信息, 整数型
.参数 消息产生的时间, 文本型
.参数 消息的正文, 文本型
.参数 消息类型, 整数型
.参数 对象信息, 整数型
调试输出 (线程信息)
调试输出 (消息产生的时间)
调试输出 (消息的正文)
调试输出 (消息类型)
调试输出 (对象信息)
.子程序 _按钮1_被单击
FTP文件上传 (全_接受到的文件, “版本信息.txt”, )
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
全_接受到的文件 ＝ 接收到的文件路径
编辑框1.内容 ＝ 接收到的文件路径
.子程序 更新线程2
任务参数.类型 ＝ #传送常量.下载
任务参数.文件地址 ＝ “这里输入你申请的服务链接/版本信息.txt”
' 注意：加ftp服务器名(编辑框1.内容 )
信息框 (任务参数.文件地址, 0, , )
任务参数.本地文件路径 ＝ “C:\Users\Administrator\Desktop\软件更新案例\版本信息.txt”
' 任务参数.日志回调函数 ＝ &日志回调
任务参数.用户名 ＝ “这输入用户名！”
任务参数.用户密码 ＝ “ 这里输入密码”
任务参数.发送大小 ＝ 2048
任务参数.接收大小 ＝ 20480
任务参数.发送超时 ＝ 20000
' 任务参数.交互回调函数 ＝ &交互回调函数
任务参数.下载速度 ＝ 0
任务参数.接收超时 ＝ 20000
任务参数.传送类型 ＝ 1
任务参数.类型区分串 ＝ “.exe|.rar|.zip|.gif|.jpg|.mp3|.rm|.txt”
.如果真 (下载对象.增加新任务 (任务参数))
信息框 (“开始下载咯”, 0, , )
' 延时 (300)
文件号 [2] ＝ 打开文件 (取特定目录 (3) ＋ “版本信息.txt”, #读写, 1) ' 读入服务器下载下来的版本信息文件
版本号 [2] ＝ 读入一行 (文件号 [2])
调试输出 (版本号 [2])
.如果 (版本号 [1] ≠ 版本号 [2]) ' 判断本地版本号跟服务器是否一致，不一致就下载新软件
.如果 (信息框 (“发现新版本是否更新？”, 0, , ) ＝ 0) ' 要你确认
删除文件 (取运行目录 () ＋ “1.0程序”)
任务参数.文件地址 ＝ “这里输入你申请的服务链接/程序.e” ' 下载咯
任务参数.类型 ＝ #传送常量.下载
' 注意：加ftp服务器名(编辑框1.内容 )
信息框 (任务参数.文件地址, 0, , )
任务参数.本地文件路径 ＝ “C:\Users\Administrator\Desktop\软件更新案例\版本信息.txt”
' 任务参数.日志回调函数 ＝ &日志回调
任务参数.用户名 ＝ “这输入用户名！”
任务参数.用户密码 ＝ “ 这里输入密码”
任务参数.发送大小 ＝ 2048
任务参数.接收大小 ＝ 20480
任务参数.发送超时 ＝ 20000
' 任务参数.交互回调函数 ＝ &交互回调函数
任务参数.下载速度 ＝ 0
任务参数.接收超时 ＝ 20000
任务参数.传送类型 ＝ 1
任务参数.类型区分串 ＝ “.exe|.rar|.zip|.gif|.jpg|.mp3|.rm|.txt”
下载对象.增加新任务 (任务参数)
.否则
_启动窗口.销毁 ()
.如果结束
.否则
.如果结束
.如果真结束