蓝奏盘真实地址解析纯源码！ - 精易论坛

子程序名	返回值类型	公开	备注
直连获取	文本型
参数名	类型	参考	可空	数组	备注
Url	文本型

变量名	类型	静态	数组	备注
m_Result	文本型
m_Src	文本型
m_rootUrl	文本型
k	文本型
t	文本型
id	文本型
m_data	文本型
Json	烁_JSON
m_requestHander	文本型
m_tmp	文本型

m_Result ＝到文本 (网页_访问_对象 (Url, 0, , , l_Cookies, #常量2 ))
m_Result ＝编码_utf8到gb2312 (m_Result)
m_Src ＝文本_取出中间文本 (m_Result, “<iframe”, “”, 1, 假)
m_Src ＝文本_取出中间文本 (m_Src, “src=” ＋ #引号, #引号, 1, 假)
m_rootUrl ＝ “https://lanzoux.com”
m_Result ＝到文本 (网页_访问_对象 (m_rootUrl ＋ m_Src, 0, , , l_Cookies, #常量3 ))
m_Result ＝编码_utf8到gb2312 (m_Result)
m_tmp ＝文本_取出中间文本 (m_Result, “//data : ”, “},”)
m_tmp ＝ m_Result ＋ “}”
t ＝文本_取出中间文本 (m_tmp, “'t':”, “,”)
id ＝文本_取出中间文本 (m_tmp, “'file_id':”, “,”)
k ＝文本_取出中间文本 (m_tmp, “'k':”, “}”)
t ＝文本_取出中间文本 (m_Result, “var ” ＋ t ＋ “ = '”, “';”)
id ＝文本_取出中间文本 (m_Result, “var ” ＋ id ＋ “ = '”, “';”)
k ＝文本_取出中间文本 (m_Result, “var ” ＋ k ＋ “= '”, “';”)
m_data ＝ “action=down_process&file_id=” ＋ id ＋ “&t=” ＋ t ＋ “&k=” ＋ k
m_requestHander ＝ #常量4
m_requestHander ＝ m_requestHander ＋字符 (13) ＋ “Referer:” ＋ m_rootUrl ＋ m_Src
m_Result ＝到文本 (网页_访问_对象 (m_rootUrl ＋ “/ajaxm.php”, 1, m_data, , l_Cookies, m_requestHander))

如果真 (Json.解析 (m_Result) ＝假)

返回 (“”)
调试输出 (m_Result, Json.取属性值 (“dom”), Json.取属性值 (“url”))
m_Result ＝ Json.取属性值 (“dom”) ＋ “/file/” ＋ Json.取属性值 (“url”)
调试输出 (m_Result)
m_requestHander ＝ #常量6
m_requestHander ＝ m_requestHander ＋字符 (13) ＋ “Referer:” ＋ m_rootUrl ＋ m_Src
网页_访问_对象 (m_Result, 0, , , l_Cookies, #常量5, m_Result, , 真)
m_Result ＝文本_取出中间文本 (m_Result, “Location: ”, #换行符 )
调试输出 (m_Result)
返回 (m_Result)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br />
.支持库 spec<br />
<br />
.子程序 直连获取, 文本型, 公开<br />
.参数 Url, 文本型<br />
.局部变量 m_Result, 文本型<br />
.局部变量 m_Src, 文本型<br />
.局部变量 m_rootUrl, 文本型<br />
.局部变量 k, 文本型<br />
.局部变量 t, 文本型<br />
.局部变量 id, 文本型<br />
.局部变量 m_data, 文本型<br />
.局部变量 Json, 烁_JSON<br />
.局部变量 m_requestHander, 文本型<br />
.局部变量 m_tmp, 文本型<br />
<br />
m_Result ＝ 到文本 (网页_访问_对象 (Url, 0, , , l_Cookies, #常量2))<br />
m_Result ＝ 编码_utf8到gb2312 (m_Result)<br />
m_Src ＝ 文本_取出中间文本 (m_Result, “<iframe”, “”, 1, 假)<br />
m_Src ＝ 文本_取出中间文本 (m_Src, “src=” ＋ #引号, #引号, 1, 假)<br />
m_rootUrl ＝ “https://lanzoux.com”<br />
m_Result ＝ 到文本 (网页_访问_对象 (m_rootUrl ＋ m_Src, 0, , , l_Cookies, #常量3))<br />
m_Result ＝ 编码_utf8到gb2312 (m_Result)<br />
m_tmp ＝ 文本_取出中间文本 (m_Result, “//data : ”, “},”)<br />
m_tmp ＝ m_Result ＋ “}”<br />
t ＝ 文本_取出中间文本 (m_tmp, “'t':”, “,”)<br />
id ＝ 文本_取出中间文本 (m_tmp, “'file_id':”, “,”)<br />
k ＝ 文本_取出中间文本 (m_tmp, “'k':”, “}”)<br />
t ＝ 文本_取出中间文本 (m_Result, “var ” ＋ t ＋ “ = '”, “';”)<br />
id ＝ 文本_取出中间文本 (m_Result, “var ” ＋ id ＋ “ = '”, “';”)<br />
k ＝ 文本_取出中间文本 (m_Result, “var ” ＋ k ＋ “= '”, “';”)<br />
m_data ＝ “action=down_process&file_id=” ＋ id ＋ “&t=” ＋ t ＋ “&k=” ＋ k<br />
m_requestHander ＝ #常量4<br />
m_requestHander ＝ m_requestHander ＋ 字符 (13) ＋ “Referer:” ＋ m_rootUrl ＋ m_Src<br />
m_Result ＝ 到文本 (网页_访问_对象 (m_rootUrl ＋ “/ajaxm.php”, 1, m_data, , l_Cookies, m_requestHander))<br />
.如果真 (Json.解析 (m_Result) ＝ 假)<br />
    返回 (“”)<br />
.如果真结束<br />
调试输出 (m_Result, Json.取属性值 (“dom”), Json.取属性值 (“url”))<br />
m_Result ＝ Json.取属性值 (“dom”) ＋ “/file/” ＋ Json.取属性值 (“url”)<br />
调试输出 (m_Result)<br />
m_requestHander ＝ #常量6<br />
m_requestHander ＝ m_requestHander ＋ 字符 (13) ＋ “Referer:” ＋ m_rootUrl ＋ m_Src<br />
网页_访问_对象 (m_Result, 0, , , l_Cookies, #常量5, m_Result, , 真)<br />
m_Result ＝ 文本_取出中间文本 (m_Result, “Location: ”, #换行符)<br />
调试输出 (m_Result)<br />
返回 (m_Result)