利用有道云更新软件源码

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

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

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

有道更新 (“5a7dd86b847e4b4a64b02235286682e9”)

.子程序 有道更新
.参数 目录ID, 文本型
.局部变量 url, 文本型
.局部变量 返回, 文本型
.局部变量 json, 类_json
.局部变量 i, 整数型
.局部变量 文件名, 文本型
.局部变量 地址, 文本型
.局部变量 下载地址, 文本型

url ＝ “https://note.youdao.com/yws/public/notebook/” ＋ 目录ID
返回 ＝ 编码_URL解码 (网页_访问S (url, , , , , , , , , , , , , , , , , , , , ), 真)
' 调试输出 (返回)
.如果真 (json.解析 (返回))
    .计次循环首 (到整数 (json.取通用属性 (“[0]”)), i)
        文件名 ＝ json.取通用属性 (“[2][” ＋ 到文本 (i － 1) ＋ “].tl”)
        调试输出 (文件名)
        .如果真 (寻找文本 (文件名, “exe”, , 假) ≠ -1)  ' 多个exe文件事需提供 文件名比如 1.exe  需要填写 1.exe   如果就一个exe文件 直接寻找exe即可  各类文件都是如此
            地址 ＝ json.取通用属性 (“[2][” ＋ 到文本 (i － 1) ＋ “].p”)
            地址 ＝ 文本_取右边 (地址, “/”)
            调试输出 (地址)
            跳出循环 ()
        .如果真结束

    .计次循环尾 ()
.如果真结束
下载地址 ＝ “https://note.youdao.com/yws/api/personal/file/” ＋ 地址 ＋ “?method=download&shareKey=” ＋ 目录ID
调试输出 (下载地址)
写到文件 (取运行目录 () ＋ “我是下载出来的文件.exe”, HTTP读文件 (下载地址))

@a4561482