易语言解析网盘的问题

mywood

下午还可以正常取出json，现在失效了有没有大佬来帮忙解决一下
https://pan.9igf.com/s/wpp4TG
取出这个网盘的直连地址


.版本 2

.子程序 功能_网页访问, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型


局_网址 ＝ “https://pan.9igf.com/s/wpp4TG”
局_方式 ＝ 3
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3497.100 Safari/537.36”, )

局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()

局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, , , , 局_提交协议头, , , , , , , , , , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))
局_返回 ＝ 功能_取JSON值 (局_返回, “data”)
返回 (局_返回)

.子程序 功能_取JSON值, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用
.参数 Json数据, 文本型
.参数 属性名, 文本型
.局部变量 局_JSON, 类_json
.局部变量 局_结果, 逻辑型
.局部变量 局_类型, 整数型

' 精易模块v8.0需要先把换行替换掉！
Json数据 ＝ 子文本替换 (Json数据, 字符 (13), , , , 真)
Json数据 ＝ 子文本替换 (Json数据, 字符 (10), , , , 真)

局_结果 ＝ 局_JSON.解析 (Json数据, , )
.如果真 (局_结果 ＝ 假)
    返回 (“JSON解析失败”)
.如果真结束
局_类型 ＝ 局_JSON.取类型 (属性名)
.判断开始 (局_类型 ＝ 1)  ' 逻辑
    返回 (局_JSON.取属性对象 (属性名))
.判断 (局_类型 ＝ 2)  ' 数值
    返回 (局_JSON.取属性 (属性名).取数据文本 ())
.判断 (局_类型 ≠ 6)  ' 非字符串
    返回 (局_JSON.取通用属性 (属性名, 真))
.默认
    返回 (局_JSON.取通用属性 (属性名, ))  ' 字符串
.判断结束

萧楚楠

  

子程序名	返回值类型	公开	备 注
SunnyNetCreateRequest1			本子程序由Sunny中间件生成,请配合 [精易模块] 使用。 /api/v3/share/download/wpp4TG

变量名	类 型	静态	数组	备 注
局_网址	文本型
局_提交数据	文本型
局_协议头	类_POST数据类
局_响应字节集	字节集
局_响应文本	文本型

局_网址 ＝ “https://pan.9igf.com/api/v3/share/download/wpp4TG”
局_提交数据 ＝ “”
局_协议头.添加 (“Cache-Control”, “no-cache”)
' 局_协议头.添加 (“Accept-Encoding”, “gzip, deflate, br, zstd”)
局_协议头.添加 (“Connection”, “keep-alive”)
局_协议头.添加 (“Referer”, “https://pan.9igf.com/s/wpp4TG”)
局_协议头.添加 (“Host”, “pan.9igf.com”)
局_协议头.添加 (“Origin”, “https://pan.9igf.com”)
局_协议头.添加 (“sec-ch-ua”, 子文本替换 (“'Chromium';v='134', 'Not:A-Brand';v='24', 'Microsoft Edge';v='134'”, " ' ",#引号, , , 真))
局_协议头.添加 (“Sec-Fetch-Dest”, “empty”)
局_协议头.添加 (“sec-ch-ua-mobile”, “?0”)
局_协议头.添加 (“Sec-Fetch-Site”, “same-origin”)
局_协议头.添加 (“Pragma”, “no-cache”)
局_协议头.添加 (“sec-ch-ua-platform”, 子文本替换 (“'Windows'”, " ' ",#引号, , , 真))
局_协议头.添加 (“Sec-Fetch-Mode”, “cors”)
局_协议头.添加 (“Accept-Language”, “zh-CN,zh;q=0.9,en;q=0.8,en-GB;q=0.7,en-US;q=0.6”)
局_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/134.0.0.0 Safari/537.36 Edg/134.0.0.0”)
局_协议头.添加 (“Accept”, “application/json, text/plain, */*”)
局_响应字节集 ＝ 网页_访问_对象 (局_网址, 3, 局_提交数据, , , 局_协议头.获取协议头数据 ())
局_响应文本 ＝ 到文本 (局_响应字节集)
调试输出 (局_响应文本)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 SunnyNetCreateRequest1, , 公开, 本子程序由Sunny中间件生成,请配合 [精易模块] 使用。 /api/v3/share/download/wpp4TG<br /> .局部变量 局_网址, 文本型, , , <br /> .局部变量 局_提交数据, 文本型, , , <br /> .局部变量 局_协议头, 类_POST数据类, , , <br /> .局部变量 局_响应字节集, 字节集, , , <br /> .局部变量 局_响应文本, 文本型, , , <br /> <br /> 局_网址 ＝ “https://pan.9igf.com/api/v3/share/download/wpp4TG”<br /> <br /> 局_提交数据 ＝ “”<br /> 局_协议头.添加 (“Cache-Control”, “no-cache”)<br /> ' 局_协议头.添加 (“Accept-Encoding”, “gzip, deflate, br, zstd”)<br /> 局_协议头.添加 (“Connection”, “keep-alive”)<br /> 局_协议头.添加 (“Referer”, “https://pan.9igf.com/s/wpp4TG”)<br /> 局_协议头.添加 (“Host”, “pan.9igf.com”)<br /> 局_协议头.添加 (“Origin”, “https://pan.9igf.com”)<br /> 局_协议头.添加 (“sec-ch-ua”, 子文本替换 (“'Chromium';v='134', 'Not:A-Brand';v='24', 'Microsoft Edge';v='134'”, "'",#引号, , , 真))<br /> 局_协议头.添加 (“Sec-Fetch-Dest”, “empty”)<br /> 局_协议头.添加 (“sec-ch-ua-mobile”, “?0”)<br /> 局_协议头.添加 (“Sec-Fetch-Site”, “same-origin”)<br /> 局_协议头.添加 (“Pragma”, “no-cache”)<br /> 局_协议头.添加 (“sec-ch-ua-platform”, 子文本替换 (“'Windows'”, "'",#引号, , , 真))<br /> 局_协议头.添加 (“Sec-Fetch-Mode”, “cors”)<br /> 局_协议头.添加 (“Accept-Language”, “zh-CN,zh;q=0.9,en;q=0.8,en-GB;q=0.7,en-US;q=0.6”)<br /> 局_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/134.0.0.0 Safari/537.36 Edg/134.0.0.0”)<br /> 局_协议头.添加 (“Accept”, “application/json, text/plain, */*”)<br /> 局_响应字节集 ＝ 网页_访问_对象 (局_网址, 3, 局_提交数据, , , 局_协议头.获取协议头数据 ())<br /> 局_响应文本 ＝ 到文本 (局_响应字节集)<br /> 调试输出 (局_响应文本)