永硕E盘 2024最新协议模块源码

中原温不胜

为什么我取文件直链拿不到下载地址阿

1015441689

还可以使用吗？

中原温不胜

为什么我取文件直链没反应阿

中原温不胜

6666666666666666666666666666666666666666

东山小道童

支持开源!!!!

lyjzyq

6666666666666666666666666

1051040973

666666666666666666666

chenyuqi1230

代码在47楼 替换源代码完成修复，模块重编译即可

694336034

okahua 发表于 2024-3-19 18:38
刷新文件列表()->永硕文件数组 .文件ID ＝ asm_取右边文本 (id, “_”, , ) 有问题，麻烦修复下，谢谢！ ...

感谢提醒已修复，请自行替换源码

694336034

  

子程序名	返回值类型	公开	备 注
刷新文件列表	逻辑型		需登录，XML树分析
参数名	类 型	参考	可空	数组	备 注
目录名称	文本型
永硕文件数组	永硕文件
返回scpz	文本型

变量名	类 型	静态	数组	备 注
局_返回	文本型
xml	XML树
xml数据	文本型
id	文本型
i	整数型
文件名	文本型
下载链接	文本型
上传时间	文本型
文件大小	文本型
目录数量	整数型
临时ML	永硕根目录

' http://c4.ysepan.com1889631&wjpx=1&_dlmc=694336034&_dlmm=
如果真 (取反 (查找目录 (目录名称, 临时ML)))
返回 (假)

http.Open (“GET”, 集_根域名 ＋ “/f_ht/ajcx/wj.aspx?cz=dq&jsq=0&mlbh=” ＋ 临时ML.ID ＋ “&wjpx=1&_dlmc=” ＋ 集_网盘ID ＋ “&_dlmm=”)
http.SetReferer (集_Referer)
http.Send ()
局_返回 ＝ http.GetResponseText ()
返回scpz ＝ asm_取出中间文本 (局_返回, “scpz = '”, “'”, , )
局_返回 ＝ U2A (_BASE64解码 (asm_取右边文本 (局_返回, “]”, )))
xml数据 ＝ “<span>” ＋ 局_返回 ＋ “</span>”
调试输出 (xml数据)
xml.导入 (到字节集 (xml数据))
目录数量 ＝ xml.取子节点个数 (“span”, )
重定义数组 (永硕文件数组, 假, 目录数量)
计次循环首 (目录数量, i)
永硕文件数组 [i].文件备注 ＝ xml.取节点值文本 (“span/@” ＋ 到文本 (i) ＋ “/@4”, )
id ＝ xml.取属性值文本 (“span/@” ＋ 到文本 (i), “id”, )
永硕文件数组 [i].文件ID ＝ asm_取右边文本 (id, “_”, , )
永硕文件数组 [i].文件名称 ＝ xml.取节点值文本 (“span/@” ＋ 到文本 (i) ＋ “/@2”, )
永硕文件数组 [i].下载地址 ＝ xml.取属性值文本 (“span/@” ＋ 到文本 (i) ＋ “/@2”, “href”, )
永硕文件数组 [i].上传时间 ＝ xml.取属性值文本 (“span/@” ＋ 到文本 (i) ＋ “/@2”, “title”, )
永硕文件数组 [i].文件大小 ＝ xml.取节点值文本 (“span/@” ＋ 到文本 (i) ＋ “/@3”, )
计次循环尾 ()
如果真 (返回scpz ≠ “”)
返回 (真)

返回 (假)

i支持库列表	支持库注释
EXMLParser	XML解析支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EXMLParser<br /> .支持库 spec<br /> <br /> .子程序 刷新文件列表, 逻辑型, 公开, 需登录，XML树分析<br /> .参数 目录名称, 文本型<br /> .参数 永硕文件数组, 永硕文件, 参考 数组<br /> .参数 返回scpz, 文本型, 参考 可空<br /> .局部变量 局_返回, 文本型<br /> .局部变量 xml, XML树<br /> .局部变量 xml数据, 文本型<br /> .局部变量 id, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 文件名, 文本型<br /> .局部变量 下载链接, 文本型<br /> .局部变量 上传时间, 文本型<br /> .局部变量 文件大小, 文本型<br /> .局部变量 目录数量, 整数型<br /> .局部变量 临时ML, 永硕根目录<br /> <br /> ' http://c4.ysepan.com1889631&wjpx=1&_dlmc=694336034&_dlmm=<br /> .如果真 (取反 (查找目录 (目录名称, 临时ML)))<br /> <br />     返回 (假)<br /> .如果真结束<br /> <br /> http.Open (“GET”, 集_根域名 ＋ “/f_ht/ajcx/wj.aspx?cz=dq&jsq=0&mlbh=” ＋ 临时ML.ID ＋ “&wjpx=1&_dlmc=” ＋ 集_网盘ID ＋ “&_dlmm=”)<br /> http.SetReferer (集_Referer)<br /> http.Send ()<br /> 局_返回 ＝ http.GetResponseText ()<br /> 返回scpz ＝ asm_取出中间文本 (局_返回, “scpz = '”, “'”, , )<br /> 局_返回 ＝ U2A (_BASE64解码 (asm_取右边文本 (局_返回, “]”, )))<br /> xml数据 ＝ “<span>” ＋ 局_返回 ＋ “</span>”<br /> 调试输出 (xml数据)<br /> xml.导入 (到字节集 (xml数据))<br /> 目录数量 ＝ xml.取子节点个数 (“span”, )<br /> 重定义数组 (永硕文件数组, 假, 目录数量)<br /> .计次循环首 (目录数量, i)<br />     永硕文件数组 <i>.文件备注 ＝ xml.取节点值文本 (“span/@” ＋ 到文本 (i) ＋ “/@4”, )<br />     id ＝ xml.取属性值文本 (“span/@” ＋ 到文本 (i), “id”, )<br />     永硕文件数组 <i>.文件ID ＝ asm_取右边文本 (id, “_”, , )<br />     永硕文件数组 <i>.文件名称 ＝ xml.取节点值文本 (“span/@” ＋ 到文本 (i) ＋ “/@2”, )<br />     永硕文件数组 <i>.下载地址 ＝ xml.取属性值文本 (“span/@” ＋ 到文本 (i) ＋ “/@2”, “href”, )<br />     永硕文件数组 <i>.上传时间 ＝ xml.取属性值文本 (“span/@” ＋ 到文本 (i) ＋ “/@2”, “title”, )<br />     永硕文件数组 <i>.文件大小 ＝ xml.取节点值文本 (“span/@” ＋ 到文本 (i) ＋ “/@3”, )<br /> .计次循环尾 ()<br /> .如果真 (返回scpz ≠ “”)<br />     返回 (真)<br /> .如果真结束<br /> <br /> 返回 (假)