精易论坛

标题: 蓝奏云密码直链解析 [打印本页]

---

作者: 果心豆腐酱    时间: 2023-11-1 00:50
标题: 蓝奏云密码直链解析

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文件名	文本型

调试输出 (蓝奏云_取直链_有密码 (“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, , , , 蓝奏云_协议头, , , , , , , , , , , , , ))
' 调试输出 (网页源码)
' 正则.创建 (“([\s\S]*?)
”, 网页源码, , , , 真)
' 文件名 ＝ 正则.取子匹配文本 (1, 2, )
正则.创建 (“action=(.*?)&sign=(.{10,}?)&p=”, 网页源码, , , , )
action ＝ 正则.取子匹配文本 (1, 1, )
sign ＝ 正则.取子匹配文本 (1, 2, )
如果真 (action ＝ “”)
action ＝ “downprocess”
如果真 (sign ＝ “” 或 取文本长度 (sign) ＜ 70)
正则.创建 (“[0-9a-zA-Z\_]{70,}”, 网页源码, , , , )
sign ＝ 正则.取匹配文本 (1, )
' 调试输出 (sign)
如果真 (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://”, , , 假)
局_网址 ＝ 取跳转的最终地址 (局_网址)

返回 (局_网址)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文件名, 文本型<br /> <br /> 调试输出 (蓝奏云_取直链_有密码 (“https://tgif.lanzouw.com/b029dmp8f”, “520”, 文件名), 文件名)<br /> 调试输出 (蓝奏云_取直链_有密码 (“https://police.lanzoue.com/iMv1l0ld6wib”, “euss”, 文件名), 文件名)<br /> <br /> <br /> .子程序 蓝奏云_取直链_有密码, 文本型, 公开<br /> .参数 网址, 文本型<br /> .参数 密码, 文本型<br /> .参数 文件名, 文本型, 参考<br /> .局部变量 蓝奏云_协议头, 文本型<br /> .局部变量 网页源码, 文本型<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 sign, 文本型<br /> .局部变量 局_网址, 文本型<br /> .局部变量 action, 文本型<br /> .局部变量 域名, 文本型<br /> <br /> <br /> 正则.创建 (“[a-zA-z]+://[a-zA-Z0-9][-a-zA-Z0-9]{0,62}(\.[a-zA-Z0-9][-a-zA-Z0-9]{0,62})+\.?”, 网址, , , , )<br /> 域名 ＝ 正则.取匹配文本 (1, )<br /> 蓝奏云_协议头 ＝ “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: ” ＋ 域名<br /> 网页源码 ＝ 编码_Utf8到Ansi (网页_访问_对象 (网址, 0, , , , 蓝奏云_协议头, , , , , , , , , , , , , ))<br /> ' 调试输出 (网页源码)<br /> ' 正则.创建 (“([\s\S]*?)<br /> ”, 网页源码, , , , 真)<br /> ' 文件名 ＝ 正则.取子匹配文本 (1, 2, )<br /> <br /> 正则.创建 (“action=(.*?)&sign=(.{10,}?)&p=”, 网页源码, , , , )<br /> action ＝ 正则.取子匹配文本 (1, 1, )<br /> sign ＝ 正则.取子匹配文本 (1, 2, )<br /> .如果真 (action ＝ “”)<br />     action ＝ “downprocess”<br /> .如果真结束<br /> .如果真 (sign ＝ “” 或 取文本长度 (sign) ＜ 70)<br />     正则.创建 (“[0-9a-zA-Z\_]{70,}”, 网页源码, , , , )<br />     sign ＝ 正则.取匹配文本 (1, )<br />     ' 调试输出 (sign)<br /> .如果真结束<br /> .如果真 (sign ＝ “”)<br /> <br />     返回 (蓝奏云_取直链_有密码2 (网址, 密码, 文件名))<br /> .如果真结束<br /> 网页源码 ＝ 到文本 (网页_访问_对象 (域名 ＋ “/ajaxm.php”, 1, “action=” ＋ action ＋ “&sign=” ＋ sign ＋ “&p=” ＋ 密码, , , 蓝奏云_协议头, , , , , , , , , , , , , ))<br /> 局_网址 ＝ 文本_取出中间文本 (网页源码, “dom” ＋ #引号 ＋ “:” ＋ #引号 ＋ “”, “” ＋ #引号 ＋ “,”, , ) ＋ “/file/” ＋ 文本_取出中间文本 (网页源码, “url” ＋ #引号 ＋ “:” ＋ #引号, #引号, , )<br /> 局_网址 ＝ 子文本替换 (局_网址, “\”, “”, , , 真)<br /> 文件名 ＝ 文本_取出中间文本 (网页源码, “inf” ＋ #引号 ＋ “:” ＋ #引号 ＋ “”, #引号, , )<br /> 局_网址 ＝ 取跳转的最终地址 (局_网址)<br /> .如果真 (局_网址 ＝ “”)<br />     局_网址 ＝ 子文本替换 (局_网址, “https://”, “http://”, , , 假)<br />     局_网址 ＝ 取跳转的最终地址 (局_网址)<br /> .如果真结束<br /> 返回 (局_网址)<br /> <br /> .子程序 蓝奏云_取直链_有密码2, 文本型, 公开<br /> .参数 网址, 文本型<br /> .参数 密码, 文本型<br /> .参数 文件名, 文本型, 参考<br /> .局部变量 蓝奏云_协议头, 文本型<br /> .局部变量 网页源码, 文本型<br /> .局部变量 sign, 文本型<br /> .局部变量 局_网址, 文本型<br /> .局部变量 action, 文本型<br /> .局部变量 域名, 文本型<br /> .局部变量 _hg2q2, 文本型<br /> .局部变量 t, 文本型<br /> .局部变量 ls, 文本型<br /> .局部变量 pwd, 文本型<br /> .局部变量 pg, 文本型<br /> .局部变量 lx, 文本型<br /> .局部变量 fid, 文本型<br /> .局部变量 uid, 文本型<br /> .局部变量 rep, 文本型<br /> .局部变量 k, 文本型<br /> .局部变量 up, 文本型<br /> .局部变量 内容, 文本型<br /> .局部变量 post数据, 文本型<br /> .局部变量 id, 文本型<br /> .局部变量 fn, 文本型<br /> .局部变量 signs, 文本型<br /> .局部变量 ves, 文本型<br /> .局部变量 websign, 文本型<br /> .局部变量 websignkey, 文本型<br /> .局部变量 数据, 字节集<br /> .局部变量 正则, 正则表达式类<br /> <br /> <br /> 正则.创建 (“[a-zA-z]+://[a-zA-Z0-9][-a-zA-Z0-9]{0,62}(\.[a-zA-Z0-9][-a-zA-Z0-9]{0,62})+\.?”, 网址, , , , )<br /> 域名 ＝ 正则.取匹配文本 (1, )<br /> 蓝奏云_协议头 ＝ “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: ” ＋ 域名<br /> 网页源码 ＝ 编码_Utf8到Ansi (网页_访问_对象 (网址, 0, , , , 蓝奏云_协议头, , , , , , , , , , , , , ))<br /> ' 调试输出 (网页源码)<br /> <br /> k ＝ 文本_取出中间文本 (网页源码, “k':”, “,”, , )<br /> k ＝ 文本_取出中间文本 (网页源码, k ＋ “ = '”, “';”, , )<br /> t ＝ 文本_取出中间文本 (网页源码, “t':”, “,”, , )<br /> t ＝ 文本_取出中间文本 (网页源码, t ＋ “ = '”, “';”, , )<br /> rep ＝ 文本_取出中间文本 (网页源码, “rep':'”, “',”, , )<br /> lx ＝ 文本_取出中间文本 (网页源码, “lx':”, “,”, , )<br /> fid ＝ 文本_取出中间文本 (网页源码, “fid':”, “,”, , )<br /> uid ＝ 文本_取出中间文本 (网页源码, “uid':'”, “',”, , )<br /> up ＝ 文本_取出中间文本 (网页源码, “up':”, “,”, , )<br /> ls ＝ 文本_取出中间文本 (网页源码, “ls':”, “,”, , )<br /> pg ＝ 文本_取出中间文本 (网页源码, “pgs =”, “;”, , )<br /> pwd ＝ 密码<br /> post数据 ＝ “lx=” ＋ lx ＋ “&fid=” ＋ fid ＋ “&uid=” ＋ uid ＋ “&pg=” ＋ pg ＋ “&rep=” ＋ rep ＋ “&t=” ＋ t ＋ “&k=” ＋ k ＋ “&up=” ＋ up ＋ “&ls=” ＋ ls ＋ “&pwd=” ＋ pwd<br /> <br /> 内容 ＝ 编码_Utf8到Ansi (网页_访问_对象 (域名 ＋ “/filemoreajax.php”, 1, post数据, , , 蓝奏云_协议头, , , , , , , , , , , , , ))<br /> id ＝ 文本_取出中间文本 (内容, “id” ＋ #引号 ＋ “:” ＋ #引号 ＋ “”, “” ＋ #引号 ＋ “,”, , )<br /> 文件名 ＝ 编码_usc2到ansi (文本_取出中间文本 (内容, “name_all” ＋ #引号 ＋ “:” ＋ #引号 ＋ “”, “” ＋ #引号 ＋ “,”, , ))<br /> 数据 ＝ 网页_访问_对象 (域名 ＋ “/” ＋ id, 0, , , , 蓝奏云_协议头, , , , , , , , , , , , , )<br /> 内容 ＝ 编码_Utf8到Ansi (数据)<br /> 正则.创建 (“]*src=” ＋ #引号 ＋ “([^” ＋ #引号 ＋ “]+)” ＋ #引号 ＋ “”, 内容, , , , )<br /> fn ＝ 正则.取子匹配文本 (正则.取匹配数量 (), 1, )<br /> 内容 ＝ 编码_Utf8到Ansi (网页_访问_对象 (域名 ＋ “/” ＋ fn, , , , , 蓝奏云_协议头, , , , , , , , , , , , , ))<br /> <br /> action ＝ 文本_取出中间文本 (内容, “action':'”, “',”, , )<br /> sign ＝ 文本_取出中间文本 (内容, “sign':'”, “',”, , )<br /> signs ＝ 文本_取出中间文本 (内容, “signs':”, “,”, , )<br /> signs ＝ 文本_取出中间文本 (内容, signs ＋ “ = '”, “';”, , )<br /> websign ＝ 文本_取出中间文本 (内容, “websign':”, “,”, , )<br /> websign ＝ 文本_取出中间文本 (内容, websign ＋ “ = '”, “';”, , )<br /> websignkey ＝ 文本_取出中间文本 (内容, “websignkey':”, “,”, , )<br /> websignkey ＝ 文本_取出中间文本 (内容, websignkey ＋ “ = '”, “';”, , )<br /> ves ＝ 文本_取出中间文本 (内容, “ves':”, “ }”, , )<br /> post数据 ＝ “action=” ＋ action ＋ “&sign=” ＋ sign ＋ “&signs=” ＋ signs ＋ “&websign=” ＋ websign ＋ “&websignkey=” ＋ websignkey ＋ “&ves=” ＋ ves<br /> 内容 ＝ 编码_Utf8到Ansi (网页_访问_对象 (域名 ＋ “//ajaxm.php”, 1, post数据, , , 蓝奏云_协议头, , , , , , , , , , , , , ))<br /> <br /> 局_网址 ＝ 文本_取出中间文本 (内容, “dom” ＋ #引号 ＋ “:” ＋ #引号 ＋ “”, “” ＋ #引号 ＋ “,”, , ) ＋ “/file/” ＋ 文本_取出中间文本 (内容, “url” ＋ #引号 ＋ “:” ＋ #引号, #引号, , )<br /> 局_网址 ＝ 子文本替换 (局_网址, “\”, “”, , , 真)<br /> 局_网址 ＝ 取跳转的最终地址 (局_网址)<br /> .如果真 (局_网址 ＝ “”)<br />     局_网址 ＝ 子文本替换 (局_网址, “https://”, “http://”, , , 假)<br />     局_网址 ＝ 取跳转的最终地址 (局_网址)<br /> .如果真结束<br /> <br /> 返回 (局_网址)

两种解析，能适用更多不同的域名。
好用就给点打赏呗，没精币提问题了
用了精易模块。




补充内容 (2023-11-2 03:31):
.版本 2

.子程序 取跳转的最终地址, 文本型, 公开, 获取一个网站重定向跳转的URL地址
.参数 地址, 文本型
.局部变量 http, 对象
.局部变量 p, 变体型

....

---

作者: pipicool    时间: 2023-11-1 01:10
学习一下

---

作者: 瘦瘦的小四    时间: 2023-11-1 03:11
缺命令 大佬

---

作者: fmh111    时间: 2023-11-1 03:18
来看看看

---

作者: 396384183    时间: 2023-11-1 07:48
学习一下

---

作者: 查过    时间: 2023-11-1 07:58
感谢您对论坛的支持！

---

作者: 豆豆灰常开心    时间: 2023-11-1 08:02
感谢发布原创作品，精易因你更精彩！6666666666666

---

作者: 没事瞎琢磨    时间: 2023-11-1 08:24
感谢分享，很给力！~

---

作者: 一指温柔    时间: 2023-11-1 08:50
感谢分享，很给力！~

---

作者: TL小毅哥    时间: 2023-11-1 10:06
.版本 2

.子程序 取跳转的最终地址, 文本型, , 获取一个网站重定向跳转的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.取文本 ())
.如果真结束
返回 (“”)

缺少这个命令呢  大佬  是我这个不对吗  解析不出来呢

---

作者: 胖虎O    时间: 2023-11-1 16:43
看一下好东西了

---

作者: ZHuanR    时间: 2023-11-1 17:56
新技能已get√

---

作者: 风景好靓    时间: 2023-11-1 18:26
看一下好东西了

---

作者: 深圳梦    时间: 2023-11-1 19:25
支持开源~！感谢分享

---

作者: Anleton    时间: 2023-11-1 21:10
谢谢提供，学习一下

---

作者: bianyuan456    时间: 2023-11-1 22:47
已经顶贴，感谢您对论坛的支持！

---

作者: 财财发大财    时间: 2023-11-1 23:33
谢谢提供，学习一下

---

作者: AdGame    时间: 2023-11-1 23:48
取跳转的最终地址
没有这个

---

作者: godandwoman    时间: 2023-11-1 23:54
支持开源~！感谢分享

---

作者: 果心豆腐酱    时间: 2023-11-2 03:32

  

子程序名	返回值类型	公开	备 注
取跳转的最终地址	文本型		获取一个网站重定向跳转的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.取文本 ())
返回 (“”)

.版本 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 /> 返回 (“”)

就是取重定向地址

---

作者: 果心豆腐酱    时间: 2023-11-2 03:33

TL小毅哥 发表于 2023-11-1 10:06
.版本 2

.子程序 取跳转的最终地址, 文本型, , 获取一个网站重定向跳转的URL地址

.版本 2

.子程序 取跳转的最终地址, 文本型, 公开, 获取一个网站重定向跳转的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.取文本 ())
.如果真结束
返回 (“”)
你把分享链接发我看下

---

作者: 果心豆腐酱    时间: 2023-11-2 03:33

瘦瘦的小四 发表于 2023-11-1 03:11
缺命令 大佬

放置顶了

---

作者: AdGame    时间: 2023-11-2 03:38
不知道什么问题，方便直接传个源码吗

---

作者: 果心豆腐酱    时间: 2023-11-2 03:40

AdGame 发表于 2023-11-2 03:38
不知道什么问题，方便直接传个源码吗

.版本 2
.支持库 spec

.子程序 网页_发包, , , 本子程序由【YZYZ-菜鸟编程小助手】生成
.局部变量 局_地址, 文本型, , , 调用精易模块 http://ec.125.la/
.局部变量 局_返回, 文本型

局_地址 ＝ “https://www.yuluoge.com/api/index.php”
网页_访问_对象 (局_地址, , , , , , 局_返回, , 真, , , , , , , , )
局_返回 ＝ 文本_取出中间文本 (局_返回, “Location: ”, #换行符)
调试输出 (局_返回)

---

作者: AdGame    时间: 2023-11-2 03:45

果心豆腐酱 发表于 2023-11-2 03:40
.版本 2
.支持库 spec

什么啊？？？

---

作者: 果心豆腐酱    时间: 2023-11-2 04:51

AdGame 发表于 2023-11-2 03:45
什么啊？？？

这就是取重定向地址的代码啊。

---

作者: zaozi    时间: 2023-11-2 06:50
支持开源~！感谢分享

---

作者: TL小毅哥    时间: 2023-11-2 06:59

果心豆腐酱 发表于 2023-11-2 03:33
.版本 2

.子程序 取跳转的最终地址, 文本型, 公开, 获取一个网站重定向跳转的URL地址

蓝奏云_取直链_有密码Ex
https://125.confly.eu.org/forum.php?mod=viewthread&tid=14801106
(出处: 精易论坛)
用这个解决了  帖子还是采纳你的

---

作者: 查过    时间: 2023-11-2 07:09
感谢楼主分享！

---

作者: 豆豆灰常开心    时间: 2023-11-2 07:14
已经顶贴，感谢您对论坛的支持！

---

作者: 光影魔术    时间: 2023-11-3 19:06
感谢分享源码

---

作者: ytbihay    时间: 2023-11-4 10:59
感谢分享，支持

---

作者: 南絮    时间: 2023-11-14 08:35
感谢感谢

---

作者: fastdao    时间: 2023-11-15 08:36

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4