精易论坛

标题: 蓝奏云直链解析 [打印本页]

---

作者: 斗战胜猴    时间: 2025-6-11 20:45
标题: 蓝奏云直链解析
调用了 正则表达式
调用了 网页_访问_对象
调用了 编码_Utf8到Ansi

截图32位20250611084208.png (22.79 KB, 下载次数: 0)

下载附件

2025-6-11 20:42 上传

截图32位20250611084318.png (25.79 KB, 下载次数: 0)

下载附件

2025-6-11 20:42 上传

截图32位20250611084302.png (27.51 KB, 下载次数: 0)

下载附件

2025-6-11 20:42 上传

截图32位20250611084351.png (24.89 KB, 下载次数: 0)

下载附件

2025-6-11 20:42 上传

---

作者: 回忆10086    时间: 2025-6-11 20:46
沙发 沙发 大哥牛逼

---

作者: nihao6681    时间: 2025-6-11 21:28
感谢楼主分享

---

作者: happyweeks365    时间: 2025-6-11 21:34
666666666666666666

---

作者: jysoft2022    时间: 2025-6-11 21:37
谢谢分享

---

作者: happyweeks365    时间: 2025-6-11 21:40

happyweeks365 发表于 2025-6-11 21:34
666666666666666666

6666666666666666666666666

---

作者: yangxuan87    时间: 2025-6-11 22:00
666666666666666

---

作者: 鱼雨遇玉羽    时间: 2025-6-11 22:24
感谢分享

---

作者: 曦月    时间: 2025-6-11 22:33
又更新了吗？去瞅瞅看还能不能用

---

作者: qqmqqg    时间: 2025-6-11 23:25
66666666666666666

---

作者: 咔咔云    时间: 2025-6-12 00:44
感谢分享

---

作者: IIIllIIl    时间: 2025-6-12 02:41
感谢分享

---

作者: ZHuanR    时间: 2025-6-12 07:01
感谢分享

---

作者: 豆豆灰常开心    时间: 2025-6-12 07:15
全都是大佬~

---

作者: 查过    时间: 2025-6-12 07:19
感谢发布原创作品，精易因你更精彩！6666666666666

---

作者: futiem    时间: 2025-6-12 07:47
论坛的对接zc，发帖，登录 功能

---

作者: futiem    时间: 2025-6-12 07:47
发帖，登录 功能

---

作者: 杰西卡技术传媒    时间: 2025-6-12 09:02
感谢发布原创作品，精易因你更精彩！6666666666666

---

作者: 小虎来了    时间: 2025-6-12 09:12
感谢分享啊

---

作者: bianyuan456    时间: 2025-6-12 09:12
已经顶贴，感谢您对论坛的支持！

---

作者: Ps7isy    时间: 2025-6-12 09:19
感谢大佬

---

作者: wmv520    时间: 2025-6-12 09:48
        共同努力，共同进步

---

作者: 杨明煜    时间: 2025-6-12 10:41
支持一下，谢谢！......

---

作者: chenliben    时间: 2025-6-12 10:59
感谢分享   

---

作者: by百伯    时间: 2025-6-12 11:24
6666666              

---

作者: vc860    时间: 2025-6-12 12:34
蓝奏云直链解析

---

作者: 1486688956    时间: 2025-6-12 12:43

---

作者: gs438121    时间: 2025-6-12 19:23
蓝奏云直链解析

---

作者: kongdeyang    时间: 2025-6-13 03:50
666666666666666666666666666666666

---

作者: a243918356    时间: 2025-6-13 06:21
支持一下很不错！

---

作者: 豆豆灰常开心    时间: 2025-6-13 07:19
全都是大佬~

---

作者: 查过    时间: 2025-6-13 07:23
感谢分享，很给力！~

---

作者: 学习小米I    时间: 2025-6-13 16:10
感谢楼主分享。@@

---

作者: sostemp    时间: 2025-6-13 16:15
如果是分享的一个带密码的文件夹，怎么样获取文件列表后，下载指定文件？

---

作者: 斗战胜猴    时间: 2025-6-13 17:39

sostemp 发表于 2025-6-13 16:15
如果是分享的一个带密码的文件夹，怎么样获取文件列表后，下载指定文件？ ...

文件夹代码有点多懒得搞

  

子程序名	返回值类型	公开	备 注
取蓝奏云直链_文件夹	整数型		返回文件个数
参数名	类 型	参考	可空	数组	备 注
文件夹地址	文本型
密码	文本型
蓝奏云文件	蓝奏云文件
是否获取直链	逻辑型				获取到地址后，是否直接获取直链（会额外消耗时间），默认为假

变量名	类 型	静态	数组	备 注
协议头	类_POST数据类
网页内容	文本型
正则	正则表达式类
表单	类_POST表单
文本	文本型
表单数组	文本型		0
i	整数型
表单数据	文本型		0
json	类_Json
局蓝奏云主域名	文本型

局蓝奏云主域名 ＝ “https://www.” ＋ 取文本蓝奏云主域名 () ＋ “.com/”
协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”, )
网页内容 ＝ 编码_Utf8到Ansi (网页_访问_对象 (文件夹地址, 0, , , , 协议头.获取协议头数据 (), , , , , , , , ))
正则.创建 (“data : { [\s\S]*?}”, 网页内容, , , , )
文本 ＝ 正则.取匹配文本 (1, )
文本 ＝ 文本_删除空_彻底 (文本替换批量 (文本, , , , “data : {”, “”, “}”, “”, #换行符, “”, “ ”, “”, , ))  ' 剔除无用文本
分割文本寻找 (文本, “,”, 表单数组)
计次循环首 (取数组成员数 (表单数组), i)
清除数组 (表单数据)
分割文本寻找 (表单数组 [i], “:”, 表单数据)
如果真 (取数组成员数 (表单数据) ＝ 2)
判断 (子文本替换 (表单数据 [1], “'”, , , , 真) ＝ “pg”)
表单.添加表单 (“pg”, 子文本替换 (文本_取JS变量值 (网页内容, “pgs”), “'”, , , , 真))
判断 (子文本替换 (表单数据 [1], “'”, , , , 真) ＝ “t”)
表单.添加表单 (“t”, 子文本替换 (文本_取JS变量值 (网页内容, 表单数据 [2]), “'”, , , , 真))
判断 (子文本替换 (表单数据 [1], “'”, , , , 真) ＝ “k”)
表单.添加表单 (“k”, 子文本替换 (文本_取JS变量值 (网页内容, 表单数据 [2]), “'”, , , , 真))
如果真 (子文本替换 (表单数据 [1], “'”, , , , 真) ≠ “pwd”)
表单.添加表单 (子文本替换 (表单数据 [1], “'”, , , , 真), 子文本替换 (表单数据 [2], “'”, , , , 真))



计次循环尾 ()
表单.添加表单 (“pwd”, 密码)
网页内容 ＝ 编码_Utf8到Ansi (网页_访问_对象 (局蓝奏云主域名 ＋ “/filemoreajax.php”, 1, 表单.取表单文本 (), , , 协议头.获取协议头数据 (), , , , , , , , ))
json.解析 (网页内容, , )
重定义数组 (蓝奏云文件, 假, json.成员数 (“text”))
计次循环首 (json.成员数 (“text”), i)
i ＝ i － 1
蓝奏云文件 [i ＋ 1].文件名 ＝ json.取通用属性 (“text[” ＋ 到文本 (i) ＋ “].name_all”, )
蓝奏云文件 [i ＋ 1].文件类型 ＝ json.取通用属性 (“text[” ＋ 到文本 (i) ＋ “].icon”, )
蓝奏云文件 [i ＋ 1].存储时间 ＝ json.取通用属性 (“text[” ＋ 到文本 (i) ＋ “].time”, )
蓝奏云文件 [i ＋ 1].下载地址 ＝ 局蓝奏云主域名 ＋ json.取通用属性 (“text[” ＋ 到文本 (i) ＋ “].id”, )
如果真 (是否获取直链)
蓝奏云文件 [i ＋ 1].下载直链 ＝ 取文本蓝奏云直链解析密码 (蓝奏云文件 [i ＋ 1].下载地址)

计次循环尾 ()
返回 (取数组成员数 (蓝奏云文件))

子程序名	返回值类型	公开	备 注
文本_删除空_彻底	文本型		彻底删除一串文本中的空字符
参数名	类 型	参考	可空	数组	备 注
原文本	文本型

变量名	类 型	静态	数组	备 注
正则	正则表达式类
临时文本	文本型
i	整数型

' 第一次普通删除
原文本 ＝ 子文本替换 (原文本, “ ”, “”, , , 真)
原文本 ＝ 子文本替换 (原文本, #换行符, “”, , , 真)
' 第二次正则过滤
正则.创建 (“[^\s]+”, 原文本, , , , )
计次循环首 (正则.取匹配数量 (), i)
临时文本 ＝ 临时文本 ＋ 正则.取匹配文本 (i, )
计次循环尾 ()
返回 (临时文本)

子程序名	返回值类型	公开	备 注
文本_取索引	文本型		取一个文本在指定索引左/右的文本，索引不存在返回“”
参数名	类 型	参考	可空	数组	备 注
文本	文本型				原文本
索引	整数型				从第几个索引开始取不包括此索引
位置	整数型				0:取索引左边  1:取索引右边 2:取此索引

变量名	类 型	静态	数组	备 注
数组	文本型		0
i	整数型

分割文本逐字 (文本, 数组)
如果真 (索引 ＞ 取数组成员数 (数组) 或 索引 ≤ 0)
返回 (“”)
判断 (位置 ＝ 0)
返回 (GetStrLeft (文本, 数组 [索引]))
判断 (位置 ＝ 1)
返回 (GetStrRight (文本, 数组 [索引]))
返回 (数组 [索引])

子程序名	返回值类型	公开	备 注
文本_删除首个	文本型		删除文本中出现的第一个欲删除文本
参数名	类 型	参考	可空	数组	备 注
原文本	文本型				原文本
欲删除文本	文本型				欲删除文本
参_索引	整数型				从第几个索引开始,包括此索引

返回 (子文本替换 (原文本, 欲删除文本, , 参_索引, 1, 真))

子程序名	返回值类型	公开	备 注
文本_取JS变量值	文本型		只能获取基本变量值
参数名	类 型	参考	可空	数组	备 注
JS	文本型				JS格式的文本
变量名	文本型

变量名	类 型	静态	数组	备 注
正则	正则表达式类
变量表达式	文本型
变量值	文本型

正则.创建 (“(var )?” ＋ 变量名 ＋ “\s?=\s?.*;?”, JS, , , , )
变量表达式 ＝ 正则.取匹配文本 (正则.取匹配数量 (), )  ' 取最后一个匹配到的表达式
变量值 ＝ GetStrMid (变量表达式, “=”, “;”)
判断循环首 (文本_取索引 (变量值, 1, ) ＝ “ ”)
变量值 ＝ 文本_删除首个 (变量值, “ ”, )
判断循环尾 ()
返回 (变量值)

.版本 2<br /> <br /> .子程序 取蓝奏云直链_文件夹, 整数型, 公开, 返回文件个数<br /> .参数 文件夹地址, 文本型<br /> .参数 密码, 文本型, 可空<br /> .参数 蓝奏云文件, 蓝奏云文件, 参考 可空 数组<br /> .参数 是否获取直链, 逻辑型, 可空, 获取到地址后，是否直接获取直链（会额外消耗时间），默认为假<br /> .局部变量 协议头, 类_POST数据类<br /> .局部变量 网页内容, 文本型<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 表单, 类_POST表单<br /> .局部变量 文本, 文本型<br /> .局部变量 表单数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 表单数据, 文本型, , "0"<br /> .局部变量 json, 类_Json<br /> .局部变量 局蓝奏云主域名, 文本型<br /> <br /> 局蓝奏云主域名 ＝ “https://www.” ＋ 取文本蓝奏云主域名 () ＋ “.com/”<br /> 协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”, )<br /> 网页内容 ＝ 编码_Utf8到Ansi (网页_访问_对象 (文件夹地址, 0, , , , 协议头.获取协议头数据 (), , , , , , , , ))<br /> 正则.创建 (“data : { [\s\S]*?}”, 网页内容, , , , )<br /> 文本 ＝ 正则.取匹配文本 (1, )<br /> 文本 ＝ 文本_删除空_彻底 (文本替换批量 (文本, , , , “data : {”, “”, “}”, “”, #换行符, “”, “ ”, “”, , ))  ' 剔除无用文本<br /> 分割文本寻找 (文本, “,”, 表单数组)<br /> .计次循环首 (取数组成员数 (表单数组), i)<br />     清除数组 (表单数据)<br />     分割文本寻找 (表单数组 <i>, “:”, 表单数据)<br />     .如果真 (取数组成员数 (表单数据) ＝ 2)<br />         .判断开始 (子文本替换 (表单数据 [1], “'”, , , , 真) ＝ “pg”)<br />             表单.添加表单 (“pg”, 子文本替换 (文本_取JS变量值 (网页内容, “pgs”), “'”, , , , 真))<br />         .判断 (子文本替换 (表单数据 [1], “'”, , , , 真) ＝ “t”)<br />             表单.添加表单 (“t”, 子文本替换 (文本_取JS变量值 (网页内容, 表单数据 [2]), “'”, , , , 真))<br />         .判断 (子文本替换 (表单数据 [1], “'”, , , , 真) ＝ “k”)<br />             表单.添加表单 (“k”, 子文本替换 (文本_取JS变量值 (网页内容, 表单数据 [2]), “'”, , , , 真))<br />         .默认<br />             .如果真 (子文本替换 (表单数据 [1], “'”, , , , 真) ≠ “pwd”)<br />                 表单.添加表单 (子文本替换 (表单数据 [1], “'”, , , , 真), 子文本替换 (表单数据 [2], “'”, , , , 真))<br />             .如果真结束<br /> <br />         .判断结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 表单.添加表单 (“pwd”, 密码)<br /> 网页内容 ＝ 编码_Utf8到Ansi (网页_访问_对象 (局蓝奏云主域名 ＋ “/filemoreajax.php”, 1, 表单.取表单文本 (), , , 协议头.获取协议头数据 (), , , , , , , , ))<br /> json.解析 (网页内容, , )<br /> 重定义数组 (蓝奏云文件, 假, json.成员数 (“text”))<br /> .计次循环首 (json.成员数 (“text”), i)<br />     i ＝ i － 1<br />     蓝奏云文件 [i ＋ 1].文件名 ＝ json.取通用属性 (“text[” ＋ 到文本 (i) ＋ “].name_all”, )<br />     蓝奏云文件 [i ＋ 1].文件类型 ＝ json.取通用属性 (“text[” ＋ 到文本 (i) ＋ “].icon”, )<br />     蓝奏云文件 [i ＋ 1].存储时间 ＝ json.取通用属性 (“text[” ＋ 到文本 (i) ＋ “].time”, )<br />     蓝奏云文件 [i ＋ 1].下载地址 ＝ 局蓝奏云主域名 ＋ json.取通用属性 (“text[” ＋ 到文本 (i) ＋ “].id”, )<br />     .如果真 (是否获取直链)<br />         蓝奏云文件 [i ＋ 1].下载直链 ＝ 取文本蓝奏云直链解析密码 (蓝奏云文件 [i ＋ 1].下载地址)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (取数组成员数 (蓝奏云文件))<br /> .版本 2<br /> <br /> .子程序 文本_删除空_彻底, 文本型, 公开, 彻底删除一串文本中的空字符<br /> .参数 原文本, 文本型<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 临时文本, 文本型<br /> .局部变量 i, 整数型<br /> <br /> ' 第一次普通删除<br /> 原文本 ＝ 子文本替换 (原文本, “ ”, “”, , , 真)<br /> 原文本 ＝ 子文本替换 (原文本, #换行符, “”, , , 真)<br /> ' 第二次正则过滤<br /> 正则.创建 (“[^\s]+”, 原文本, , , , )<br /> .计次循环首 (正则.取匹配数量 (), i)<br />     临时文本 ＝ 临时文本 ＋ 正则.取匹配文本 (i, )<br /> .计次循环尾 ()<br /> 返回 (临时文本)<br /> .版本 2<br /> <br /> .子程序 文本_取索引, 文本型, 公开, 取一个文本在指定索引左/右的文本，索引不存在返回“”<br /> .参数 文本, 文本型, , 原文本<br /> .参数 索引, 整数型, , 从第几个索引开始取不包括此索引<br /> .参数 位置, 整数型, 可空, 0:取索引左边  1:取索引右边 2:取此索引<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 分割文本逐字 (文本, 数组)<br /> .如果真 (索引 ＞ 取数组成员数 (数组) 或 索引 ≤ 0)<br />     返回 (“”)<br /> .如果真结束<br /> .判断开始 (位置 ＝ 0)<br />     返回 (GetStrLeft (文本, 数组 [索引]))<br /> .判断 (位置 ＝ 1)<br />     返回 (GetStrRight (文本, 数组 [索引]))<br /> .默认<br />     返回 (数组 [索引])<br /> .判断结束<br /> <br /> <br /> .子程序 文本_删除首个, 文本型, 公开, 删除文本中出现的第一个欲删除文本<br /> .参数 原文本, 文本型, , 原文本<br /> .参数 欲删除文本, 文本型, , 欲删除文本<br /> .参数 参_索引, 整数型, 可空, 从第几个索引开始,包括此索引<br /> <br /> 返回 (子文本替换 (原文本, 欲删除文本, , 参_索引, 1, 真))<br /> <br /> .子程序 文本_取JS变量值, 文本型, 公开, 只能获取基本变量值<br /> .参数 JS, 文本型, , JS格式的文本<br /> .参数 变量名, 文本型<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 变量表达式, 文本型<br /> .局部变量 变量值, 文本型<br /> <br /> 正则.创建 (“(var )?” ＋ 变量名 ＋ “\s?=\s?.*;?”, JS, , , , )<br /> 变量表达式 ＝ 正则.取匹配文本 (正则.取匹配数量 (), )  ' 取最后一个匹配到的表达式<br /> 变量值 ＝ GetStrMid (变量表达式, “=”, “;”)<br /> .判断循环首 (文本_取索引 (变量值, 1, ) ＝ “ ”)<br />     变量值 ＝ 文本_删除首个 (变量值, “ ”, )<br /> .判断循环尾 ()<br /> 返回 (变量值)

截图32位20250613053021.png (26.81 KB, 下载次数: 0)

下载附件

2025-6-13 17:35 上传

---

作者: by百伯    时间: 2025-6-15 10:13

---

作者: leemu8m    时间: 2025-6-15 10:49
123123123123

---

作者: tonc    时间: 2025-6-15 13:17
互相讨论，共同进步，知识共享，大家一起！

---

作者: shuoyiju520    时间: 2025-6-16 00:07

---

作者: firstcmm    时间: 2025-6-16 15:16
目前论坛没一个能解析我的蓝奏云，试试这个行不行

---

作者: scv    时间: 2025-6-16 15:53
感谢分享，很给力！~

---

作者: li6601350    时间: 2025-6-16 18:21
感谢分享

---

作者: P歪工作室    时间: 2025-6-16 20:32
感谢大佬分享，学习一下

---

作者: P歪工作室    时间: 2025-6-16 20:43
可以用，感谢大佬分享

---

作者: Q3375840759    时间: 2025-6-16 22:39
666666666666666666666666666666

---

作者: 苏先生的小码屋    时间: 2025-6-17 20:33
666666666666666666666666666

---

作者: saosao    时间: 2025-6-17 20:53
感谢分享啊

---

作者: shj0205    时间: 2025-6-18 09:43
支持！！！

---

作者: 893431707    时间: 2025-6-19 11:54

---

作者: yixuanmobile    时间: 2025-6-20 20:15
蓝奏云直链解析 [

---

作者: 轩殇吖    时间: 2025-6-20 22:57
看看111111111111111111111111111

---

作者: kfanghong    时间: 2025-6-21 00:41
E: 蓝奏云直链解析 [修改]

---

作者: 小神155    时间: 2025-6-22 08:32
213131221333333333

---

作者: ruanmeizi6    时间: 2025-6-22 18:00
已经顶贴，感谢您对论坛的支持！

---

作者: 门童    时间: 2025-6-22 23:25

---

作者: 奕叶i    时间: 2025-6-23 17:03
666666666666666666666666

---

作者: w2808    时间: 2025-6-23 21:40

---

作者: 学会面对    时间: 2025-6-24 11:59

---

作者: zhang532883477    时间: 2025-6-24 15:22
快快快快快快

---

作者: shuai7123    时间: 2025-6-25 09:44
感谢楼主分享！

---

作者: 西瓜仔    时间: 2025-6-26 02:10
6666666666666

---

作者: asd240    时间: 2025-6-26 20:13
6666666666666666666666666666

---

作者: tuoyouchuan    时间: 7 天前
66666666666666666666

---

作者: ytbihay    时间: 7 天前
兄弟，可以搞一个文件夹下载吗

---

作者: djchat    时间: 7 天前
如果您要查看本帖隐藏内容请

---

作者: 896965691    时间: 7 天前
可以，不错，支持一波

---

作者: なす随风ぬね    时间: 6 天前
不错，支持一波

---

作者: 按键大师    时间: 6 天前
6666666666666666666666666666666666666666

---

作者: 花小旭    时间: 6 天前
支持支持

---

作者: 华武    时间: 5 天前
收藏一个

---

作者: 辉辉回    时间: 5 天前
666666666666666666666666666666666666

---

作者: sky122    时间: 5 天前
感谢分享、

---

作者: 无敌的寂寞    时间: 4 天前
好像挺厉害

---

作者: 拧紧    时间: 4 天前
        共同努力，共同进步

---

作者: 魁啊啊    时间: 4 天前
66666666666666666666

---

作者: 357106660    时间: 4 天前
调用了 编码_Utf8到Ansi

---

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

Powered by Discuz! X3.4