蓝奏云直链提取 - 精易论坛

.版本 2
.支持库 spec
.子程序 _按钮1_被单击
.局部变量局_待解析地址, 文本型
.局部变量局_待提取地址, 文本型
.局部变量局_处理地址, 文本型
.局部变量局_正确地址, 文本型
.局部变量 json, 类_json
.局部变量 UA, 文本型
UA ＝ “Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/71.0.3578.98 Safari/537.36”
编辑框2.内容＝ “”
局_待解析地址＝编码_utf8到gb2312 (网页_访问S (编辑框1.内容, , , , , UA, , , , , , , , , , , , , , , ))
' 从原网页提取出下一个要访问的地址
.如果真 (局_待解析地址＝ “”)
信息框 (“网址错误！”, #错误图标, , )
返回 ()
.如果真结束
局_待提取地址＝正则_匹配单个 (局_待解析地址, 2, 1)
' 从原网页提取出下一个要访问的地址的要提交的数据
.如果真 (局_待提取地址＝ “”)
信息框 (“解析已失效！”, #错误图标, , )
返回 ()
.如果真结束
UA ＝ “Host: wws.lanzous.com” ＋ #换行符＋ “Origin: https://lanzoux.com” ＋ #换行符＋ “Referer:” ＋编辑框1.内容＋ #换行符＋ UA
局_待提取地址＝编码_utf8到gb2312 (网页_访问S (“https://lanzoux.com” ＋局_待提取地址, 1, , , , UA, , , , , , , , , , , , , , , ))
局_待提取地址＝文本_取出中间文本 (局_待提取地址, “posturl = '”, “';”, , )
UA ＝ “Host: wws.lanzous.com” ＋ #换行符＋ “Origin: https://lanzoux.com” ＋ #换行符＋ “Referer:” ＋ “https://lanzoux.com” ＋局_待提取地址＋ #换行符＋ “Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/71.0.3578.98 Safari/537.36”
局_处理地址＝网页_访问S (“https://lanzoux.com/ajaxm.php”, 1, “action=downprocess&sign=” ＋局_待提取地址＋ “ &ves=1”, , , UA, , , , , , , , , , , , , , , )
' 使用返回的数据组合成合成的下载地址
.如果真 (局_处理地址＝ “”)
信息框 (“正确地址提取失败！”, #错误图标, , )
返回 ()
.如果真结束
json.解析 (局_处理地址)
局_正确地址＝ json.取通用属性 (“url”, )
调试输出 (局_正确地址)
局_正确地址＝删全部空 (文本_替换 (局_正确地址, , , , “\”, “ ”, , , , , , , , ))
调试输出 (局_正确地址)
编辑框2.内容＝ “https://vip.d0.baidupan.com/file/” ＋局_正确地址
json.清除 ()

复制代码