refactor: NeoForge BMCLAPI 版本列表（爱来自 bangbang93）

fix: 安装 NeoForge 整合包时的参数初始化不正确 chores: 在低版本（<=1.19）的自动安装界面将不会显示 NeoForge
2024-06-30 15:01:06 +08:00
parent 4dba7c969c
commit 3c44a55b37
3 changed files with 44 additions and 31 deletions
@@ -1300,7 +1300,7 @@ Retry:
        Dim DownloadInfo = If(IsNeo, DownloadNeoInfo, DownloadForgeInfo)
        If IsNeo Then '兜底，有的时候 DownloadInfo 可能是空的
            If DownloadNeoInfo Is Nothing Then
-                DownloadInfo.VersionName = Version
+                DownloadInfo = New DlNeoForgeVersionEntry With {.VersionName = Version}
                Version = Version.Replace("neoforge-", "").Replace("-beta", "").Replace("1.20.1-", "")
                DownloadInfo.VersionCode = Version
                If Version.Contains("-beta") Then DownloadInfo.IsBeta = True