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

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

@晶晶易

.版本 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)  ' 可以根据您的需要返回任意数值