易语言利用利用微云实现在线更新

.版本 2
.支持库 spec
.支持库 internet

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

调试输出 (取在线数据 (“1”))
调试输出 (取在线数据 (“2”))
调试输出 (取在线数据 (“3”))
调试输出 (取在线数据 (“4”))
调试输出 (取在线数据 (“5”))


.子程序 子程序1



.子程序 取在线数据, 文本型, ,  '这个函数读取指定QQ的昵称， QQ昵称 控制版本号 
.参数 在线编号, 文本型
.局部变量 数据, 文本型
.局部变量 头像, 文本型

数据 ＝ 到文本 (HTTP读文件 (“https://share.weiyun.com/5GscbPi”))  ' 自己去微云分享一个文章即可  格式为 1[我是内容]  如果多个数据就回车 在复制几遍就可以了
头像 ＝ 取文本中间_E (数据, 在线编号 ＋ “[”, “]”)

返回 (编码_utf8到gb2312 (头像))

.子程序 取文本中间_E, 文本型
.参数 原文本, 文本型
.参数 前面文本, 文本型
.参数 后面文本, 文本型
.参数 是否区分大小写, 逻辑型, 可空, 默认不区分  真=区分  假=不区分
.参数 查找方法, 整数型, 可空, 0=先找前面  1=先找后面
.参数 后面文本可能是尾部, 逻辑型, 可空, 如果真，后面的不存在也没事
.局部变量 位置1, 整数型
.局部变量 位置2, 整数型
.局部变量 起始, 整数型
.局部变量 前面文本长度, 整数型
.局部变量 后面文本长度, 整数型

前面文本长度 ＝ 取文本长度 (前面文本)
后面文本长度 ＝ 取文本长度 (后面文本)
.如果 (查找方法 ＝ 1)
    起始 ＝ 1
    .循环判断首 ()
        位置1 ＝ 寻找文本 (原文本, 后面文本, 起始, 取反 (是否区分大小写))
        位置2 ＝ 倒找文本 (原文本, 前面文本, 位置1, 取反 (是否区分大小写))
        .如果真 (位置1 ≠ -1 且 位置2 ＝ -1)
            起始 ＝ 位置1 ＋ 后面文本长度
        .如果真结束

    .循环判断尾 (位置1 ≠ -1 且 位置2 ＝ -1)
    返回 (取文本中间 (原文本, 位置2 ＋ 前面文本长度, 位置1 － 位置2 － 前面文本长度))

.否则
    位置1 ＝ 寻找文本 (原文本, 前面文本, , 取反 (是否区分大小写))
    位置2 ＝ 寻找文本 (原文本, 后面文本, 位置1 ＋ 取文本长度 (前面文本), 取反 (是否区分大小写))
    .如果真 (后面文本可能是尾部)
        .如果真 (位置2 ＝ -1 且 位置1 ≠ -1)
            返回 (取文本中间 (原文本, 位置1 ＋ 前面文本长度, 取文本长度 (原文本) － 位置1 － 前面文本长度 ＋ 1))
        .如果真结束

    .如果真结束

    .如果真 (位置1 ＝ -1 或 位置2 ＝ -1)
        返回 (“”)
    .如果真结束

    返回 (取文本中间 (原文本, 位置1 ＋ 前面文本长度, 位置2 － 位置1 － 前面文本长度))
.如果结束


.子程序 编码_utf8到gb2312, 文本型
.参数 欲转换的源码, 文本型

返回 (Unicode到Ansi (Ansi到Unicode (欲转换的源码), 936))  ' 从utf8到gb2312

.子程序 Ansi到Unicode, 字节集
.参数 Ansi, 文本型
.参数 原始编码, 整数型, 可空
.局部变量 Unicode, 字节集
.局部变量 长度, 整数型

.如果真 (是否为空 (原始编码))
    原始编码 ＝ 65001
.如果真结束
长度 ＝ MultiByteToWideChar (0, 0, Ansi, -1, {  }, 0)
Unicode ＝ 取空白字节集 (长度 × 2)
MultiByteToWideChar (原始编码, 0, Ansi, -1, Unicode, 长度)
返回 (Unicode)

.子程序 Unicode到Ansi, 文本型
.参数 Unicode, 字节集
.参数 目标编码, 整数型, 可空
.局部变量 Ansi, 文本型
.局部变量 长度, 整数型

.如果真 (是否为空 (目标编码))
    目标编码 ＝ 0
.如果真结束
长度 ＝ WideCharToMultiByte_整数 (0, 0, 取指针_字节集型 (Unicode), -1, 0, 0, 0, 0)
Ansi ＝ 取空白文本 (长度 × 2)
WideCharToMultiByte_整数 (目标编码, 0, 取指针_字节集型 (Unicode), -1, 取指针_文本型 (Ansi), 长度 × 2, 0, 0)
返回 (Ansi)


.子程序 取指针_文本型, 整数型, , 取到的是变量在堆中的地址,和 取变量数据地址() 一样
.参数 文本, 文本型, 参考

置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 4, 0 })
返回 (0)

.子程序 取指针_字节集型, 整数型, , 取到的是变量堆地址,和 取变量数据地址() 一样
.参数 字节集, 字节集, 参考

置入代码 ({ 139, 69, 8, 139, 0, 133, 192, 15, 132, 3, 0, 0, 0, 131, 192, 8, 201, 194, 4, 0 })
返回 (0)

@判官大人