易语言一键解析蓝奏云网盘直链地址源码

.版本 2
.支持库 spec

.程序集 程序集1

.子程序 _启动子程序, 整数型
.局部变量 局_下载地址, 文本型

局_下载地址 ＝ 解析_蓝奏云网盘 (“http://pan.lanzou.com/773004”)
调试输出 (局_下载地址)
网页_打开指定网址 (局_下载地址)
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 解析_蓝奏云网盘, 文本型, , 返回直链地址
.参数 下载地址, 文本型
.局部变量 局_文件ID, 文本型
.局部变量 局_网页源码, 文本型
.局部变量 局_下载地址, 文本型

局_文件ID ＝ 取文本右边 (下载地址, 取文本长度 (下载地址) － 倒找文本 (下载地址, “/”, , 假))
局_网页源码 ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://pan.lanzou.com/x/” ＋ 局_文件ID, , , , , , , , , , , , , , , ))
' 噗哈哈哈，没有错，就是下载地址加了一个 /x/ 这个是网盘判断广告被拦截后跳转的地址
局_下载地址 ＝ 文本_取出中间文本 (局_网页源码, “urlf = '”, “'”, , )  ' 网址
局_下载地址 ＝ 局_下载地址 ＋ 文本_取出中间文本 (局_网页源码, “urlf + '”, “'”, , )  ' 参数
返回 (局_下载地址)

@一键解析蓝奏云网盘直链地址，支持所有收益模板