蓝奏云_取直链_有密码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”))

qi9074

可以一直解析到最后一级真实直连

xuanwuyue

可以用!赞

财通天地

谢谢分享，可以使用~~~~

紫色阳光

66666666666666666666666666

haiyiang22

给老乡点个赞

18671679949

好东西，不知道还能不能用

大呲花哟

老哥易语言什么字体能分享一下吗

猪滴寳貝哝

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

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

远航网络

昨天还行，今天失效了