本帖最后由 果心豆腐酱 于 2023-11-1 01:12 编辑
调试输出 (蓝奏云_取直链_有密码 (“https://tgif.lanzouw.com/b029dmp8f”, “520”, 文件名 ), 文件名 )调试输出 (蓝奏云_取直链_有密码 (“https://police.lanzoue.com/iMv1l0ld6wib”, “euss”, 文件名 ), 文件名 )|
蓝奏云_取直链_有密码 | 文本型 | | |
网址 | 文本型 | | | | 密码 | 文本型 | | | | 文件名 | 文本型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | 蓝奏云_协议头 | 文本型 | | | 网页源码 | 文本型 | | | 正则 | 正则表达式类 | | | sign | 文本型 | | | 局_网址 | 文本型 | | | action | 文本型 | | | 域名 | 文本型 | | |
正则. 创建 (“[a-zA-z]+://[a-zA-Z0-9][-a-zA-Z0-9]{0,62}(\.[a-zA-Z0-9][-a-zA-Z0-9]{0,62})+\.?”, 网址, , , , )域名 = 正则. 取匹配文本 (1, )蓝奏云_协议头 = “User-Agent: Mozilla/5.0 (Windows NT 12.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36” + #换行符 + “referer: ” + 域名 网页源码 = 编码_Utf8到Ansi (网页_访问_对象 (网址, 0, , , , 蓝奏云_协议头, , , , , , , , , , , , , )) ”, 网页源码, , , , 真) 正则. 创建 (“action=(.*?)&sign=(.{10,}?)&p=”, 网页源码, , , , )action = 正则. 取子匹配文本 (1, 1, )sign = 正则. 取子匹配文本 (1, 2, )如果真 (action = “”)action = “downprocess”如果真 (sign = “” 或 取文本长度 (sign ) < 70 )正则. 创建 (“[0-9a-zA-Z\_]{70,}”, 网页源码, , , , )sign = 正则. 取匹配文本 (1, ) 如果真 (sign = “”)返回 (蓝奏云_取直链_有密码2 (网址, 密码, 文件名 )) 网页源码 = 到文本 (网页_访问_对象 (域名 + “/ajaxm.php”, 1, “action=” + action + “&sign=” + sign + “&p=” + 密码, , , 蓝奏云_协议头, , , , , , , , , , , , , ))局_网址 = 文本_取出中间文本 (网页源码, “dom” + #引号 + “:” + #引号 + “”, “” + #引号 + “,”, , ) + “/file/” + 文本_取出中间文本 (网页源码, “url” + #引号 + “:” + #引号, #引号, , )局_网址 = 子文本替换 (局_网址, “\”, “”, , , 真)文件名 = 文本_取出中间文本 (网页源码, “inf” + #引号 + “:” + #引号 + “”, #引号, , )局_网址 = 取跳转的最终地址 (局_网址 )如果真 (局_网址 = “”)局_网址 = 子文本替换 (局_网址, “https://”, “http://”, , , 假)局_网址 = 取跳转的最终地址 (局_网址 )返回 (局_网址)|
蓝奏云_取直链_有密码2 | 文本型 | | |
网址 | 文本型 | | | | 密码 | 文本型 | | | | 文件名 | 文本型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | 蓝奏云_协议头 | 文本型 | | | 网页源码 | 文本型 | | | sign | 文本型 | | | 局_网址 | 文本型 | | | action | 文本型 | | | 域名 | 文本型 | | | _hg2q2 | 文本型 | | | t | 文本型 | | | ls | 文本型 | | | pwd | 文本型 | | | pg | 文本型 | | | lx | 文本型 | | | fid | 文本型 | | | uid | 文本型 | | | rep | 文本型 | | | k | 文本型 | | | up | 文本型 | | | 内容 | 文本型 | | | post数据 | 文本型 | | | id | 文本型 | | | fn | 文本型 | | | signs | 文本型 | | | ves | 文本型 | | | websign | 文本型 | | | websignkey | 文本型 | | | 数据 | 字节集 | | | 正则 | 正则表达式类 | | |
正则. 创建 (“[a-zA-z]+://[a-zA-Z0-9][-a-zA-Z0-9]{0,62}(\.[a-zA-Z0-9][-a-zA-Z0-9]{0,62})+\.?”, 网址, , , , )域名 = 正则. 取匹配文本 (1, )蓝奏云_协议头 = “User-Agent: Mozilla/5.0 (Windows NT 12.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36” + #换行符 + “referer: ” + 域名 网页源码 = 编码_Utf8到Ansi (网页_访问_对象 (网址, 0, , , , 蓝奏云_协议头, , , , , , , , , , , , , )) k = 文本_取出中间文本 (网页源码, “k':”, “,”, , )k = 文本_取出中间文本 (网页源码, k + “ = '”, “';”, , )t = 文本_取出中间文本 (网页源码, “t':”, “,”, , )t = 文本_取出中间文本 (网页源码, t + “ = '”, “';”, , )rep = 文本_取出中间文本 (网页源码, “rep':'”, “',”, , )lx = 文本_取出中间文本 (网页源码, “lx':”, “,”, , )fid = 文本_取出中间文本 (网页源码, “fid':”, “,”, , )uid = 文本_取出中间文本 (网页源码, “uid':'”, “',”, , )up = 文本_取出中间文本 (网页源码, “up':”, “,”, , )ls = 文本_取出中间文本 (网页源码, “ls':”, “,”, , )pg = 文本_取出中间文本 (网页源码, “pgs =”, “;”, , )pwd = 密码 post数据 = “lx=” + lx + “&fid=” + fid + “&uid=” + uid + “&pg=” + pg + “&rep=” + rep + “&t=” + t + “&k=” + k + “&up=” + up + “&ls=” + ls + “&pwd=” + pwd 内容 = 编码_Utf8到Ansi (网页_访问_对象 (域名 + “/filemoreajax.php”, 1, post数据, , , 蓝奏云_协议头, , , , , , , , , , , , , )) id = 文本_取出中间文本 (内容, “id” + #引号 + “:” + #引号 + “”, “” + #引号 + “,”, , )文件名 = 编码_usc2到ansi (文本_取出中间文本 (内容, “name_all” + #引号 + “:” + #引号 + “”, “” + #引号 + “,”, , )) 数据 = 网页_访问_对象 (域名 + “/” + id, 0, , , , 蓝奏云_协议头, , , , , , , , , , , , , )内容 = 编码_Utf8到Ansi (数据 )正则. 创建 (“]*src=” + #引号 + “([^” + #引号 + “]+)” + #引号 + “”, 内容, , , , )fn = 正则. 取子匹配文本 (正则. 取匹配数量 (), 1, )内容 = 编码_Utf8到Ansi (网页_访问_对象 (域名 + “/” + fn, , , , , 蓝奏云_协议头, , , , , , , , , , , , , )) action = 文本_取出中间文本 (内容, “action':'”, “',”, , )sign = 文本_取出中间文本 (内容, “sign':'”, “',”, , )signs = 文本_取出中间文本 (内容, “signs':”, “,”, , )signs = 文本_取出中间文本 (内容, signs + “ = '”, “';”, , )websign = 文本_取出中间文本 (内容, “websign':”, “,”, , )websign = 文本_取出中间文本 (内容, websign + “ = '”, “';”, , )websignkey = 文本_取出中间文本 (内容, “websignkey':”, “,”, , )websignkey = 文本_取出中间文本 (内容, websignkey + “ = '”, “';”, , )ves = 文本_取出中间文本 (内容, “ves':”, “ }”, , )post数据 = “action=” + action + “&sign=” + sign + “&signs=” + signs + “&websign=” + websign + “&websignkey=” + websignkey + “&ves=” + ves 内容 = 编码_Utf8到Ansi (网页_访问_对象 (域名 + “//ajaxm.php”, 1, post数据, , , 蓝奏云_协议头, , , , , , , , , , , , , )) 局_网址 = 文本_取出中间文本 (内容, “dom” + #引号 + “:” + #引号 + “”, “” + #引号 + “,”, , ) + “/file/” + 文本_取出中间文本 (内容, “url” + #引号 + “:” + #引号, #引号, , )局_网址 = 子文本替换 (局_网址, “\”, “”, , , 真)局_网址 = 取跳转的最终地址 (局_网址 )如果真 (局_网址 = “”)局_网址 = 子文本替换 (局_网址, “https://”, “http://”, , , 假)局_网址 = 取跳转的最终地址 (局_网址 )返回 (局_网址 )
两种解析,能适用更多不同的域名。
好用就给点打赏呗,没精币提问题了
用了精易模块。
补充内容 (2023-11-2 03:31):
.版本 2
.子程序 取跳转的最终地址, 文本型, 公开, 获取一个网站重定向跳转的URL地址
.参数 地址, 文本型
.局部变量 http, 对象
.局部变量 p, 变体型
.... |