精易论坛

标题: 蓝奏云文件夹取描述取其中文件取直链 [打印本页]

作者: YY244801950 时间: 2022-9-15 22:53
标题: 蓝奏云文件夹取描述取其中文件取直链
论坛搜索的好多都解析错误就用按照论坛的源码自己重新抓了一下都能正常取出来
也不知道是我下载方式不对还是怎么回事
反正下出来的文件用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”)))

蓝奏云模块.e

901.43 KB, 下载次数: 34, 下载积分: 精币 -2 枚

作者: YY244801950 时间: 2022-9-15 23:09
写到文件 (取特定目录 (3) ＋ “/” ＋ “名字.” ＋后缀, HTTP读文件 (J.取通用属性 (“dom”) ＋ “/file/” ＋ J.取通用属性 (“url”))

这样写以后内容又显示什么跳转错误点击按钮继续下载

作者: 30345 时间: 2022-9-15 23:30
提示: 作者被禁止或删除内容自动屏蔽

作者: ouyasq 时间: 2022-9-16 01:57
感谢作者！

作者: 醉卧美人膝 时间: 2022-9-16 07:15
来看看

作者: chengwei5714869 时间: 2022-9-16 07:28
插眼，坐等完美

作者: pjm123 时间: 2022-9-16 08:28
谢谢分享

作者: sinewtec 时间: 2022-9-16 10:38
开源精神必须支持~

作者: 扣扣343458632 时间: 2022-9-16 15:52
感谢大佬分享

作者: 59hdvj 时间: 2022-9-16 19:18
感谢分享

作者: sheyong 时间: 2022-9-17 10:21
向大佬学习

作者: 查过 时间: 2022-9-20 18:47
感谢发布原创作品，精易因你更精彩！6666666666666

作者: 股老传奇 时间: 2022-9-21 00:47
下了几个都不行啊

作者: anlens 时间: 2022-9-24 20:03
向大佬学习！！！厉害

欢迎光临精易论坛 (https://125.confly.eu.org/)