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

shmily1

看起来不错

南黎

请问30mb的文件支持吗?  有时候大文件单独一个文件的密码的```请问这种有办法解析吗?

左舒澈

已经顶贴，感谢您对论坛的支持！

leige0921

感谢分享

twttak

不错,要谢谢楼主

忧郁之子

谢谢分享，支持一下

胖子葛格

感谢大神分享~！

po1718

开源精神必须支持~

还要有你

开源精神必须支持~