仰望模块 解析蓝奏云直链_ 方法失效

99101617

仰望模块- 视窗-    解析蓝奏云直链_    方法测试失效，前几天还能用，今天测试了下就不行了。这是不是蓝奏云平台更新导致的

黑色毛嗑儿

两周前蓝奏更新了，安卓现在还正常

99101617

黑色毛嗑儿 发表于 2025-4-15 09:13
两周前蓝奏更新了，安卓现在还正常

昨晚想的办法是仿照视窗官方案例，点击开始更新按钮后，自动点击网页上的下载按钮，网页可以隐藏不让用户看到，这样就不用怕各类平台更新了

341991

没找到蓝奏解析的替代品，索性修复了一下仰望的，火山不能调试真的太反人类了，只能用调试输出，真的拉跨，最起码免费版给个调试功能，小众软件发展不起来是有原因的。

<火山程序 类型 = "通常" 版本 = 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:"))
            跳出循环
        }
    }
    返回 (最终链接)
}