利用服务器实现在线更新

crush3517

服务器端

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
服务器	远程服务
更新数据	字节集

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

更新数据 ＝ 读入文件 (取运行目录 () ＋ “/1.exe”)
服务器.置线程池大小 (5, 20)
服务器.启动 (1234, &处理函数, 假)

子程序名	返回值类型	公开	备 注
处理函数
参数名	类 型	参考	可空	数组	备 注
消息地址	整数型

变量名	类 型	静态	数组	备 注
数据类型	整数型
客户句柄	整数型
客户IP	文本型
请求信息	文本型
代码	文本型

数据类型 ＝ 服务器.取消息类型 (消息地址)  ' 客户连接0 断开1 字节2
判断 (数据类型 ＝ 2)
服务器.取客户句柄 (消息地址, 客户句柄)
服务器.取客户IP (客户句柄, 客户IP)
服务器.取请求文本 (消息地址, 代码, 请求信息)
判断 (取文本中间 (请求信息, 1, 5) ＝ “#更新” 且 客户IP ≠ “”)
服务器.发送字节集 (客户句柄, 更新数据)

i支持库列表	支持库注释
Exmlrpc	远程服务支持库

.版本 2<br /> .支持库 Exmlrpc<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 服务器, 远程服务<br /> .程序集变量 更新数据, 字节集<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 更新数据 ＝ 读入文件 (取运行目录 () ＋ “/1.exe”)<br /> 服务器.置线程池大小 (5, 20)<br /> 服务器.启动 (1234, &处理函数, 假)<br /> <br /> .子程序 处理函数<br /> .参数 消息地址, 整数型<br /> .局部变量 数据类型, 整数型<br /> .局部变量 客户句柄, 整数型<br /> .局部变量 客户IP, 文本型<br /> .局部变量 请求信息, 文本型<br /> .局部变量 代码, 文本型<br /> <br /> 数据类型 ＝ 服务器.取消息类型 (消息地址)  ' 客户连接0 断开1 字节2<br /> .判断开始 (数据类型 ＝ 2)<br />     服务器.取客户句柄 (消息地址, 客户句柄)<br />     服务器.取客户IP (客户句柄, 客户IP)<br />     服务器.取请求文本 (消息地址, 代码, 请求信息)<br />     .判断开始 (取文本中间 (请求信息, 1, 5) ＝ “#更新” 且 客户IP ≠ “”)<br />         服务器.发送字节集 (客户句柄, 更新数据)<br />     .默认<br /> <br />     .判断结束

客户端

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
服务器版本	整数型
本软件版本	整数型
客户端	请求客户端
下载完成	逻辑型
更新数据	字节集

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
i	整数型

如果真 (服务器版本 ≠ 本软件版本)  ' 判断
判断 (客户端.连接 (1234, “服务器地址”, 假, &获取软件) ＝ 真)
客户端.异步发送文本 (“#更新”)
计次循环首 (60, i)
如果真 (下载完成 ＝ 真)
写到文件 (取运行目录 () ＋ “\文件名.exe”, 更新数据)
信息框 (“下载成功。”, 262144, , )
跳出循环 ()
如果真 (i ＝ 60)
信息框 (“下载失败，即将跳转到下载网站。”, 262144, , )
打开指定网址 (“”)
程序_延时 (1000)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
获取软件
参数名	类 型	参考	可空	数组	备 注
消息地址

数据类型 ＝ 客户端.取消息类型 (消息地址)
如果真 (数据类型 ＝ 1)
客户端.取返回字节集 (消息地址, 更新数据)
下载完成 ＝ 真

i支持库列表	支持库注释
Exmlrpc	远程服务支持库
eAPI	应用接口支持库

.版本 2<br /> .支持库 Exmlrpc<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 服务器版本, 整数型<br /> .程序集变量 本软件版本, 整数型<br /> .程序集变量 客户端, 请求客户端<br /> .程序集变量 下载完成, 逻辑型<br /> .程序集变量 更新数据, 字节集<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (服务器版本 ≠ 本软件版本)  ' 判断<br />     .判断开始 (客户端.连接 (1234, “服务器地址”, 假, &获取软件) ＝ 真)<br />         客户端.异步发送文本 (“#更新”)<br />         .计次循环首 (60, i)<br />             .如果真 (下载完成 ＝ 真)<br />                 写到文件 (取运行目录 () ＋ “\文件名.exe”, 更新数据)<br /> <br />                 信息框 (“下载成功。”, 262144, , )<br />                 跳出循环 ()<br />             .如果真结束<br />             .如果真 (i ＝ 60)<br />                 信息框 (“下载失败，即将跳转到下载网站。”, 262144, , )<br />                 打开指定网址 (“”)<br />             .如果真结束<br />             程序_延时 (1000)<br />         .计次循环尾 ()<br /> <br /> <br />     .默认<br /> <br />     .判断结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 获取软件<br /> .参数 消息地址<br /> <br /> 数据类型 ＝ 客户端.取消息类型 (消息地址)<br /> .如果真 (数据类型 ＝ 1)<br />     客户端.取返回字节集 (消息地址, 更新数据)<br />     下载完成 ＝ 真

什么都没有

蔡徐坤666

gdwlwl

{:7_463:}{:7_463:}

小小小小123

感谢发布原创作品，精易因你更精彩！

hsl123

感谢分享

君之秋

666666666666666666666

victor5536

我看看看看看下

末影代挂

666666

josn

可以阿，很有趣的思路

小吉哥

下载要我2金币，我得回复找回来！