InfStarMC/PCL-ISE
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

feat: NeoForge 整合包安装

Browse Source 
fix: 部分情况下安装 NeoForge 会失败（DownloadInfo 为空）
This commit is contained in:
Pigeon0v0
2024-06-16 15:29:30 +08:00
parent 66182f2cd0
commit f3079dd619
2 changed files with 41 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Plain Craft Launcher 2/Pages/PageDownload/ModDownloadLib.vb
+18 -2
View File
@@ -1973,11 +1973,27 @@ Retry:
''' <summary>
''' 获取下载某个 NeoForge 版本的加载器列表。
''' </summary>
Private Function McDownloadNeoForgeLoader(Version As String, Inherit As String, Optional DownloadInfo As DlNeoForgeVersionEntry = Nothing, Optional McFolder As String = Nothing, Optional ClientDownloadLoader As LoaderCombo(Of String) = Nothing, Optional ClientFolder As String = Nothing, Optional FixLibrary As Boolean = True) As List(Of LoaderBase)
Private Function McDownloadNeoForgeLoader(Version As String, Inherit As String, Optional DownloadRawInfo As DlNeoForgeVersionEntry = Nothing, Optional McFolder As String = Nothing, Optional ClientDownloadLoader As LoaderCombo(Of String) = Nothing, Optional ClientFolder As String = Nothing, Optional FixLibrary As Boolean = True) As List(Of LoaderBase)
'参数初始化
Dim DownloadInfo As New DlNeoForgeVersionEntry
McFolder = If(McFolder, PathMcFolder)
Version = DownloadInfo.StdVersion
If DownloadRawInfo Is Nothing Then '兜底，有的时候 DownloadInfo 可能是空的
If Version.Contains("-beta") Then
DownloadInfo.Version = Version
Version = Version.Replace("neoforge-", "").Replace("-beta", "").Replace("1.20.1-", "")
DownloadInfo.StdVersion = Version
DownloadInfo.IsBeta = True
Else
DownloadInfo.Version = Version
Version = Version.Replace("neoforge-", "").Replace("1.20.1-", "")
DownloadInfo.StdVersion = Version
DownloadInfo.IsBeta = False
End If
Else
DownloadInfo = DownloadRawInfo
Version = DownloadInfo.StdVersion
End If
Dim IsCustomFolder As Boolean = McFolder <> PathMcFolder
Dim Id As String = DownloadInfo.Version
Dim InstallerAddress As String = PathTemp & "Cache\Code\NeoForgeInstall-" & Version & "_" & RandomInteger(0, 100000)