易语言取蓝奏网盘直链最新版的

Bking

易语言最新版的 取蓝奏直链 源码 求大佬给个
http可以下载的，太长直链的会卡死，不要长的
尽量跟官网的差不多长，能读出来就行！
谢谢了！！！

hhhql

#LanZouYun_Header   是

Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8
Accept-Language: zh-CN,zh;q=0.9
Cache-Control: no-cache
Pragma: no-cache
Referer: [Referer]
Upgrade-Insecure-Requests: 1
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/70.0.3538.25 Safari/537.36 Core/1.70.3741.400 QQBrowser/10.5.3863.400

hhhql

  

子程序名	返回值类型	公开	备 注
蓝奏云_解析下载地址	文本型
参数名	类 型	参考	可空	数组	备 注
分享链接	文本型
分享密码	文本型

变量名	类 型	静态	数组	备 注
正则	正则表达式类
Json	类_json
URL	文本型			提交网址
Submit_Data	文本型			提交xx
Return_Data	文本型			返回xx
Header	文本型
Sign	文本型

URL ＝ 分享链接
Header ＝ 子文本替换 ( #LanZouYun_Header, “[Referer]”, URL, , , 真)
Return_Data ＝ 编码_URL解码 (到文本 (网页_访问_对象 (URL, 0, , , , , , , , , , , , , , , , , )), 真)
如果真 (是否为空 (分享密码) ＝ 真)
Return_Data ＝ 文本_取出中间文本 (Return_Data, “-->”, “”, , )
正则.创建 (“src=#引号(.*?)#引号 frameborder”, Return_Data, , , , 真)
URL ＝ “https://lanzoux.com” ＋ 正则.取子匹配文本 (1, 1, )
Return_Data ＝ 编码_URL解码 (到文本 (网页_访问_对象 (URL, 0, , , , Header, , , , , , , , , , , , , )), 真)
Sign ＝ 文本_取出中间文本 (Return_Data, “var sg = '”, “';”, , )
如果真 (Sign ＝ “”)
返回 (“”)
Header ＝ 子文本替换 ( #LanZouYun_Header, “[Referer]”, URL, , , 真)
URL ＝ “https://lanzoux.com/ajaxm.php”
Submit_Data ＝ “action=downprocess&sign=” ＋ Sign ＋ “&ves=1”
Return_Data ＝ 编码_usc2到ansi (到文本 (网页_访问_对象 (URL, 1, Submit_Data, , , Header, , , , , , , , , , , , , )))
Json.解析 (Return_Data)
返回 (Json.取通用属性 (“dom”, ) ＋ “/file/” ＋ Json.取通用属性 (“url”, ))
URL ＝ “https://lanzoux.com/ajaxm.php”
Submit_Data ＝ 文本_取出中间文本 (Return_Data, “data : '”, “'+pwd,”, , ) ＋ 分享密码
Return_Data ＝ 编码_URL解码 (到文本 (网页_访问_对象 (URL, 1, Submit_Data, , , Header, , , , , , , , , , , , , )), 真)
Json.解析 (Return_Data)
返回 (Json.取通用属性 (“dom”, ) ＋ “/file/” ＋ Json.取通用属性 (“url”, ))

.版本 2<br /> <br /> .子程序 蓝奏云_解析下载地址, 文本型, 公开<br /> .参数 分享链接, 文本型<br /> .参数 分享密码, 文本型, 可空<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 Json, 类_json<br /> .局部变量 URL, 文本型, , , 提交网址<br /> .局部变量 Submit_Data, 文本型, , , 提交xx<br /> .局部变量 Return_Data, 文本型, , , 返回xx<br /> .局部变量 Header, 文本型<br /> .局部变量 Sign, 文本型<br /> <br /> URL ＝ 分享链接<br /> Header ＝ 子文本替换 (#LanZouYun_Header, “[Referer]”, URL, , , 真)<br /> Return_Data ＝ 编码_URL解码 (到文本 (网页_访问_对象 (URL, 0, , , , , , , , , , , , , , , , , )), 真)<br /> .如果真 (是否为空 (分享密码) ＝ 真)<br />     Return_Data ＝ 文本_取出中间文本 (Return_Data, “-->”, “”, , )<br />     正则.创建 (“src=#引号(.*?)#引号 frameborder”, Return_Data, , , , 真)<br />     URL ＝ “https://lanzoux.com” ＋ 正则.取子匹配文本 (1, 1, )<br />     Return_Data ＝ 编码_URL解码 (到文本 (网页_访问_对象 (URL, 0, , , , Header, , , , , , , , , , , , , )), 真)<br />     Sign ＝ 文本_取出中间文本 (Return_Data, “var sg = '”, “';”, , )<br />     .如果真 (Sign ＝ “”)<br />         返回 (“”)<br />     .如果真结束<br />     Header ＝ 子文本替换 (#LanZouYun_Header, “[Referer]”, URL, , , 真)<br />     URL ＝ “https://lanzoux.com/ajaxm.php”<br />     Submit_Data ＝ “action=downprocess&sign=” ＋ Sign ＋ “&ves=1”<br />     Return_Data ＝ 编码_usc2到ansi (到文本 (网页_访问_对象 (URL, 1, Submit_Data, , , Header, , , , , , , , , , , , , )))<br />     Json.解析 (Return_Data)<br />     返回 (Json.取通用属性 (“dom”, ) ＋ “/file/” ＋ Json.取通用属性 (“url”, ))<br /> .如果真结束<br /> URL ＝ “https://lanzoux.com/ajaxm.php”<br /> Submit_Data ＝ 文本_取出中间文本 (Return_Data, “data : '”, “'+pwd,”, , ) ＋ 分享密码<br /> Return_Data ＝ 编码_URL解码 (到文本 (网页_访问_对象 (URL, 1, Submit_Data, , , Header, , , , , , , , , , , , , )), 真)<br /> Json.解析 (Return_Data)<br /> 返回 (Json.取通用属性 (“dom”, ) ＋ “/file/” ＋ Json.取通用属性 (“url”, ))

自己添加个精易模块

Bking

啥Liang啊 发表于 2020-1-10 22:14
#LanZouYun_Header   是

能上传个源码不

Bking

啥Liang啊 发表于 2020-1-10 22:14
#LanZouYun_Header   是

没看上面.......

Bking

啥Liang啊 发表于 2020-1-10 22:00
#LanZouYun_Header   是

谢谢了，大佬

Bking

啥Liang啊 发表于 2020-1-10 22:13
[e=0].版本 2

.子程序 蓝奏云_解析下载地址, 文本型, 公开

调试输出 出来是空文本啊

Bking

取不出来

Bking

.........................

hhhql

明天我上电脑改下  可能有点问题