👌 更新一部分 LTCatt 的审核

This commit is contained in:
youzi-2333
2024-07-26 22:52:28 +08:00
parent e69b189c8b
commit 89f537a00e
2 changed files with 17 additions and 2 deletions
@@ -1,4 +1,6 @@
Public Module ModDownload Imports System.Security.Policy
Public Module ModDownload
#Region "DlClient* | Minecraft 客户端" #Region "DlClient* | Minecraft 客户端"
@@ -1092,6 +1094,19 @@
MojangBase MojangBase
} }
End Function End Function
Public Function DlSourceCfOrMrGet(CfMrBase As String) As String()
If CfMrBase Is Nothing Then Throw New Exception("无对应的 Mod 下载地址")
Return {
CfMrBase.Replace("api.modrinth.com/v2", "mod.mcmirror.top/modrinth") _
.Replace("staging-api.modrinth.com/v2", "mod.mcmirror.top/modrinth") _
.Replace("cdn.modrinth.com", "mod.mcimirror.top") _
.Replace("api.curseforge.com", "mod.mcimirror.top/curseforge") _
.Replace("edge.forgecdn.net", "mod.mcimirror.top") _
.Replace("mediafilez.forgecdn.net", "mod.mcimirror.top") _
.Replace("media.forgecdn.net", "mod.mcimirror.top"),
CfMrBase
}
End Function
Public Function DlSourceLauncherOrMetaGet(MojangBase As String) As String() Public Function DlSourceLauncherOrMetaGet(MojangBase As String) As String()
If MojangBase Is Nothing Then Throw New Exception("无对应的 json 下载地址") If MojangBase Is Nothing Then Throw New Exception("无对应的 json 下载地址")
@@ -98,7 +98,7 @@
</StackPanel> </StackPanel>
</local:MyCard> </local:MyCard>
<StackPanel x:Name="PanContent"> <StackPanel x:Name="PanContent">
<local:MyHint x:Name="HintError" Text="无法连接到 Modrinth,所以目前仅显示了来自 CurseForge 的内容,结果可能不全。&#xa;请尝试在 设置 → 启动器 → Mod 信息获取 中切换到镜像源,或者使用 VPN 或加速器以改善网络。" IsWarn="True" Margin="0,0,0,15" /> <local:MyHint x:Name="HintError" Text="无法连接到 Modrinth,所以目前仅显示了来自 CurseForge 的内容,结果可能不全。&#xa;请尝试使用 VPN 或加速器以改善网络。" IsWarn="True" Margin="0,0,0,15" />
<local:MyCard x:Name="CardProjects" UseAnimation="False"> <local:MyCard x:Name="CardProjects" UseAnimation="False">
<StackPanel x:Name="PanProjects" Margin="12" /> <StackPanel x:Name="PanProjects" Margin="12" />
</local:MyCard> </local:MyCard>