- 直连地址解析!
- 可以拿去玩玩!,没什么技术含量的东东
- 如果觉得有用点个赞啊!
- 不然下次也没啥心情分享了😂
复制代码
lanzou.e
(657.55 KB, 下载次数: 98)
变量名 | 类 型 | 静态 | 数组 | 备 注 | 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 )
|