蓝奏云解析(支持密码)

HEZ小白

使用了两个模块
      模块1精易模块的类_json
      模块2鱼刺类.HTTP的WinHttpR和正则表达式


子程序支持密码和无密码解析(代码已自动301跳转)

  

子程序名	返回值类型	公开	备 注
蓝奏云解析	文本型
参数名	类 型	参考	可空	数组	备 注
Url	文本型
Pwd	文本型

变量名	类 型	静态	数组	备 注
Http	WinHttpR
Return	文本型
正则	正则表达式
Header	文本型
Data	文本型
sign	文本型
websignkey	文本型
signs	文本型
Json	类_json
Origin	文本型

Http.Open (“GET”, Url, )
Http.SetRequestHeaders (“User-Agent:Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36 Edg/120.0.0.0”)
Http.Send ()
如果真 (Http.GetStatus () ＝ 301)
Url ＝ Http.GetResponseLocation ()
Http.Open (“GET”, Url, )
Http.SetRequestHeaders (“User-Agent:Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36 Edg/120.0.0.0”)
Http.Send ()
Return ＝ Http.GetResponseText_old ()
Origin ＝ 文本_取左边 (Url, “/” ＋ 文本_取右边 (Url, “/”, , ), , )
如果 (寻找文本 (Return, “输入密码”, , 假) ≠ -1)
如果真 (Pwd ＝ “”)
返回 (“请输入密码”)
sign ＝ 文本_取出中间文本 (Return, “skdklds = '”, “';”, , )
Data ＝ “action=downprocess&sign=” ＋ sign ＋ “&p=” ＋ Pwd
Http.Open (“POST”, Origin ＋ “/ajaxm.php”, )
Header ＝ “Accept: application/json, text/javascript, */*” ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded” ＋ #换行符 ＋ “Host: pan.lanzoui.com” ＋ #换行符 ＋ “Origin: ” ＋ Origin ＋ #换行符 ＋ “Referer: ” ＋ Url ＋ #换行符 ＋ “User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36 Edg/120.0.0.0”
Http.SetRequestHeaders (Header)
Http.Send (Data)
Return ＝ Http.GetResponseText_old ()
正则.创建 (“src=” ＋ #引号 ＋ “(.*?)” ＋ #引号, , , )
正则.搜索全部 (Return)
Url ＝ 文本_取左边 (Url, “/” ＋ 文本_取右边 (Url, “/”, , ), , ) ＋ 正则.取子匹配文本 (2, 1)
Http.Open (“GET”, Url, )
Http.SetRequestHeaders (“User-Agent:Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36 Edg/120.0.0.0”)
Http.Send ()
Return ＝ Http.GetResponseText_old ()
sign ＝ 文本_取出中间文本 (Return, “sign':'”, “','”, , )
websignkey ＝ 文本_取出中间文本 (Return, “aihidcms = '”, “';”, , )
signs ＝ 文本_取出中间文本 (Return, “ajaxdata = '?”, “';”, , )
Data ＝ “action=downprocess&signs=%3F” ＋ signs ＋ “&sign=” ＋ sign ＋ “&websign=&websignkey=” ＋ websignkey ＋ “&ves=1”
Http.Open (“POST”, “https://pan.lanzoui.com/ajaxm.php”, )
Header ＝ “Accept: application/json, text/javascript, */*” ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded” ＋ #换行符 ＋ “Host: pan.lanzoui.com” ＋ #换行符 ＋ “Origin: ” ＋ Origin ＋ #换行符 ＋ “Referer: ” ＋ Url ＋ #换行符 ＋ “User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36 Edg/120.0.0.0”
Http.SetRequestHeaders (Header)
Http.Send (Data)
Return ＝ Http.GetResponseText_old ()
Json.解析 (Return, , )
如果真 (到整数 (Json.取通用属性 (“zt”, )) ＝ 0)
返回 (Json.取通用属性 (“inf”, ))
Http.Open (“GET”, Json.取通用属性 (“dom”, ) ＋ “/file/” ＋ Json.取通用属性 (“url”, ), )
Http.SetRequestHeaders (“Accept-Language: zh-CN,zh;q=0.9,en;q=0.8,en-GB;q=0.7,en-US;q=0.6”)
Http.SetRequestHeaders (“User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36 Edg/120.0.0.0”)
Http.Send ()
返回 (Http.GetResponseLocation ())

.版本 2<br /> <br /> .子程序 蓝奏云解析, 文本型, 公开<br /> .参数 Url, 文本型<br /> .参数 Pwd, 文本型, 可空<br /> .局部变量 Http, WinHttpR<br /> .局部变量 Return, 文本型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 Header, 文本型<br /> .局部变量 Data, 文本型<br /> .局部变量 sign, 文本型<br /> .局部变量 websignkey, 文本型<br /> .局部变量 signs, 文本型<br /> .局部变量 Json, 类_json<br /> .局部变量 Origin, 文本型<br /> <br /> Http.Open (“GET”, Url, )<br /> Http.SetRequestHeaders (“User-Agent:Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36 Edg/120.0.0.0”)<br /> Http.Send ()<br /> .如果真 (Http.GetStatus () ＝ 301)<br />     Url ＝ Http.GetResponseLocation ()<br />     Http.Open (“GET”, Url, )<br />     Http.SetRequestHeaders (“User-Agent:Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36 Edg/120.0.0.0”)<br />     Http.Send ()<br /> .如果真结束<br /> Return ＝ Http.GetResponseText_old ()<br /> Origin ＝ 文本_取左边 (Url, “/” ＋ 文本_取右边 (Url, “/”, , ), , )<br /> .如果 (寻找文本 (Return, “输入密码”, , 假) ≠ -1)<br />     .如果真 (Pwd ＝ “”)<br />         返回 (“请输入密码”)<br />     .如果真结束<br />     sign ＝ 文本_取出中间文本 (Return, “skdklds = '”, “';”, , )<br />     Data ＝ “action=downprocess&sign=” ＋ sign ＋ “&p=” ＋ Pwd<br />     Http.Open (“POST”, Origin ＋ “/ajaxm.php”, )<br />     Header ＝ “Accept: application/json, text/javascript, */*” ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded” ＋ #换行符 ＋ “Host: pan.lanzoui.com” ＋ #换行符 ＋ “Origin: ” ＋ Origin ＋ #换行符 ＋ “Referer: ” ＋ Url ＋ #换行符 ＋ “User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36 Edg/120.0.0.0”<br />     Http.SetRequestHeaders (Header)<br />     Http.Send (Data)<br />     Return ＝ Http.GetResponseText_old ()<br /> .否则<br />     正则.创建 (“src=” ＋ #引号 ＋ “(.*?)” ＋ #引号, , , )<br />     正则.搜索全部 (Return)<br />     Url ＝ 文本_取左边 (Url, “/” ＋ 文本_取右边 (Url, “/”, , ), , ) ＋ 正则.取子匹配文本 (2, 1)<br />     Http.Open (“GET”, Url, )<br />     Http.SetRequestHeaders (“User-Agent:Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36 Edg/120.0.0.0”)<br />     Http.Send ()<br />     Return ＝ Http.GetResponseText_old ()<br />     sign ＝ 文本_取出中间文本 (Return, “sign':'”, “','”, , )<br />     websignkey ＝ 文本_取出中间文本 (Return, “aihidcms = '”, “';”, , )<br />     signs ＝ 文本_取出中间文本 (Return, “ajaxdata = '?”, “';”, , )<br />     Data ＝ “action=downprocess&signs=%3F” ＋ signs ＋ “&sign=” ＋ sign ＋ “&websign=&websignkey=” ＋ websignkey ＋ “&ves=1”<br />     Http.Open (“POST”, “https://pan.lanzoui.com/ajaxm.php”, )<br />     Header ＝ “Accept: application/json, text/javascript, */*” ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded” ＋ #换行符 ＋ “Host: pan.lanzoui.com” ＋ #换行符 ＋ “Origin: ” ＋ Origin ＋ #换行符 ＋ “Referer: ” ＋ Url ＋ #换行符 ＋ “User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36 Edg/120.0.0.0”<br />     Http.SetRequestHeaders (Header)<br />     Http.Send (Data)<br />     Return ＝ Http.GetResponseText_old ()<br /> .如果结束<br /> Json.解析 (Return, , )<br /> .如果真 (到整数 (Json.取通用属性 (“zt”, )) ＝ 0)<br />     返回 (Json.取通用属性 (“inf”, ))<br /> .如果真结束<br /> Http.Open (“GET”, Json.取通用属性 (“dom”, ) ＋ “/file/” ＋ Json.取通用属性 (“url”, ), )<br /> Http.SetRequestHeaders (“Accept-Language: zh-CN,zh;q=0.9,en;q=0.8,en-GB;q=0.7,en-US;q=0.6”)<br /> Http.SetRequestHeaders (“User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36 Edg/120.0.0.0”)<br /> Http.Send ()<br /> 返回 (Http.GetResponseLocation ())

蓝奏云解析.e (1.04 MB, 下载次数: 149)

2023-12-15 21:45 上传

点击文件名下载附件






补充内容 (2023-12-21 23:54):
12.21-23点54分
本人这边解析正常

补充内容 (2023-12-29 13:11):
2023.12.29-13点10分
解析直链正常返回

补充内容 (2024-1-20 21:06):
新帖:https://bbs.125.la/forum.php?mod=viewthread&tid=14809869

k420

感谢分享，很给力！~

nmzb00

https://pan.iyqy.net/ 大佬这个网盘能搞吗

ctry78985

感谢分享

二哥暖心男神

谢谢分享,学习学习学习

datoudatou123

学习下  谢谢  学习下  谢谢

放飞梦想321

感谢您对论坛的支持！

yixuanmobile

蓝奏云解析(支持密码)

bylove

防守对方斯蒂芬斯蒂芬斯蒂芬

nihuaijie

谢谢分享,学习学习学习

BruceJoysky1987

2024年1月5日18:21:38