2.99.0.0

2026-10-20 14:33:23 +08:00
parent 5ef81e490a
commit e4b0489a22
10 changed files with 79 additions and 302 deletions
@@ -14,7 +14,11 @@ Public Class PageDownloadInstall

    Public Overridable Sub LoaderInit() Handles Me.Initialized
        ControlInit()
-        PageLoaderInit(LoadMinecraft, PanLoad, PanAllBack, Nothing, DlClientListLoader, AddressOf LoadMinecraft_OnFinish)
+        If RestrictMcDownload Then
+            PageLoaderInit(LoadMinecraft, PanLoad, PanAllBack, Nothing, New LoaderTask(Of String, DlClientListResult)("关闭下载", Sub() Throw New Exception("为遵守相关法律法规，PCL 暂时不再提供 MC 下载功能，非常抱歉 qwq……")), AddressOf LoadMinecraft_OnFinish)
+        Else
+            PageLoaderInit(LoadMinecraft, PanLoad, PanAllBack, Nothing, DlClientListLoader, AddressOf LoadMinecraft_OnFinish)
+        End If
    End Sub

    Private IsLoad As Boolean = False
@@ -312,7 +312,7 @@ Public Class PageDownloadModify
        TextSelectName.ValidateRules = New ObjectModel.Collection(Of Validate) From {
            New ValidateFolderName(McFolderSelected & "versions", IgnoreList:=New List(Of String) From {OriginalName})}
        '修改页 UI
-        CardMinecraft.Visibility = Visibility.Visible
+        CardMinecraft.Visibility = If(RestrictMcDownload, Visibility.Collapsed, Visibility.Visible)
        BtnBack.Visibility = Visibility.Collapsed
        ImgLogo.Margin = New Thickness(15, 15, 0, 0)
        TextSelectName.Margin = New Thickness(56, 16, 16, 0)
@@ -272,7 +272,7 @@ GroupDone:
        End If
        '实例化每个元素
        For Each Version In Versions
-            If TargetResourceType = ResourceTypes.ModPack Then
+            If Not RestrictMcDownload AndAlso TargetResourceType = ResourceTypes.ModPack Then
                Stack.Children.Add(Version.ToListItem(AddressOf Install_Click, AddressOf Save_Click, IsBadDisplay:=HasDuplicates))
            Else
                Stack.Children.Add(Version.ToListItem(AddressOf Save_Click, IsBadDisplay:=HasDuplicates))