.版本 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”

下载对象.增加新任务 (任务参数)

.否则

_启动窗口.销毁 ()

.如果结束

.否则

.如果结束

.如果真结束

@weiyongbo

文件下载

解压密码：

来源：三叶资源网，欢迎分享，公众号：iisanye，(三叶资源网⑤群：21414575)