蓝奏云 文件夹 取描述 取其中文件 取直链

YY244801950

论坛搜索的好多都 解析错误   就用按照论坛的源码 自己重新抓了一下   都能正常取出来
也不知道是我下载方式不对还是怎么回事  
反正下出来的文件用TXT打开口  内容显示文件未授权
下面是源码  看不懂的  可以下源码  知道的大神指点一下 这个文件未授权是怎么回事
------------------------------------分割线-------------------------------------------



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

.子程序 取文件夹文件, 文本型, 公开,    返回的是JSON文本  解析即可  wwc.lanzouw.com/+id 就是文件链接     在解析直链就可以了      
.参数 链接, 文本型
.参数 密码, 文本型, , pwd
.局部变量 ADD_协yi头, 类_POST数据类
.局部变量 网页文本, 文本型
.局部变量 正则, 正则表达式类
.局部变量 JS, 类_json
.局部变量 f, 文本型, , "0"
.局部变量 f2, 文本型, , "0"
.局部变量 参数, 文本型
.局部变量 ck, 文本型
.局部变量 名, 文本型
.局部变量 描述, 文本型
.局部变量 lx, 文本型
.局部变量 fid, 文本型
.局部变量 uid, 文本型
.局部变量 pg, 文本型
.局部变量 rep, 文本型
.局部变量 t, 文本型
.局部变量 k, 文本型
.局部变量 up, 文本型
.局部变量 ls, 文本型
.局部变量 sxm, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 j, 类_json
.局部变量 o, 整数型

ADD_协yi头.清空 ()
ADD_协yi头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/104.0.5112.102 Safari/537.36 Edg/104.0.1293.63”, )
ADD_协yi头.添加 (“Accept”, “text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9”, )
网页文本 ＝ 编码_URL解码_快速 (到文本 (网页_访问_对象 (链接, 0, , , ck, ADD_协yi头.获取协yi头数据 ())), 真)
描述 ＝ 文本_取出中间文本 (网页_取文本_dom (网页文本), “话说”, “文件名”)
f ＝ 分割文本 (文本_取出中间文本 (网页文本, “$.ajax(”, “},”) ＋ “}”, “,”, )
.计次循环首 (取数组成员数 (f), i)
    f [i] ＝ 文本_替换 (文本_替换 (f [i], , , , “{”, “”, “'”, “”, “,”, “”, “}”, “”, “data :”, “”), , , , 字符 (9), “”, “ ”, “”)
    f2 ＝ 分割文本 (f [i], “:”, )
    .如果真 (取数组成员数 (f2) ＝ 2)
        JS.置属性 (f2 [1], f2 [2])
    .如果真结束

.计次循环尾 ()
名 ＝ 文本_取出中间文本 (网页文本, “<title>”, “</title>”)
正则.创建 (“var i\S+ = '\S+”, 网页文本, , )
.如果真 (正则.取匹配数量 () ≠ 2)
    返回 (“参数取出错误 var i\D+ = '\d.+ ”)
.如果真结束
t ＝ 文本_取出中间文本 (正则.取匹配文本 (1), “'”, “'”)
k ＝ 文本_取出中间文本 (正则.取匹配文本 (2), “'”, “'”)
JS.置属性 (“t”, t)
JS.置属性 (“k”, k)

.判断开始 (JS.取通用属性 (“pg”) ＝ “pgs”)
    参数 ＝ “lx=” ＋ JS.取通用属性 (“lx”) ＋ “&fid=” ＋ JS.取通用属性 (“fid”) ＋ “&uid=” ＋ JS.取通用属性 (“uid”) ＋ “&pg=1” ＋ “&rep=” ＋ JS.取通用属性 (“rep”) ＋ “&t=” ＋ JS.取通用属性 (“t”) ＋ “&k=” ＋ JS.取通用属性 (“k”) ＋ “&up=” ＋ JS.取通用属性 (“up”) ＋ “&ls=” ＋ JS.取通用属性 (“ls”) ＋ “&pwd=” ＋ 密码
.默认
    参数 ＝ “lx=” ＋ JS.取通用属性 (“lx”) ＋ “&fid=” ＋ JS.取通用属性 (“fid”) ＋ “&uid=” ＋ JS.取通用属性 (“uid”) ＋ “&pg=0” ＋ “&rep=” ＋ JS.取通用属性 (“rep”) ＋ “&t=” ＋ JS.取通用属性 (“t”) ＋ “&k=” ＋ JS.取通用属性 (“k”) ＋ “&up=” ＋ JS.取通用属性 (“up”) ＋ “&ls=” ＋ JS.取通用属性 (“ls”) ＋ “&pwd=” ＋ 密码
.判断结束
ck ＝ 编码_usc2到ansi (到文本 (网页_访问_对象 (“https://wwc.lanzouw.com” ＋ JS.取通用属性 (“url”), 1, 参数, ck, , ADD_协yi头.获取协yi头数据 ())))
ck ＝ 文本_取右边 (取文本左边 (ck, 取文本长度 (ck) － 1), “text” ＋ #引号 ＋ “:”, )
.判断开始 (取反 (JS.解析 (ck)))
    返回 (“解析失败”)
.默认

    j.置属性 (“文件夹名”, 名, )
    j.置属性 (“文件夹描述”, 描述, )
    j.置属性 (“数据组”, “{}”, 真)
    .计次循环首 (JS.成员数 (), i)
        JS.取所有属性名 (sxm, “[” ＋ 到文本 (i － 1) ＋ “]”)
        j.置属性 (“数据组” ＋ “[” ＋ 到文本 (i － 1) ＋ “]”, “{}”, 真)
        .计次循环首 (取数组成员数 (sxm), o)
            j.置属性 (“数据组” ＋ “[” ＋ 到文本 (i － 1) ＋ “].” ＋ sxm [o], “{}”, 真)

            j.置属性 (“数据组” ＋ “[” ＋ 到文本 (i － 1) ＋ “].” ＋ sxm [o], JS.取通用属性 (“[” ＋ 到文本 (i － 1) ＋ “].” ＋ sxm [o]))
        .计次循环尾 ()
        j.置属性 (“数据组” ＋ “[” ＋ 到文本 (i － 1) ＋ “].” ＋ “url”, “https://wwc.lanzouw.com/”)

    .计次循环尾 ()
.判断结束
返回 (j.取数据文本 ())


.子程序 取直链接, 文本型, 公开, 需要自己JS解析    最总网址= JS.取通用属性 (“dom”) ＋ JS.取通用属性 (“url”)
.参数 链接, 文本型
.局部变量 ADD_协yi头, 类_POST数据类
.局部变量 ck, 文本型
.局部变量 正则, 正则表达式类
.局部变量 网页文本, 文本型
.局部变量 fn, 文本型
.局部变量 i, 整数型
.局部变量 c, 整数型
.局部变量 action, 文本型
.局部变量 signs, 文本型
.局部变量 sign, 文本型
.局部变量 websign, 文本型
.局部变量 websignkey, 文本型
.局部变量 ves, 文本型
.局部变量 url, 文本型
.局部变量 参数, 文本型


ADD_协yi头.清空 ()
ADD_协yi头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/104.0.5112.102 Safari/537.36 Edg/104.0.1293.63”, )
ADD_协yi头.添加 (“Accept”, “text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9”, )
网页文本 ＝ 编码_URL解码_快速 (到文本 (网页_访问_对象 (链接, 0, , , ck, ADD_协yi头.获取协yi头数据 ())), 真)
正则.创建 (“src=” ＋ #引号 ＋ “/fn?\S+”, 网页文本)
.计次循环首 (正则.取匹配数量 (), i)
    .如果真 (取文本长度 (正则.取匹配文本 (i)) ＞ c)
        fn ＝ 文本_替换 (正则.取匹配文本 (i), , , , #引号, “”)
    .如果真结束

.计次循环尾 ()
网页文本 ＝ 编码_URL解码_快速 (到文本 (网页_访问_对象 (“https://wwc.lanzouw.com/” ＋ fn, , , ck, ck, ADD_协yi头.获取协yi头数据 ())), 真)
signs ＝ 文本_取出中间文本 (网页文本, “ajaxdata = '”, “';”, )
sign ＝ 文本_取出中间文本 (网页文本, “vsign = '”, “';”, )
websignkey ＝ 文本_取出中间文本 (网页文本, “cwebsignkeyc = '”, “';”, )
websign ＝ 文本_取出中间文本 (网页文本, “awebsigna = '”, “';”, )
.如果 (文本_取出中间文本 (网页文本, “'action':'”, “',”, ) ＝ “”)
    action ＝ “downprocess”
.否则
    action ＝ 文本_取出中间文本 (网页文本, “'action':'”, “',”, )
.如果结束

.如果 (文本_取出中间文本 (网页文本, “ves':”, “'”, ) ＝ “”)
    ves ＝ “1”
.否则
    ves ＝ 文本_取出中间文本 (网页文本, “ves':”, “'”, )
.如果结束

url ＝ 文本_取出中间文本 (网页文本, “url : '”, “',”)

参数 ＝ “action=” ＋ action ＋ “&signs=” ＋ 编码_URL编码 (signs, 真) ＋ “&sign=” ＋ sign ＋ “&websign=” ＋ websign ＋ “&websignkey=” ＋ websignkey ＋ “&ves=” ＋ ves
参数 ＝ 文本_替换 (参数, , , , “,”, “”, “ ”, “”, “}”, “”)

网页文本 ＝ 编码_usc2到ansi (网页_访问S (“https://wwc.lanzouw.com” ＋ url, 1, 参数, ck, ck, ADD_协yi头.获取协yi头数据 ()))

网页文本 ＝ 文本_替换 (网页文本, , , , “zt” ＋ #引号 ＋ “:” ＋ 文本_取出中间文本 (网页文本, “zt” ＋ #引号 ＋ “:”, “,”), “zt” ＋ #引号 ＋ “:” ＋ #引号 ＋ 文本_取出中间文本 (网页文本, “zt” ＋ #引号 ＋ “:”, “,”) ＋ #引号, “inf” ＋ #引号 ＋ “:” ＋ 文本_取出中间文本 (网页文本, “inf” ＋ #引号 ＋ “:”, “}”), “inf” ＋ #引号 ＋ “:” ＋ #引号 ＋ 文本_取出中间文本 (网页文本, “inf” ＋ #引号 ＋ “:”, “}”) ＋ #引号)
返回 (网页文本)


.子程序 子程序, 整数型, 公开, 请在本子程序中放置易模块初始化代码
.局部变量 J, 类_json
.局部变量 后缀, 文本型

J.解析 (取文件夹文件 (“https://wwc.lanzouw.com/b0dsh4lyd”, “7rs6”))
调试输出 (J.取数据文本 ())  ' 这里是文件夹信息  和文件夹里面文件信息
后缀 ＝ J.取通用属性 (“数据组['0'].icon”)
J.解析 (取直链接 (J.取通用属性 (“数据组[0].url”) ＋ J.取通用属性 (“数据组[0].id”)))
调试输出 (J.取数据文本 ())  ' 这里是直链信息

写到文件 (“名字.” ＋ 后缀, HTTP读文件 (J.取通用属性 (“dom”) ＋ J.取通用属性 (“url”)))

anlens

向大佬学习！！！厉害

股老传奇

下了几个都不行啊

查过

感谢发布原创作品，精易因你更精彩！6666666666666

sheyong

向大佬学习

59hdvj

感谢分享

扣扣343458632

感谢大佬分享

sinewtec

开源精神必须支持~

pjm123

谢谢分享

chengwei5714869

插眼，坐等完美