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

youya

感谢分享

王者路太艰难

[JavaScript] 纯文本查看 复制代码

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

.子程序 刷新文件列表, 逻辑型, 公开, 需登录，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 ≠ “”)
    返回 (真)
.如果真结束

返回 (假)

388266

         支持开源~！感谢分享

yeshuang00

先生大义,纯干货,整好需要
先生大义,纯干货,整好需要
先生大义,纯干货,整好需要
先生大义,纯干货,整好需要

yeshuang00

先生大义,纯干货,整好需要先生大义,纯干货,整好需要

网络注册网员

必须支持

mu396

感谢分享

奎木狼

登录网盘,提示请求信息不完整

刀仔Y

感谢大佬开源

mengxinqiujiao

好惨呀,扣了八个金币还是没有下载下来