仰望模块 解析蓝奏云直链_ 方法失效
仰望模块- 视窗- 解析蓝奏云直链_ 方法测试失效，前几天还能用，今天测试了下就不行了。这是不是蓝奏云平台更新导致的两周前蓝奏更新了，安卓现在还正常 黑色毛嗑儿 发表于 2025-4-15 09:13
两周前蓝奏更新了，安卓现在还正常
昨晚想的办法是仿照视窗官方案例，点击开始更新按钮后，自动点击网页上的下载按钮，网页可以隐藏不让用户看到，这样就不用怕各类平台更新了 没找到蓝奏解析的替代品，索性修复了一下仰望的，火山不能调试真的太反人类了，只能用调试输出，真的拉跨，最起码免费版给个调试功能，小众软件发展不起来是有原因的。:@:@
<火山程序 类型 = "通常" 版本 = 1 />
方法 解析蓝奏云直链_ <公开 静态 类型 = 文本型 注释 = "无密码版本" "">
参数 解析网址 <类型 = 文本型 注释 = "例如：https://ywxk.lanzoui.com/in2fddbbfbg" "">
参数 密码 <类型 = 文本型 @默认值 = "">
{
变量 访问 <类型 = 网络访问类_>
变量 提交信息 <类型 = 文本型>
变量 网页数据 <类型 = 文本型>
变量 左网址 <类型 = 文本型>
变量 组合网址 <类型 = 文本型>
变量 参数包 <类型 = 文本数组类>
变量 json <类型 = JSON对象类_>
变量 最终链接 <类型 = 文本型>
变量 最终链接2 <类型 = 文本型>
变量 附加数据 <类型 = 文本型>
变量 正则 <类型 = 正则类_>
变量 sign <类型 = 文本型>
变量 公式 <类型 = 文本型 值 = "[\\d\\w\\_]{70,}">
变量 file_id <类型 = 文本型>
如果 (密码 == "")
{
网页数据 = 访问.网页访问_T (解析网址, , , , , , 0)
如果真 (取文本长度 (网页数据) < 50)
{
返回 ("取网页数据失败1")
}
左网址 = 取文本左边_ (解析网址, "/", 8) + "/"
正则.创建 (公式, 网页数据, , , )
如果 (正则.取匹配数量 () == 1)
{
sign = 正则.取匹配文本 (0, )
}
否则
{
返回 ("匹配参数失败1")
}
组合网址 = 左网址 + "fn?" + sign
网页数据 = 访问.网页访问_T (组合网址, 0)
// 去除注释
变量 注释文本 <类型 = 文本型>
判断循环 (真)
{
注释文本 = 取文本中间_ (网页数据, "//", "\n")
如果 (文本是否为空 (注释文本))
{
跳出循环
}
替换所有子文本 (网页数据, "//" + 注释文本, "")
}
如果真 (取文本长度 (网页数据) < 50)
{
返回 ("取网页数据失败2")
}
正则.创建 (公式, 网页数据, , , )
如果 (正则.取匹配数量 () == 1)
{
sign = 正则.取匹配文本 (0, )
}
否则
{
返回 ("匹配参数失败2")
}
加入文本 (附加数据, "referer:" + 组合网址 + "\r\n")
提交信息 = "action=downprocess&sign=" + sign + "&ves=1"
file_id = 文本_取文本中间 (网页数据, "'/ajaxm.php?file=", "'")
如果 (文本是否为空 (file_id))
{
返回 ("Get FileID Failed")
}
网页数据 = 访问.网页访问_T (左网址 + "ajaxm.php?file=" + file_id, 1, 提交信息, , 附加数据, , 0, , , , , , , , , , , , )
如果真 (取文本长度 (网页数据) < 50)
{
返回 ("取网页数据失败3")
}
json.创建自文本 (网页数据)
最终链接 = json.取文本值 ("dom") + "/file/" + json.取文本值 ("url")
访问.网页访问_T (最终链接, , , , , , -1, , 网页数据)
最终链接2 = "获取地址失败"
分割文本 (网页数据, "\n", 参数包)
参数包.枚举循环 ()
{
如果真 (取文本左边 (参数包.取枚举值 (), 9) == "Location:")
{
最终链接2 = 删首尾空 (取文本右边_ (参数包.取枚举值 (), "Location:"))
如果真 (取文本长度 (最终链接2) > 30)
{
最终链接 = 最终链接2
}
跳出循环
}
}
}
否则
{
最终链接 = 解析蓝奏云 (解析网址, 密码)
}
返回 (最终链接)
}
方法 解析蓝奏云 <静态 类型 = 文本型 注释 = "带密码版本" "">
参数 解析网址 <类型 = 文本型 "">
参数 密码 <类型 = 文本型>
{
变量 访问 <类型 = 网络访问类_ 编辑时信息 = "0, 9FFF6, 0, 0">
变量 提交信息 <类型 = 文本型 编辑时信息 = "0, 9FFF6, 0, 0">
变量 网页数据 <类型 = 文本型 编辑时信息 = "0, 9FFF6, 0, 0">
变量 左网址 <类型 = 文本型 编辑时信息 = "0, 9FFF6, 0, 0">
变量 参数包 <类型 = 文本数组类 编辑时信息 = "0, 9FFF6, 0, 0">
变量 json <类型 = JSON对象类_ 编辑时信息 = "0, 9FFF6, 0, 0">
变量 最终链接 <类型 = 文本型 编辑时信息 = "0, 9FFF6, 0, 0">
变量 附加数据头 <类型 = 文本型 编辑时信息 = "0, 9FFF6, 0, 0">
变量 正则 <类型 = 正则类_ 编辑时信息 = "0, 9FFF6, 0, 0">
变量 临时参数 <类型 = 文本型 编辑时信息 = "0, 9FFF6, 0, 0">
变量 公式 <类型 = 文本型 值 = "[\\d\\w\\_]{70,}" 编辑时信息 = "0, 9FFF6, 0, 0">
变量 UA <类型 = 文本型
值 = "User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/94.0.4606.71 Safari/537.36 Core/1.94.209.400 QQBrowser/12.0.5442.400"
编辑时信息 = "0, 9FFF6, 0, 0">
变量 file_id <类型 = 文本型>
网页数据 = 访问.网页访问_T (解析网址, , , , , , 0)
// 去除注释
变量 注释文本 <类型 = 文本型>
判断循环 (真)
{
注释文本 = 取文本中间_ (网页数据, "/*", "*/")
如果 (文本是否为空 (注释文本))
{
跳出循环
}
替换所有子文本 (网页数据, "/*" + 注释文本 + "*/", "")
}
如果真 (取文本长度 (网页数据) < 50)
{
返回 ("取网页数据失败1")
}
左网址 = 取文本左边_ (解析网址, "/", 8) + "/"
正则.创建 (公式, 网页数据, , , )
如果 (正则.取匹配数量 () == 1)
{
临时参数 = 正则.取匹配文本 (0, )
}
否则
{
返回 ("匹配参数失败1")
}
提交信息 = "action=downprocess&sign=" + 临时参数 + "&p=" + 密码 + "&kd=1"
file_id = 文本_取文本中间 (网页数据, "'/ajaxm.php?file=", "'")
如果 (文本是否为空 (file_id))
{
返回 ("Get FileID Failed")
}
附加数据头 = "referer:" + 解析网址 + "\r\n" + UA
网页数据 = 访问.网页访问_T (左网址 + "ajaxm.php?file=" + file_id, 1, 提交信息, , 附加数据头, , 0)
如果真 (取文本长度 (网页数据) < 50)
{
返回 ("取网页数据失败2")
}
json.创建自文本 (网页数据)
最终链接 = json.取文本值 ("dom") + "/file/" + json.取文本值 ("url")
访问.网页访问_T (最终链接, , , , , , 0, , 网页数据)
置剪辑板文本 (最终链接)
最终链接 = "获取地址失败"
分割文本 (网页数据, "\n", 参数包)
参数包.枚举循环 ()
{
如果真 (取文本左边 (参数包.取枚举值 (), 9) == "Location:")
{
最终链接 = 删首尾空 (取文本右边_ (参数包.取枚举值 (), "Location:"))
跳出循环
}
}
返回 (最终链接)
}
页:
[1]