This commit is contained in:
LTCat
2026-10-20 14:33:23 +08:00
parent 5ef81e490a
commit e4b0489a22
10 changed files with 79 additions and 302 deletions
@@ -8,6 +8,10 @@ Public Module ModModpack
''' 弹窗要求选择一个整合包文件并进行安装。
''' </summary>
Public Sub ModpackInstall()
If RestrictMcDownload Then
Hint("为遵守相关法律法规,PCL 暂时不再提供 MC 下载功能,非常抱歉 qwq……", HintType.Red)
Return
End If
Dim File As String = Dialogs.SelectFile("选择整合包压缩文件", False, filter:={({"rar", "zip", "mrpack"}, "整合包文件")}).FirstOrDefault() '选择整合包文件
If String.IsNullOrEmpty(File) Then Return
RunInThread(
@@ -81,6 +85,7 @@ Public Module ModModpack
End If
End Try
'执行对应的安装方法
If RestrictMcDownload Then Throw New Exception("为遵守相关法律法规,PCL 暂时不再提供 MC 下载功能,非常抱歉 qwq……")
Select Case PackType
Case 0
Logger.Info("整合包种类:CurseForge")