Jelajahi Sumber

:ok_hand: 更新一部分 LTCatt 的审核

youzi-2333 2 tahun lalu
induk
melakukan
89f537a00e

+ 16 - 1
Plain Craft Launcher 2/Modules/Minecraft/ModDownload.vb

@@ -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 下载地址")

+ 1 - 1
Plain Craft Launcher 2/Pages/PageDownload/PageDownloadMod.xaml

@@ -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>