php文件直链源码,蓝奏网盘文件夹直链解析源码

蓝奏网盘文件夹直链解析源码

@晶晶易.版本 2

.支持库 spec

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行

.局部变量 返回文本, 文本型

.局部变量 fid, 文本型

.局部变量 uid, 文本型

.局部变量 t, 文本型

.局部变量 k, 文本型

.局部变量 id, 文本型, , "0"

.局部变量 name, 文本型, , "0"

.局部变量 文件数量, 整数型

.局部变量 计次, 整数型

.局部变量 下载目录, 文本型

.局部变量 Location, 文本型

.局部变量 文件路径, 文本型, , "0"

返回文本 ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://www.lanzous.com/b567641”, , , , , , , , , , , , , , , , , ))

t ＝ 文本_取出中间文本 (返回文本, “'t':”, “,”, , )

k ＝ 文本_取出中间文本 (返回文本, “'k':”, “,”, , )

t ＝ 文本_取出中间文本 (返回文本, t ＋ “ = '”, “';”, , )

k ＝ 文本_取出中间文本 (返回文本, k ＋ “ = '”, “';”, , )

uid ＝ 文本_取出中间文本 (返回文本, “'uid':'”, “',”, , )

fid ＝ 文本_取出中间文本 (返回文本, “'fid':”, “,”, , )

返回文本 ＝ 编码_usc2到ansi (编码_Utf8到Ansi (网页_访问_对象 (“https://www.lanzous.com/filemoreajax.php”, 1, “lx=2&fid=” ＋ fid ＋ “&uid=” ＋ uid ＋ “&pg=1&rep=0&t=” ＋ t ＋ “&k=” ＋ k ＋ “&up=1”, , , , , , , , , , , , , , , )))

文件数量 ＝ 文本_取中间_批量 (返回文本, #id前, #id后, id, , , , , , , )

.如果 (文件数量 ＝ 文本_取中间_批量 (返回文本, #name前, #name后, name, , , , , , , ))

下载目录 ＝ “Download-” ＋ 时间_取现行时间戳 ()

.计次循环首 (文件数量, 计次)

网页_访问_对象 (编码_运行JS代码 (#js, “G”, “https://www.lanzous.com/” ＋ id [计次], , , ), 0, , , , , Location, , 真, , , , , , , , , )

Location ＝ 网页_协议头_取信息 (Location, “Location”)

标准输出 (, Location ＋ #换行符 ＋ #换行符)

延迟 (1000)

.计次循环尾 ()

.否则

标准输出 (, “数据解析错误001”)

延迟 (3000)

.如果结束

返回 (0)  ' 可以根据您的需要返回任意数值

文件下载

解压密码：

来源：三叶资源网，欢迎分享，公众号：iisanye，(三叶资源网⑤群：21414575)