易语言利用服务器更新,易语言使用FTP服务器更新软件案例

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

启动线程 (&更新线程