蓝奏云直链解析

斗战胜猴

调用了 正则表达式
调用了 网页_访问_对象
调用了 编码_Utf8到Ansi

  

子程序名	返回值类型	公开	备 注
取跳转的最终地址	文本型		获取一个网站重定向跳转的URL地址
参数名	类 型	参考	可空	数组	备 注
地址	文本型

变量名	类 型	静态	数组	备 注
http	对象
p	变体型

如果真 (http.创建 (“WinHttp.WinHttpRequest.5.1”, ))
http.写属性 (“Option”, 6, 0)
http.方法 (“SetTimeouts”, 5000, 5000, 10000, 5000)
http.方法 (“open”, “GET”, 地址, 假)
http.方法 (“setRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)”)
http.方法 (“setRequestHeader”, “Accept-Language”, “zh-cn”)
http.方法 (“setRequestHeader”, “Connection”, “Keep-Alive”)
http.方法 (“setRequestHeader”, “Accept”, “image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/x-silverlight, */*”)
http.方法 (“send”, )
p ＝ http.读属性 (“GetResponseHeader”, “Location”)
返回 (p.取文本 ())
返回 (“”)

子程序名	返回值类型	公开	备 注
取文本蓝奏云主域名	文本型

变量名	类 型	静态	数组	备 注
文本	文本型
蓝奏云主域名	文本型
位置	整数型

如果真 (蓝奏云主域名 ＝ “”)
文本 ＝ 到文本 (网页_访问_对象 (“http://lanzou.com/主域名获取”))
' 文本 ＝ 网页_访问S (“http://lanzou.com/主域名获取”)
位置 ＝ 寻找文本 (文本, “://www.”, , 假)
蓝奏云主域名 ＝ 取文本中间 (文本, 位置 ＋ 7, 寻找文本 (文本, “.com”, , 假) － 位置 － 7)
' 蓝奏云主域名 ＝ GetStrMid (文本, “://www.”, “.com”)
返回 (蓝奏云主域名)

子程序名	返回值类型	公开	备 注
取文本蓝奏云有效链接	文本型
参数名	类 型	参考	可空	数组	备 注
链接	文本型

变量名	类 型	静态	数组	备 注
前缀	文本型
主域名	文本型
尾部	文本型
后缀	文本型
有效链接	文本型

链接 ＝ 删全部空 (链接)
如果真 (链接 ＝ “”)
返回 (“”)
如果 (寻找文本 (链接, “/”, , 假) ≠ -1)
后缀 ＝ 取文本右边 (链接, 取文本长度 (链接) － 倒找文本 (链接, “/”, , 假))
' 后缀 ＝ GetStrRightRev (链接, “/”)
后缀 ＝ 链接
前缀 ＝ “https://www.”
主域名 ＝ 取文本蓝奏云主域名 ()
尾部 ＝ “.com/”
有效链接 ＝ 前缀 ＋ 主域名 ＋ 尾部 ＋ 后缀
返回 (有效链接)

子程序名	返回值类型	公开	备 注
取文本蓝奏云直链解析密码	文本型		本地解析 取文本蓝奏云直链 成功返回 下载直链，失败返回空文本
参数名	类 型	参考	可空	数组	备 注
蓝奏云文件链接	文本型
密码	文本型
文件大小	文本型				返回 文件大小

变量名	类 型	静态	数组	备 注
返回	文本型
蓝奏云_协议头	文本型
正则	正则表达式类
fn	文本型
提交数据	文本型
网址	文本型
sign	文本型
action	文本型
signs	文本型
websign	文本型
websignkey	文本型
局直链	文本型
局后缀	文本型
局蓝奏云主域名	文本型
dom	文本型
url	文本型

蓝奏云文件链接 ＝ 删全部空 (蓝奏云文件链接)
蓝奏云文件链接 ＝ 取文本蓝奏云有效链接 (蓝奏云文件链接)
局蓝奏云主域名 ＝ “https://www.” ＋ 取文本蓝奏云主域名 () ＋ “.com/”
蓝奏云_协议头 ＝ “User-Agent: Mozilla/5.0 (MSIE 10.0; Windows NT 6.1; Trident/5.0)” ＋ #换行符 ＋ “referer: ” ＋ 局蓝奏云主域名
返回 ＝ 编码_Utf8到Ansi (网页_访问_对象 (蓝奏云文件链接, , , , , 蓝奏云_协议头))
正则.创建 (“content=#引号文件大小：(.*?)#引号”, 返回, , , , 真)
文件大小 ＝ 正则.取子匹配文本 (1, 1, )
如果真 (密码 ≠ “”)
正则.创建 (“action':'(.*?)'”, 返回, , , , )
action ＝ 正则.取子匹配文本 (1, 1, )
如果真 (action ＝ “”)
输出调试文本 (“action获取失败!默认填为downprocess”)
action ＝ “downprocess”
正则.创建 (“sign':'(.*?)'”, 返回, , , , )
sign ＝ 正则.取子匹配文本 (2, 1, )
提交数据 ＝ “action=” ＋ action ＋ “&sign=” ＋ sign ＋ “&kd=1” ＋ “&p=” ＋ 密码
正则.创建 (“url : '/(.+?)'”, 返回, , , , )
网址 ＝ 局蓝奏云主域名 ＋ 正则.取子匹配文本 (2, 1, )
返回 ＝ 到文本 (网页_访问_对象 (网址, 1, 提交数据, , , 蓝奏云_协议头))
正则.创建 (“dom#引号:#引号(.+?)#引号”, 返回, , , , 真)
dom ＝ 正则.取子匹配文本 (1, 1, )
正则.创建 (“url#引号:#引号(.+?)#引号”, 返回, , , , 真)
url ＝ 正则.取子匹配文本 (1, 1, )
网址 ＝ dom ＋ “/file/” ＋ url
如果真 (url ＝ “”)
返回 (“”)
网址 ＝ 子文本替换 (网址, “\/\/”, “//”, , , 假)
局直链 ＝ 取跳转的最终地址 (网址)
如果真 (局直链 ＝ “”)
网址 ＝ 子文本替换 (网址, “https://”, “http://”, , , 假)
网址 ＝ 子文本替换 (网址, “\/\/vip”, “//vip”, , , 假)
局直链 ＝ 取跳转的最终地址 (网址)
如果真 (局直链 ＝ “”)
局直链 ＝ 网址
返回 (局直链)
如果真 (返回 ＝ “”)
输出调试文本 (“无法访问蓝奏云,请尝试修改参数 [蓝奏云主域名]” ＋ #换行符 ＋ “错误:无法访问分享链接”)
返回 (“”)
正则.创建 (“#引号(/fn\?[^#引号]{10,})#引号”, 返回, , , , 真)
fn ＝ 正则.取子匹配文本 (1, 1, )
如果真 (fn ＝ “”)
输出调试文本 (“fn获取失败!” ＋ “  链接有访问密码”)
返回 (“”)
返回 ＝ 编码_Utf8到Ansi (网页_访问_对象 (局蓝奏云主域名 ＋ fn, , , , , 蓝奏云_协议头))
如果真 (返回 ＝ “”)
输出调试文本 (“无法访问蓝奏云,请尝试修改参数 [蓝奏云主域名]” ＋ #换行符 ＋ “错误:无法访问fn”)
返回 (“”)

正则.创建 (“wp_sign = '(.*?)'”, 返回, , , , )
sign ＝ 正则.取子匹配文本 (1, 1, )
如果真 (sign ＝ “”)
输出调试文本 (“sign获取失败!”)
返回 (“”)

正则.创建 (“action':'(.*?)'”, 返回, , , , )
action ＝ 正则.取子匹配文本 (1, 1, )
如果真 (action ＝ “”)
输出调试文本 (“action获取失败!默认填为downprocess”)
action ＝ “downprocess”

正则.创建 (“ajaxdata = '(.*?)'”, 返回, , , , )
signs ＝ 正则.取子匹配文本 (1, 1, )
如果真 (signs ＝ “”)
输出调试文本 (“signs获取失败!默认填为?ctdf”)
signs ＝ “?ctdf”

正则.创建 (“websign':'(.*?)'”, 返回, , , , )
websign ＝ 正则.取子匹配文本 (1, 1, )
如果真 (websign ＝ “”)
' 输出调试文本 (“websign获取失败!默认填为2”)
websign ＝ “2”

正则.创建 (“ajaxdata = '(.*?)'”, 返回, , , , )
websignkey ＝ 正则.取子匹配文本 (1, 1, )
如果真 (websignkey ＝ “”)
输出调试文本 (“websignkey获取失败!默认填为3JbO”)
websignkey ＝ “3JbO”

提交数据 ＝ “action=” ＋ action ＋ “&signs=” ＋ signs ＋ “&sign=” ＋ sign ＋ “&ves=1” ＋ “&websign=” ＋ websign ＋ “&websignkey=” ＋ websignkey
正则.创建 (“url : '/(.+?)'”, 返回, , , , )
网址 ＝ 局蓝奏云主域名 ＋ 正则.取子匹配文本 (2, 1, )
返回 ＝ 到文本 (网页_访问_对象 (网址, 1, 提交数据, , , 蓝奏云_协议头))
如果真 (返回 ＝ “”)
输出调试文本 (“无法访问蓝奏云,请尝试修改参数 [蓝奏云主域名]” ＋ #换行符 ＋ “错误:无法访问直链解析网页   取出的url:” ＋ 正则.取子匹配文本 (1, 1, ))
返回 (“”)

正则.创建 (“dom#引号:#引号(.+?)#引号”, 返回, , , , 真)
dom ＝ 正则.取子匹配文本 (1, 1, )
正则.创建 (“url#引号:#引号(.+?)#引号”, 返回, , , , 真)
url ＝ 正则.取子匹配文本 (1, 1, )
如果真 (url ＝ “”)
返回 (“”)
网址 ＝ dom ＋ “/file/” ＋ url
网址 ＝ 子文本替换 (网址, “\/\/”, “//”, , , 假)
局直链 ＝ 取跳转的最终地址 (网址)
如果真 (局直链 ＝ “”)
网址 ＝ 子文本替换 (网址, “https://”, “http://”, , , 假)
网址 ＝ 子文本替换 (网址, “\/\/vip”, “//vip”, , , 假)
局直链 ＝ 取跳转的最终地址 (网址)
如果真 (局直链 ＝ “”)
局直链 ＝ 网址
返回 (局直链)

.版本 2<br /> <br /> .子程序 取跳转的最终地址, 文本型, 公开, 获取一个网站重定向跳转的URL地址<br /> .参数 地址, 文本型<br /> .局部变量 http, 对象<br /> .局部变量 p, 变体型<br /> <br /> .如果真 (http.创建 (“WinHttp.WinHttpRequest.5.1”, ))<br />     http.写属性 (“Option”, 6, 0)<br />     http.方法 (“SetTimeouts”, 5000, 5000, 10000, 5000)<br />     http.方法 (“open”, “GET”, 地址, 假)<br />     http.方法 (“setRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)”)<br />     http.方法 (“setRequestHeader”, “Accept-Language”, “zh-cn”)<br />     http.方法 (“setRequestHeader”, “Connection”, “Keep-Alive”)<br />     http.方法 (“setRequestHeader”, “Accept”, “image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/x-silverlight, */*”)<br />     http.方法 (“send”, )<br />     p ＝ http.读属性 (“GetResponseHeader”, “Location”)<br />     返回 (p.取文本 ())<br /> .如果真结束<br /> 返回 (“”)<br /> <br /> .子程序 取文本蓝奏云主域名, 文本型, 公开<br /> .局部变量 文本, 文本型<br /> .局部变量 蓝奏云主域名, 文本型, 静态<br /> .局部变量 位置, 整数型<br /> <br /> .如果真 (蓝奏云主域名 ＝ “”)<br />     文本 ＝ 到文本 (网页_访问_对象 (“http://lanzou.com/主域名获取”))<br />     ' 文本 ＝ 网页_访问S (“http://lanzou.com/主域名获取”)<br />     位置 ＝ 寻找文本 (文本, “://www.”, , 假)<br />     蓝奏云主域名 ＝ 取文本中间 (文本, 位置 ＋ 7, 寻找文本 (文本, “.com”, , 假) － 位置 － 7)<br />     ' 蓝奏云主域名 ＝ GetStrMid (文本, “://www.”, “.com”)<br /> .如果真结束<br /> 返回 (蓝奏云主域名)<br /> <br /> .子程序 取文本蓝奏云有效链接, 文本型, 公开<br /> .参数 链接, 文本型<br /> .局部变量 前缀, 文本型<br /> .局部变量 主域名, 文本型<br /> .局部变量 尾部, 文本型<br /> .局部变量 后缀, 文本型<br /> .局部变量 有效链接, 文本型<br /> <br /> 链接 ＝ 删全部空 (链接)<br /> .如果真 (链接 ＝ “”)<br />     返回 (“”)<br /> .如果真结束<br /> .如果 (寻找文本 (链接, “/”, , 假) ≠ -1)<br />     后缀 ＝ 取文本右边 (链接, 取文本长度 (链接) － 倒找文本 (链接, “/”, , 假))<br />     ' 后缀 ＝ GetStrRightRev (链接, “/”)<br /> .否则<br />     后缀 ＝ 链接<br /> .如果结束<br /> 前缀 ＝ “https://www.”<br /> 主域名 ＝ 取文本蓝奏云主域名 ()<br /> 尾部 ＝ “.com/”<br /> 有效链接 ＝ 前缀 ＋ 主域名 ＋ 尾部 ＋ 后缀<br /> 返回 (有效链接)<br /> <br /> .子程序 取文本蓝奏云直链解析密码, 文本型, 公开, 本地解析 取文本蓝奏云直链 成功返回 下载直链，失败返回空文本<br /> .参数 蓝奏云文件链接, 文本型<br /> .参数 密码, 文本型, 可空<br /> .参数 文件大小, 文本型, 参考 可空, 返回 文件大小<br /> .局部变量 返回, 文本型<br /> .局部变量 蓝奏云_协议头, 文本型<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 fn, 文本型<br /> .局部变量 提交数据, 文本型<br /> .局部变量 网址, 文本型<br /> .局部变量 sign, 文本型<br /> .局部变量 action, 文本型<br /> .局部变量 signs, 文本型<br /> .局部变量 websign, 文本型<br /> .局部变量 websignkey, 文本型<br /> .局部变量 局直链, 文本型<br /> .局部变量 局后缀, 文本型<br /> .局部变量 局蓝奏云主域名, 文本型<br /> .局部变量 dom, 文本型<br /> .局部变量 url, 文本型<br /> <br /> 蓝奏云文件链接 ＝ 删全部空 (蓝奏云文件链接)<br /> 蓝奏云文件链接 ＝ 取文本蓝奏云有效链接 (蓝奏云文件链接)<br /> 局蓝奏云主域名 ＝ “https://www.” ＋ 取文本蓝奏云主域名 () ＋ “.com/”<br /> 蓝奏云_协议头 ＝ “User-Agent: Mozilla/5.0 (MSIE 10.0; Windows NT 6.1; Trident/5.0)” ＋ #换行符 ＋ “referer: ” ＋ 局蓝奏云主域名<br /> 返回 ＝ 编码_Utf8到Ansi (网页_访问_对象 (蓝奏云文件链接, , , , , 蓝奏云_协议头))<br /> 正则.创建 (“content=#引号文件大小：(.*?)#引号”, 返回, , , , 真)<br /> 文件大小 ＝ 正则.取子匹配文本 (1, 1, )<br /> .如果真 (密码 ≠ “”)<br />     正则.创建 (“action':'(.*?)'”, 返回, , , , )<br />     action ＝ 正则.取子匹配文本 (1, 1, )<br />     .如果真 (action ＝ “”)<br />         输出调试文本 (“action获取失败!默认填为downprocess”)<br />         action ＝ “downprocess”<br />     .如果真结束<br />     正则.创建 (“sign':'(.*?)'”, 返回, , , , )<br />     sign ＝ 正则.取子匹配文本 (2, 1, )<br />     提交数据 ＝ “action=” ＋ action ＋ “&sign=” ＋ sign ＋ “&kd=1” ＋ “&p=” ＋ 密码<br />     正则.创建 (“url : '/(.+?)'”, 返回, , , , )<br />     网址 ＝ 局蓝奏云主域名 ＋ 正则.取子匹配文本 (2, 1, )<br />     返回 ＝ 到文本 (网页_访问_对象 (网址, 1, 提交数据, , , 蓝奏云_协议头))<br />     正则.创建 (“dom#引号:#引号(.+?)#引号”, 返回, , , , 真)<br />     dom ＝ 正则.取子匹配文本 (1, 1, )<br />     正则.创建 (“url#引号:#引号(.+?)#引号”, 返回, , , , 真)<br />     url ＝ 正则.取子匹配文本 (1, 1, )<br />     网址 ＝ dom ＋ “/file/” ＋ url<br />     .如果真 (url ＝ “”)<br />         返回 (“”)<br />     .如果真结束<br />     网址 ＝ 子文本替换 (网址, “\/\/”, “//”, , , 假)<br />     局直链 ＝ 取跳转的最终地址 (网址)<br />     .如果真 (局直链 ＝ “”)<br />         网址 ＝ 子文本替换 (网址, “https://”, “http://”, , , 假)<br />         网址 ＝ 子文本替换 (网址, “\/\/vip”, “//vip”, , , 假)<br />         局直链 ＝ 取跳转的最终地址 (网址)<br />     .如果真结束<br />     .如果真 (局直链 ＝ “”)<br />         局直链 ＝ 网址<br />     .如果真结束<br />     返回 (局直链)<br /> <br /> .如果真结束<br /> .如果真 (返回 ＝ “”)<br />     输出调试文本 (“无法访问蓝奏云,请尝试修改参数 [蓝奏云主域名]” ＋ #换行符 ＋ “错误:无法访问分享链接”)<br />     返回 (“”)<br /> .如果真结束<br /> 正则.创建 (“#引号(/fn\?[^#引号]{10,})#引号”, 返回, , , , 真)<br /> fn ＝ 正则.取子匹配文本 (1, 1, )<br /> .如果真 (fn ＝ “”)<br />     输出调试文本 (“fn获取失败!” ＋ “  链接有访问密码”)<br />     返回 (“”)<br /> .如果真结束<br /> 返回 ＝ 编码_Utf8到Ansi (网页_访问_对象 (局蓝奏云主域名 ＋ fn, , , , , 蓝奏云_协议头))<br /> <br /> .如果真 (返回 ＝ “”)<br />     输出调试文本 (“无法访问蓝奏云,请尝试修改参数 [蓝奏云主域名]” ＋ #换行符 ＋ “错误:无法访问fn”)<br />     返回 (“”)<br /> .如果真结束<br /> <br /> 正则.创建 (“wp_sign = '(.*?)'”, 返回, , , , )<br /> sign ＝ 正则.取子匹配文本 (1, 1, )<br /> .如果真 (sign ＝ “”)<br />     输出调试文本 (“sign获取失败!”)<br />     返回 (“”)<br /> .如果真结束<br /> <br /> 正则.创建 (“action':'(.*?)'”, 返回, , , , )<br /> action ＝ 正则.取子匹配文本 (1, 1, )<br /> .如果真 (action ＝ “”)<br />     输出调试文本 (“action获取失败!默认填为downprocess”)<br />     action ＝ “downprocess”<br /> .如果真结束<br /> <br /> 正则.创建 (“ajaxdata = '(.*?)'”, 返回, , , , )<br /> signs ＝ 正则.取子匹配文本 (1, 1, )<br /> .如果真 (signs ＝ “”)<br />     输出调试文本 (“signs获取失败!默认填为?ctdf”)<br />     signs ＝ “?ctdf”<br /> .如果真结束<br /> <br /> 正则.创建 (“websign':'(.*?)'”, 返回, , , , )<br /> websign ＝ 正则.取子匹配文本 (1, 1, )<br /> .如果真 (websign ＝ “”)<br />     ' 输出调试文本 (“websign获取失败!默认填为2”)<br />     websign ＝ “2”<br /> .如果真结束<br /> <br /> 正则.创建 (“ajaxdata = '(.*?)'”, 返回, , , , )<br /> websignkey ＝ 正则.取子匹配文本 (1, 1, )<br /> .如果真 (websignkey ＝ “”)<br />     输出调试文本 (“websignkey获取失败!默认填为3JbO”)<br />     websignkey ＝ “3JbO”<br /> .如果真结束<br /> <br /> 提交数据 ＝ “action=” ＋ action ＋ “&signs=” ＋ signs ＋ “&sign=” ＋ sign ＋ “&ves=1” ＋ “&websign=” ＋ websign ＋ “&websignkey=” ＋ websignkey<br /> 正则.创建 (“url : '/(.+?)'”, 返回, , , , )<br /> 网址 ＝ 局蓝奏云主域名 ＋ 正则.取子匹配文本 (2, 1, )<br /> 返回 ＝ 到文本 (网页_访问_对象 (网址, 1, 提交数据, , , 蓝奏云_协议头))<br /> <br /> .如果真 (返回 ＝ “”)<br />     输出调试文本 (“无法访问蓝奏云,请尝试修改参数 [蓝奏云主域名]” ＋ #换行符 ＋ “错误:无法访问直链解析网页   取出的url:” ＋ 正则.取子匹配文本 (1, 1, ))<br />     返回 (“”)<br /> .如果真结束<br /> <br /> <br /> 正则.创建 (“dom#引号:#引号(.+?)#引号”, 返回, , , , 真)<br /> dom ＝ 正则.取子匹配文本 (1, 1, )<br /> 正则.创建 (“url#引号:#引号(.+?)#引号”, 返回, , , , 真)<br /> url ＝ 正则.取子匹配文本 (1, 1, )<br /> .如果真 (url ＝ “”)<br />     返回 (“”)<br /> .如果真结束<br /> 网址 ＝ dom ＋ “/file/” ＋ url<br /> 网址 ＝ 子文本替换 (网址, “\/\/”, “//”, , , 假)<br /> 局直链 ＝ 取跳转的最终地址 (网址)<br /> .如果真 (局直链 ＝ “”)<br />     网址 ＝ 子文本替换 (网址, “https://”, “http://”, , , 假)<br />     网址 ＝ 子文本替换 (网址, “\/\/vip”, “//vip”, , , 假)<br />     局直链 ＝ 取跳转的最终地址 (网址)<br /> .如果真结束<br /> .如果真 (局直链 ＝ “”)<br />     局直链 ＝ 网址<br /> .如果真结束<br /> 返回 (局直链)

gakj

啊啊啊啊

shwej

新人学习

shwej

新人学习

花嘻嘻

阿萨德阿萨德

寂寞伴着我

无密码带密码解析

lxn2wyf

欢迎常来帮助新人，感谢你的无私付出~

ouerqi

发光飞碟改发个

357106660

调用了 编码_Utf8到Ansi

魁啊啊

66666666666666666666

拧紧

        共同努力，共同进步