fix: NeoForge 版本列表排序，但是抽象实现

2024-06-15 23:12:42 +08:00
parent e731ef69d4
commit 8d9dc4712b
3 changed files with 14 additions and 7 deletions
@@ -2241,11 +2241,10 @@ Retry:
        '获取最新版本
        Dim FreshVersion As DlNeoForgeVersionEntry = Nothing
        If Entrys.Any Then
-            FreshVersion = Entrys(0)
+            FreshVersion = Entrys.Last()
        Else
            Log("[System] 未找到可用的 NeoForge 版本", LogLevel.Debug)
        End If
-        Dim RecommendedVersion As DlNeoForgeVersionEntry = Nothing
        '显示各个版本
        If FreshVersion IsNot Nothing Then
            Dim Fresh = NeoForgeDownloadListItem(FreshVersion, OnClick, IsSaveOnly)