精易论坛

标题: 蓝奏云_取直链_有密码Ex [打印本页]

---

作者: 猪滴寳貝哝    时间: 2023-11-1 03:27
标题: 蓝奏云_取直链_有密码Ex
刚刚看到易友发布的：蓝奏云取直链存在问题，修正一下。代码如下，没有做极限优化，功能保证目前没问题。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文件名	文本型

调试输出 (蓝奏云_取直链_有密码Ex (“https://tgif.lanzouw.com/b029dmp8f”, “520”, 文件名), 文件名)
调试输出 (蓝奏云_取直链_有密码Ex (“https://police.lanzoue.com/iMv1l0ld6wib”, “euss”, 文件名), 文件名)

子程序名	返回值类型	公开	备 注
蓝奏云_取直链_有密码Ex	文本型
参数名	类 型	参考	可空	数组	备 注
网址	文本型
密码	文本型
文件名	文本型

变量名	类 型	静态	数组	备 注
k	文本型
t	文本型
fn	文本型
id	文本型
ls	文本型
pg	文本型
lx	文本型
up	文本型
ves	文本型
rep	文本型
fid	文本型
uid	文本型
pwd	文本型
Url	文本型
sign	文本型
signs	文本型
action	文本型
websign	文本型
websignkey	文本型
正则	正则表达式类
域名	文本型
协议头	文本型
src数组	文本型		0
网页源码	文本型
post数据	文本型

正则.创建 (“[a-zA-z]+://[a-zA-Z0-9][-a-zA-Z0-9]{0,62}(\.[a-zA-Z0-9][-a-zA-Z0-9]{0,62})+\.?”, 网址, , , , )
域名 ＝ 正则.取匹配文本 (1, )
协议头 ＝ “User-Agent: Mozilla/5.0 (Windows NT 12.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36” ＋ #换行符 ＋ “referer: ” ＋ 域名
网页源码 ＝ 编码_Utf8到Ansi (网页_访问_对象 (网址, 0, , , , 协议头, , , , , , , , , , , , , ))
如果真 (网页源码 ＝ “”)
返回 (“”)
正则.创建 (“action=(.*?)&sign=(.{10,}?)&p=”, 网页源码, , , , )
action ＝ 正则.取子匹配文本 (1, 1, )
sign ＝ 正则.取子匹配文本 (1, 2, )
如果真 (action ＝ “”)
action ＝ “downprocess”
如果真 (sign ＝ “” 或 取文本长度 (sign) ＜ 70)
正则.创建 (“[0-9a-zA-Z\_]{70,}”, 网页源码, , , , )
sign ＝ 正则.取匹配文本 (1, )
如果真 (sign ＝ “”)
k ＝ 文本_取出中间文本 (网页源码, “k':”, “,”, , )
k ＝ 文本_取出中间文本 (网页源码, k ＋ “ = '”, “';”, , )
t ＝ 文本_取出中间文本 (网页源码, “t':”, “,”, , )
t ＝ 文本_取出中间文本 (网页源码, t ＋ “ = '”, “';”, , )
rep ＝ 文本_取出中间文本 (网页源码, “rep':'”, “',”, , )
lx ＝ 文本_取出中间文本 (网页源码, “lx':”, “,”, , )
fid ＝ 文本_取出中间文本 (网页源码, “fid':”, “,”, , )
uid ＝ 文本_取出中间文本 (网页源码, “uid':'”, “',”, , )
up ＝ 文本_取出中间文本 (网页源码, “up':”, “,”, , )
ls ＝ 文本_取出中间文本 (网页源码, “ls':”, “,”, , )
pg ＝ 文本_取出中间文本 (网页源码, “pgs =”, “;”, , )
pwd ＝ 密码
post数据 ＝ “lx=” ＋ lx ＋ “&fid=” ＋ fid ＋ “&uid=” ＋ uid ＋ “&pg=” ＋ pg ＋ “&rep=” ＋ rep ＋ “&t=” ＋ t ＋ “&k=” ＋ k ＋ “&up=” ＋ up ＋ “&ls=” ＋ ls ＋ “&pwd=” ＋ pwd
网页源码 ＝ 编码_Utf8到Ansi (网页_访问_对象 (域名 ＋ “/filemoreajax.php”, 1, post数据, , , 协议头, , , , , , , , , , , , , ))
如果真 (网页源码 ＝ “”)
返回 (“”)
id ＝ 文本_取出中间文本 (网页源码, “id” ＋ #引号 ＋ “:” ＋ #引号 ＋ “”, “” ＋ #引号 ＋ “,”, , )
文件名 ＝ 编码_usc2到ansi (文本_取出中间文本 (网页源码, “name_all” ＋ #引号 ＋ “:” ＋ #引号 ＋ “”, “” ＋ #引号 ＋ “,”, , ))
网页源码 ＝ 编码_Utf8到Ansi (网页_访问_对象 (域名 ＋ “/” ＋ id, 0, , , , 协议头, , , , , , , , , , , , , ))
如果真 (网页源码 ＝ “”)
返回 (“”)
如果真 (文本_分割文本 (文本_取出中间文本 (网页源码, “src=” ＋ #引号 ＋ “/fn?”, “_c_c” ＋ #引号, , ), “src=” ＋ #引号 ＋ “/fn?”, , src数组) ＞ 0)
fn ＝ “/fn?” ＋ src数组 [取数组成员数 (src数组)] ＋ “_c_c”
如果真 (fn ＝ “”)
返回 (“”)
网页源码 ＝ 编码_Utf8到Ansi (网页_访问_对象 (域名 ＋ “/” ＋ fn, , , , , 协议头, , , , , , , , , , , , , ))
action ＝ 文本_取出中间文本 (网页源码, “action':'”, “',”, , )
sign ＝ 文本_取出中间文本 (网页源码, “sign':'”, “',”, , )
signs ＝ 文本_取出中间文本 (网页源码, “signs':”, “,”, , )
signs ＝ 文本_取出中间文本 (网页源码, signs ＋ “ = '”, “';”, , )
websign ＝ 文本_取出中间文本 (网页源码, “websign':”, “,”, , )
websign ＝ 文本_取出中间文本 (网页源码, websign ＋ “ = '”, “';”, , )
websignkey ＝ 文本_取出中间文本 (网页源码, “websignkey':”, “,”, , )
websignkey ＝ 文本_取出中间文本 (网页源码, websignkey ＋ “ = '”, “';”, , )
ves ＝ 文本_取出中间文本 (网页源码, “ves':”, “ }”, , )
post数据 ＝ “action=” ＋ action ＋ “&sign=” ＋ sign ＋ “&signs=” ＋ signs ＋ “&websign=” ＋ websign ＋ “&websignkey=” ＋ websignkey ＋ “&ves=” ＋ ves
网页源码 ＝ 编码_Utf8到Ansi (网页_访问_对象 (域名 ＋ “//ajaxm.php”, 1, post数据, , , 协议头, , , , , , , , , , , , , ))
如果真 (网页源码 ＝ “”)
返回 (“”)
Url ＝ 文本_取出中间文本 (网页源码, “dom” ＋ #引号 ＋ “:” ＋ #引号 ＋ “”, “” ＋ #引号 ＋ “,”, , ) ＋ “/file/” ＋ 文本_取出中间文本 (网页源码, “url” ＋ #引号 ＋ “:” ＋ #引号, #引号, , )
Url ＝ 子文本替换 (Url, “\”, “”, , , 真)
Url ＝ 取跳转的最终地址 (Url)
返回 (Url)

网页源码 ＝ 到文本 (网页_访问_对象 (域名 ＋ “/ajaxm.php”, 1, “action=” ＋ action ＋ “&sign=” ＋ sign ＋ “&p=” ＋ 密码, , , 协议头, , , , , , , , , , , , , ))
如果真 (网页源码 ＝ “”)
返回 (“”)
Url ＝ 文本_取出中间文本 (网页源码, “dom” ＋ #引号 ＋ “:” ＋ #引号 ＋ “”, “” ＋ #引号 ＋ “,”, , ) ＋ “/file/” ＋ 文本_取出中间文本 (网页源码, “url” ＋ #引号 ＋ “:” ＋ #引号, #引号, , )
Url ＝ 子文本替换 (Url, “\”, “”, , , 真)
文件名 ＝ 文本_取出中间文本 (网页源码, “inf” ＋ #引号 ＋ “:” ＋ #引号 ＋ “”, #引号, , )
Url ＝ 取跳转的最终地址 (Url)
返回 (Url)

子程序名	返回值类型	公开	备 注
取跳转的最终地址	文本型
参数名	类 型	参考	可空	数组	备 注
Url	文本型

变量名	类 型	静态	数组	备 注
返回协议头	文本型

网页_访问_对象 (Url, 1, , , , , 返回协议头, , 真, , , , , , , , , , )
返回 (网页_协议头_取信息 (返回协议头, “Location”))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文件名, 文本型<br /> <br /> 调试输出 (蓝奏云_取直链_有密码Ex (“https://tgif.lanzouw.com/b029dmp8f”, “520”, 文件名), 文件名)<br /> 调试输出 (蓝奏云_取直链_有密码Ex (“https://police.lanzoue.com/iMv1l0ld6wib”, “euss”, 文件名), 文件名)<br /> <br /> .子程序 蓝奏云_取直链_有密码Ex, 文本型, 公开<br /> .参数 网址, 文本型<br /> .参数 密码, 文本型<br /> .参数 文件名, 文本型, 参考<br /> .局部变量 k, 文本型<br /> .局部变量 t, 文本型<br /> .局部变量 fn, 文本型<br /> .局部变量 id, 文本型<br /> .局部变量 ls, 文本型<br /> .局部变量 pg, 文本型<br /> .局部变量 lx, 文本型<br /> .局部变量 up, 文本型<br /> .局部变量 ves, 文本型<br /> .局部变量 rep, 文本型<br /> .局部变量 fid, 文本型<br /> .局部变量 uid, 文本型<br /> .局部变量 pwd, 文本型<br /> .局部变量 Url, 文本型<br /> .局部变量 sign, 文本型<br /> .局部变量 signs, 文本型<br /> .局部变量 action, 文本型<br /> .局部变量 websign, 文本型<br /> .局部变量 websignkey, 文本型<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 域名, 文本型<br /> .局部变量 协议头, 文本型<br /> .局部变量 src数组, 文本型, , "0"<br /> .局部变量 网页源码, 文本型<br /> .局部变量 post数据, 文本型<br /> <br /> 正则.创建 (“[a-zA-z]+://[a-zA-Z0-9][-a-zA-Z0-9]{0,62}(\.[a-zA-Z0-9][-a-zA-Z0-9]{0,62})+\.?”, 网址, , , , )<br /> 域名 ＝ 正则.取匹配文本 (1, )<br /> 协议头 ＝ “User-Agent: Mozilla/5.0 (Windows NT 12.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36” ＋ #换行符 ＋ “referer: ” ＋ 域名<br /> 网页源码 ＝ 编码_Utf8到Ansi (网页_访问_对象 (网址, 0, , , , 协议头, , , , , , , , , , , , , ))<br /> .如果真 (网页源码 ＝ “”)<br />     返回 (“”)<br /> .如果真结束<br /> 正则.创建 (“action=(.*?)&sign=(.{10,}?)&p=”, 网页源码, , , , )<br /> action ＝ 正则.取子匹配文本 (1, 1, )<br /> sign ＝ 正则.取子匹配文本 (1, 2, )<br /> .如果真 (action ＝ “”)<br />     action ＝ “downprocess”<br /> .如果真结束<br /> .如果真 (sign ＝ “” 或 取文本长度 (sign) ＜ 70)<br />     正则.创建 (“[0-9a-zA-Z\_]{70,}”, 网页源码, , , , )<br />     sign ＝ 正则.取匹配文本 (1, )<br />     .如果真 (sign ＝ “”)<br />         k ＝ 文本_取出中间文本 (网页源码, “k':”, “,”, , )<br />         k ＝ 文本_取出中间文本 (网页源码, k ＋ “ = '”, “';”, , )<br />         t ＝ 文本_取出中间文本 (网页源码, “t':”, “,”, , )<br />         t ＝ 文本_取出中间文本 (网页源码, t ＋ “ = '”, “';”, , )<br />         rep ＝ 文本_取出中间文本 (网页源码, “rep':'”, “',”, , )<br />         lx ＝ 文本_取出中间文本 (网页源码, “lx':”, “,”, , )<br />         fid ＝ 文本_取出中间文本 (网页源码, “fid':”, “,”, , )<br />         uid ＝ 文本_取出中间文本 (网页源码, “uid':'”, “',”, , )<br />         up ＝ 文本_取出中间文本 (网页源码, “up':”, “,”, , )<br />         ls ＝ 文本_取出中间文本 (网页源码, “ls':”, “,”, , )<br />         pg ＝ 文本_取出中间文本 (网页源码, “pgs =”, “;”, , )<br />         pwd ＝ 密码<br />         post数据 ＝ “lx=” ＋ lx ＋ “&fid=” ＋ fid ＋ “&uid=” ＋ uid ＋ “&pg=” ＋ pg ＋ “&rep=” ＋ rep ＋ “&t=” ＋ t ＋ “&k=” ＋ k ＋ “&up=” ＋ up ＋ “&ls=” ＋ ls ＋ “&pwd=” ＋ pwd<br />         网页源码 ＝ 编码_Utf8到Ansi (网页_访问_对象 (域名 ＋ “/filemoreajax.php”, 1, post数据, , , 协议头, , , , , , , , , , , , , ))<br />         .如果真 (网页源码 ＝ “”)<br />             返回 (“”)<br />         .如果真结束<br />         id ＝ 文本_取出中间文本 (网页源码, “id” ＋ #引号 ＋ “:” ＋ #引号 ＋ “”, “” ＋ #引号 ＋ “,”, , )<br />         文件名 ＝ 编码_usc2到ansi (文本_取出中间文本 (网页源码, “name_all” ＋ #引号 ＋ “:” ＋ #引号 ＋ “”, “” ＋ #引号 ＋ “,”, , ))<br />         网页源码 ＝ 编码_Utf8到Ansi (网页_访问_对象 (域名 ＋ “/” ＋ id, 0, , , , 协议头, , , , , , , , , , , , , ))<br />         .如果真 (网页源码 ＝ “”)<br />             返回 (“”)<br />         .如果真结束<br />         .如果真 (文本_分割文本 (文本_取出中间文本 (网页源码, “src=” ＋ #引号 ＋ “/fn?”, “_c_c” ＋ #引号, , ), “src=” ＋ #引号 ＋ “/fn?”, , src数组) ＞ 0)<br />             fn ＝ “/fn?” ＋ src数组 [取数组成员数 (src数组)] ＋ “_c_c”<br />         .如果真结束<br />         .如果真 (fn ＝ “”)<br />             返回 (“”)<br />         .如果真结束<br />         网页源码 ＝ 编码_Utf8到Ansi (网页_访问_对象 (域名 ＋ “/” ＋ fn, , , , , 协议头, , , , , , , , , , , , , ))<br />         action ＝ 文本_取出中间文本 (网页源码, “action':'”, “',”, , )<br />         sign ＝ 文本_取出中间文本 (网页源码, “sign':'”, “',”, , )<br />         signs ＝ 文本_取出中间文本 (网页源码, “signs':”, “,”, , )<br />         signs ＝ 文本_取出中间文本 (网页源码, signs ＋ “ = '”, “';”, , )<br />         websign ＝ 文本_取出中间文本 (网页源码, “websign':”, “,”, , )<br />         websign ＝ 文本_取出中间文本 (网页源码, websign ＋ “ = '”, “';”, , )<br />         websignkey ＝ 文本_取出中间文本 (网页源码, “websignkey':”, “,”, , )<br />         websignkey ＝ 文本_取出中间文本 (网页源码, websignkey ＋ “ = '”, “';”, , )<br />         ves ＝ 文本_取出中间文本 (网页源码, “ves':”, “ }”, , )<br />         post数据 ＝ “action=” ＋ action ＋ “&sign=” ＋ sign ＋ “&signs=” ＋ signs ＋ “&websign=” ＋ websign ＋ “&websignkey=” ＋ websignkey ＋ “&ves=” ＋ ves<br />         网页源码 ＝ 编码_Utf8到Ansi (网页_访问_对象 (域名 ＋ “//ajaxm.php”, 1, post数据, , , 协议头, , , , , , , , , , , , , ))<br />         .如果真 (网页源码 ＝ “”)<br />             返回 (“”)<br />         .如果真结束<br />         Url ＝ 文本_取出中间文本 (网页源码, “dom” ＋ #引号 ＋ “:” ＋ #引号 ＋ “”, “” ＋ #引号 ＋ “,”, , ) ＋ “/file/” ＋ 文本_取出中间文本 (网页源码, “url” ＋ #引号 ＋ “:” ＋ #引号, #引号, , )<br />         Url ＝ 子文本替换 (Url, “\”, “”, , , 真)<br />         Url ＝ 取跳转的最终地址 (Url)<br />         返回 (Url)<br />     .如果真结束<br /> <br /> .如果真结束<br /> 网页源码 ＝ 到文本 (网页_访问_对象 (域名 ＋ “/ajaxm.php”, 1, “action=” ＋ action ＋ “&sign=” ＋ sign ＋ “&p=” ＋ 密码, , , 协议头, , , , , , , , , , , , , ))<br /> .如果真 (网页源码 ＝ “”)<br />     返回 (“”)<br /> .如果真结束<br /> Url ＝ 文本_取出中间文本 (网页源码, “dom” ＋ #引号 ＋ “:” ＋ #引号 ＋ “”, “” ＋ #引号 ＋ “,”, , ) ＋ “/file/” ＋ 文本_取出中间文本 (网页源码, “url” ＋ #引号 ＋ “:” ＋ #引号, #引号, , )<br /> Url ＝ 子文本替换 (Url, “\”, “”, , , 真)<br /> 文件名 ＝ 文本_取出中间文本 (网页源码, “inf” ＋ #引号 ＋ “:” ＋ #引号 ＋ “”, #引号, , )<br /> Url ＝ 取跳转的最终地址 (Url)<br /> 返回 (Url)<br /> <br /> .子程序 取跳转的最终地址, 文本型<br /> .参数 Url, 文本型<br /> .局部变量 返回协议头, 文本型<br /> <br /> 网页_访问_对象 (Url, 1, , , , , 返回协议头, , 真, , , , , , , , , , )<br /> 返回 (网页_协议头_取信息 (返回协议头, “Location”))

---

作者: 396384183    时间: 2023-11-1 07:47
蓝奏云_取直链

---

作者: 查过    时间: 2023-11-1 07:57
感谢分享，很给力！~

---

作者: 豆豆灰常开心    时间: 2023-11-1 08:02
已经顶贴，感谢您对论坛的支持！

---

作者: 美味萝卜    时间: 2023-11-1 08:37
感谢分享，很给力！~

---

作者: 一指温柔    时间: 2023-11-1 08:50
感谢分享，很给力！~

---

作者: fastdao    时间: 2023-11-1 09:38

感谢分享，很给力！~

---

作者: weihua2018    时间: 2023-11-1 13:06
优化啥了？

---

作者: pipicool    时间: 2023-11-1 15:31
学习一下

---

作者: ZHuanR    时间: 2023-11-1 17:57
新技能已get√

---

作者: Anleton    时间: 2023-11-1 21:09
谢谢提供，学习一下

---

作者: bianyuan456    时间: 2023-11-1 22:48
已经顶贴，感谢您对论坛的支持！

---

作者: 果心豆腐酱    时间: 2023-11-2 03:37

weihua2018 发表于 2023-11-1 13:06
优化啥了？

好像是补充了取重定向地址

---

作者: AdGame    时间: 2023-11-2 04:03
错误(10044): 不能将“文本型 数组”数据转换到“整数型”数据。
报错？？？

---

作者: zaozi    时间: 2023-11-2 06:50
支持开源~！感谢分享

---

作者: 查过    时间: 2023-11-2 07:09
感谢发布原创作品，精易因你更精彩！6666666666666

---

作者: 豆豆灰常开心    时间: 2023-11-2 07:13
已经顶贴，感谢您对论坛的支持！

---

作者: 一指温柔    时间: 2023-11-2 08:36
感谢分享

---

作者: 3037093636    时间: 2023-11-2 14:19
已经顶贴，感谢您对论坛的支持！

---

作者: heiioxiaojian    时间: 2023-11-2 15:08
开源精神必须支持~

---

作者: tsf521    时间: 2023-11-2 19:19
开源精神必须支持~

---

作者: 还要有你    时间: 2023-11-2 21:16
开源精神必须支持~

---

作者: po1718    时间: 2023-11-3 09:26
开源精神必须支持~

---

作者: 胖子葛格    时间: 2023-11-3 13:49
感谢大神分享~！

---

作者: 忧郁之子    时间: 2023-11-3 22:51
谢谢分享，支持一下

---

作者: twttak    时间: 2023-11-4 03:55
不错,要谢谢楼主

---

作者: leige0921    时间: 2023-11-4 15:13
感谢分享

---

作者: 左舒澈    时间: 2023-11-10 14:40
已经顶贴，感谢您对论坛的支持！

---

作者: 南黎    时间: 2024-1-5 18:04
请问30mb的文件支持吗?  有时候大文件单独一个文件的密码的```请问这种有办法解析吗?

---

作者: shmily1    时间: 2024-4-9 19:53
看起来不错

---

作者: 与你共舞    时间: 2024-5-28 14:17

支持开源~！感谢分享

---

作者: 远航网络    时间: 2024-5-29 14:53
昨天还行，今天失效了

---

作者: 猪滴寳貝哝    时间: 2024-5-30 05:03

远航网络 发表于 2024-5-29 14:53
昨天还行，今天失效了

没失效啊，请检查一下分享链接是否失效~

---

作者: 大呲花哟    时间: 2024-8-9 03:12
老哥易语言什么字体能分享一下吗

---

作者: 18671679949    时间: 2024-8-10 14:57
好东西，不知道还能不能用

---

作者: haiyiang22    时间: 2024-8-16 00:21
给老乡点个赞

---

作者: 紫色阳光    时间: 2024-8-28 22:28
66666666666666666666666666

---

作者: 财通天地    时间: 2024-8-30 20:22
谢谢分享，可以使用~~~~

---

作者: xuanwuyue    时间: 2024-9-4 19:36
可以用!赞

---

作者: qi9074    时间: 2024-10-26 08:51
可以一直解析到最后一级真实直连

---

作者: e语言小蛋    时间: 2024-12-3 23:10
感谢分享

---

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

Powered by Discuz! X3.4