蓝奏云直链解析

by百伯

斗战胜猴

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 /> 返回 (变量值)

sostemp

如果是分享的一个带密码的文件夹，怎么样获取文件列表后，下载指定文件？

学习小米I

感谢楼主分享。@@

查过

感谢分享，很给力！~

豆豆灰常开心

全都是大佬~

a243918356

支持一下很不错！

kongdeyang

666666666666666666666666666666666

gs438121

蓝奏云直链解析

1486688956