|
|
@@ -0,0 +1,747 @@
|
|
|
+Public Module ModJava
|
|
|
+ Public JavaListCacheVersion As Integer = 4
|
|
|
+
|
|
|
+ ''' <summary>
|
|
|
+ ''' 目前所有可用的 Java。
|
|
|
+ ''' </summary>
|
|
|
+ Public JavaList As New List(Of JavaEntry)
|
|
|
+
|
|
|
+ Public Class JavaEntry
|
|
|
+
|
|
|
+ '路径
|
|
|
+ ''' <summary>
|
|
|
+ ''' Java.exe 文件的完整路径。
|
|
|
+ ''' </summary>
|
|
|
+ Public ReadOnly Property PathJava As String
|
|
|
+ Get
|
|
|
+ Return PathFolder & "java.exe"
|
|
|
+ End Get
|
|
|
+ End Property
|
|
|
+ ''' <summary>
|
|
|
+ ''' Javaw.exe 文件的完整路径。
|
|
|
+ ''' </summary>
|
|
|
+ Public ReadOnly Property PathJavaw As String
|
|
|
+ Get
|
|
|
+ Return PathFolder & "javaw.exe"
|
|
|
+ End Get
|
|
|
+ End Property
|
|
|
+ ''' <summary>
|
|
|
+ ''' Javaw.exe 文件所在文件夹的路径，以 \ 结尾。
|
|
|
+ ''' </summary>
|
|
|
+ Public PathFolder As String
|
|
|
+ ''' <summary>
|
|
|
+ ''' 是否为用户手动导入的 Java。
|
|
|
+ ''' </summary>
|
|
|
+ Public IsUserImport As Boolean
|
|
|
+
|
|
|
+ '版本信息
|
|
|
+ ''' <summary>
|
|
|
+ ''' Java 的详细版本。若不足 4 位会在前方补 1，例如 1.16.0.1。
|
|
|
+ ''' 其大版本号为 Minor。
|
|
|
+ ''' </summary>
|
|
|
+ Public Version As Version
|
|
|
+ ''' <summary>
|
|
|
+ ''' Java 的大版本号。
|
|
|
+ ''' </summary>
|
|
|
+ Public ReadOnly Property VersionCode As Integer
|
|
|
+ Get
|
|
|
+ Return Version.Minor
|
|
|
+ End Get
|
|
|
+ End Property
|
|
|
+ ''' <summary>
|
|
|
+ ''' 是否为 Java Runtime Environment。
|
|
|
+ ''' </summary>
|
|
|
+ Public IsJre As Boolean
|
|
|
+ ''' <summary>
|
|
|
+ ''' 是否为 64 位 Java。
|
|
|
+ ''' </summary>
|
|
|
+ Public Is64Bit As Boolean
|
|
|
+ ''' <summary>
|
|
|
+ ''' 是否已设置环境变量。
|
|
|
+ ''' </summary>
|
|
|
+ Public ReadOnly Property HasEnvironment As Boolean
|
|
|
+ Get
|
|
|
+ If PathFolder Is Nothing OrElse PathEnv Is Nothing Then Return False
|
|
|
+ Return PathEnv.Replace("\", "").Replace("/", "").ToLower.Contains(PathFolder.Replace("\", "").ToLower)
|
|
|
+ End Get
|
|
|
+ End Property
|
|
|
+
|
|
|
+ '序列化
|
|
|
+ Public Function ToJson() As JObject
|
|
|
+ Return New JObject({New JProperty("Path", PathFolder), New JProperty("VersionString", Version.ToString), New JProperty("IsJre", IsJre), New JProperty("Is64Bit", Is64Bit), New JProperty("IsUserImport", IsUserImport)})
|
|
|
+ End Function
|
|
|
+ Public Shared Function FromJson(Data As JObject) As JavaEntry
|
|
|
+ Return New JavaEntry(Data("Path"), Data("IsUserImport")) With {.Version = New Version(Data("VersionString")), .IsJre = Data("IsJre"), .Is64Bit = Data("Is64Bit")}
|
|
|
+ End Function
|
|
|
+ ''' <summary>
|
|
|
+ ''' 转化为用户友好的字符串输出。
|
|
|
+ ''' </summary>
|
|
|
+ Public Overrides Function ToString() As String
|
|
|
+ Dim VersionString = Version.ToString
|
|
|
+ If VersionString.StartsWith("1.") Then VersionString = Mid(VersionString, 3)
|
|
|
+ Return If(IsJre, "JRE ", "JDK ") & VersionCode & " (" & VersionString & ")，" & If(Is64Bit, "64", "32") & " 位" & If(IsUserImport, "，手动导入", "") & "：" & PathFolder
|
|
|
+ End Function
|
|
|
+
|
|
|
+ '构造
|
|
|
+ ''' <summary>
|
|
|
+ ''' 输入 javaw.exe 文件所在文件夹的路径，不限制结尾。
|
|
|
+ ''' </summary>
|
|
|
+ Public Sub New(Folder As String, IsUserImport As Boolean)
|
|
|
+ If Not Folder.EndsWith("\") Then Folder += "\"
|
|
|
+ PathFolder = Folder.Replace("/", "\")
|
|
|
+ Me.IsUserImport = IsUserImport
|
|
|
+ End Sub
|
|
|
+
|
|
|
+ '方法
|
|
|
+ Private IsChecked As Boolean = False
|
|
|
+ ''' <summary>
|
|
|
+ ''' 检查并获取 Java 详细信息。在 Java 存在异常时抛出错误。
|
|
|
+ ''' </summary>
|
|
|
+ Public Sub Check()
|
|
|
+ If IsChecked Then Exit Sub
|
|
|
+ Dim Output As String = Nothing
|
|
|
+ Try
|
|
|
+ '确定文件存在
|
|
|
+ If Not File.Exists(PathJavaw) Then
|
|
|
+ Throw New FileNotFoundException("未找到 javaw.exe 文件", PathJavaw)
|
|
|
+ End If
|
|
|
+ If Not File.Exists(PathFolder & "java.exe") Then
|
|
|
+ Throw New FileNotFoundException("未找到 java.exe 文件", PathFolder & "java.exe")
|
|
|
+ End If
|
|
|
+ IsJre = Not File.Exists(PathFolder & "javac.exe")
|
|
|
+ '运行 -version
|
|
|
+ Output = ShellAndGetOutput(PathFolder & "java.exe", "-version", 15000).ToLower
|
|
|
+ If Output = "" Then Throw New Exception("尝试运行该 Java 失败")
|
|
|
+ If ModeDebug Then Log("[Java] Java 检查输出：" & PathFolder & "java.exe" & vbCrLf & Output)
|
|
|
+ '获取详细信息
|
|
|
+ Dim VersionString = If(RegexSeek(Output, "(?<=version "")[^""]+"), If(RegexSeek(Output, "(?<=openjdk )[0-9]+"), "")).Replace("_", ".").Split("-").First
|
|
|
+ Do While VersionString.Split(".").Count < 4
|
|
|
+ If VersionString.StartsWith("1.") Then
|
|
|
+ VersionString = VersionString & ".0"
|
|
|
+ Else
|
|
|
+ VersionString = "1." & VersionString
|
|
|
+ End If
|
|
|
+ Loop
|
|
|
+ Version = New Version(VersionString)
|
|
|
+ If Version.Minor = 0 Then
|
|
|
+ Log("[Java] 疑似 X.0.X.X 格式版本号：" & Version.ToString)
|
|
|
+ Version = New Version(1, Version.Major, Version.Build, Version.Revision)
|
|
|
+ End If
|
|
|
+ Is64Bit = Output.Contains("64-bit")
|
|
|
+ If Version.Minor <= 4 OrElse Version.Minor >= 25 Then Throw New Exception("分析详细信息失败，获取的版本为 " & Version.ToString)
|
|
|
+ '无论如何不允许使用 JRE 16，它完全是炸的，安 OptiFine、Forge 和启动 MC 都会炸
|
|
|
+ If IsJre AndAlso VersionCode = 16 Then Throw New Exception("由于 JRE 16 对 Minecraft 的兼容性很差，因此不再允许使用")
|
|
|
+ Catch ex As Exception
|
|
|
+ Log("[Java] 检查失败的 Java 输出：" & PathFolder & "java.exe" & vbCrLf & If(Output, "无程序输出"))
|
|
|
+ Throw New Exception("检查 Java 失败（" & If(PathJavaw, "Nothing") & "）", ex)
|
|
|
+ End Try
|
|
|
+ IsChecked = True
|
|
|
+ End Sub
|
|
|
+
|
|
|
+ End Class
|
|
|
+
|
|
|
+ ''' <summary>
|
|
|
+ ''' Path 环境变量。
|
|
|
+ ''' </summary>
|
|
|
+ Private ReadOnly Property PathEnv As String
|
|
|
+ Get
|
|
|
+ If _PathEnv Is Nothing Then _PathEnv = If(Environment.GetEnvironmentVariable("Path"), "")
|
|
|
+ Return _PathEnv
|
|
|
+ End Get
|
|
|
+ End Property
|
|
|
+ Private _PathEnv As String = Nothing
|
|
|
+
|
|
|
+ ''' <summary>
|
|
|
+ ''' JAVA_HOME 环境变量。
|
|
|
+ ''' </summary>
|
|
|
+ Private ReadOnly Property PathJavaHome As String
|
|
|
+ Get
|
|
|
+ If _PathJavaHome Is Nothing Then _PathJavaHome = If(Environment.GetEnvironmentVariable("JAVA_HOME"), "")
|
|
|
+ Return _PathJavaHome
|
|
|
+ End Get
|
|
|
+ End Property
|
|
|
+ Private _PathJavaHome As String = Nothing
|
|
|
+
|
|
|
+ ''' <summary>
|
|
|
+ ''' 初始化 Java 列表，但除非没有 Java，否则不进行检查。
|
|
|
+ ''' </summary>
|
|
|
+ Public Sub JavaListInit()
|
|
|
+ JavaList = New List(Of JavaEntry)
|
|
|
+ Try
|
|
|
+ If Setup.Get("CacheJavaListVersion") < JavaListCacheVersion Then
|
|
|
+ '不使用缓存
|
|
|
+ Log("[Java] 要求 Java 列表缓存更新")
|
|
|
+ Setup.Set("CacheJavaListVersion", JavaListCacheVersion)
|
|
|
+ Else
|
|
|
+ '使用缓存
|
|
|
+ For Each JsonEntry In GetJson(Setup.Get("LaunchArgumentJavaAll"))
|
|
|
+ JavaList.Add(JavaEntry.FromJson(JsonEntry))
|
|
|
+ Next
|
|
|
+ End If
|
|
|
+ If JavaList.Count = 0 Then
|
|
|
+ Log("[Java] 初始化未找到可用的 Java，将自动触发搜索", LogLevel.Developer)
|
|
|
+ JavaSearchLoader.Start(0)
|
|
|
+ Else
|
|
|
+ Log("[Java] 缓存中有 " & JavaList.Count & " 个可用的 Java")
|
|
|
+ End If
|
|
|
+ Catch ex As Exception
|
|
|
+ Log(ex, "初始化 Java 列表失败", LogLevel.Feedback)
|
|
|
+ Setup.Set("LaunchArgumentJavaAll", "[]")
|
|
|
+ End Try
|
|
|
+ End Sub
|
|
|
+ ''' <summary>
|
|
|
+ ''' 根据要求返回最适合的 Java，若找不到则返回 Nothing。
|
|
|
+ ''' 最小与最大版本在与输入相同时也会通过。
|
|
|
+ ''' 必须在工作线程调用。
|
|
|
+ ''' </summary>
|
|
|
+ Public Function JavaSelect(CancelException As String, Optional MinVersion As Version = Nothing, Optional MaxVersion As Version = Nothing,
|
|
|
+ Optional RelatedVersion As McVersion = Nothing) As JavaEntry
|
|
|
+ Try
|
|
|
+ Dim AllowedJavaList As New List(Of JavaEntry)
|
|
|
+
|
|
|
+ '添加特定的 Java
|
|
|
+ Dim JavaPreList As New Dictionary(Of String, Boolean)
|
|
|
+ If PathMcFolder.Split("\").Count > 3 Then JavaSearchFolder(GetPathFromFullPath(PathMcFolder), JavaPreList, False, True) 'Minecraft 文件夹的父文件夹（如果不是根目录的话）
|
|
|
+ JavaSearchFolder(PathMcFolder, JavaPreList, False, True) 'Minecraft 文件夹
|
|
|
+ If RelatedVersion IsNot Nothing Then JavaSearchFolder(RelatedVersion.Path, JavaPreList, False, True) '所选版本文件夹
|
|
|
+ Dim TargetJavaList As New List(Of JavaEntry)
|
|
|
+ For Each Entry In JavaPreList
|
|
|
+ TargetJavaList.Add(New JavaEntry(Entry.Key, Entry.Value))
|
|
|
+ Next
|
|
|
+
|
|
|
+#Region "添加用户指定的 Java，储存到 UserJava 中"
|
|
|
+
|
|
|
+ Dim UserJava As JavaEntry = Nothing
|
|
|
+
|
|
|
+ '获取版本独立设置中指定的 Java
|
|
|
+ If RelatedVersion IsNot Nothing AndAlso Setup.Get("VersionArgumentJavaSelect", Version:=RelatedVersion).ToString.StartsWith("{") Then
|
|
|
+ Try
|
|
|
+ UserJava = JavaEntry.FromJson(GetJson(Setup.Get("VersionArgumentJavaSelect", Version:=RelatedVersion)))
|
|
|
+ '确保版本独立设置中指定的 Java 在 Java 列表中（#978）
|
|
|
+ If Not JavaList.Any(Function(j) j.PathFolder = UserJava.PathFolder) Then
|
|
|
+ UserJava = Nothing
|
|
|
+ Setup.Reset("VersionArgumentJavaSelect", Version:=RelatedVersion)
|
|
|
+ Log("版本独立设置中指定的 Java 不在主 Java 列表中，此设置已重置", LogLevel.Debug)
|
|
|
+ Exit Try
|
|
|
+ End If
|
|
|
+ Catch ex As Exception
|
|
|
+ UserJava = Nothing
|
|
|
+ Setup.Reset("VersionArgumentJavaSelect", Version:=RelatedVersion)
|
|
|
+ Log(ex, "版本独立设置中指定的 Java 已无法使用，此设置已重置", LogLevel.Hint)
|
|
|
+ End Try
|
|
|
+ End If
|
|
|
+
|
|
|
+ '获取全局设置中指定的 Java
|
|
|
+ If UserJava Is Nothing AndAlso Setup.Get("LaunchArgumentJavaSelect") <> "" Then
|
|
|
+ Try
|
|
|
+ UserJava = JavaEntry.FromJson(GetJson(Setup.Get("LaunchArgumentJavaSelect")))
|
|
|
+ Catch ex As Exception
|
|
|
+ UserJava = Nothing
|
|
|
+ Setup.Reset("LaunchArgumentJavaSelect")
|
|
|
+ Log(ex, "设置中指定的 Java 已无法使用，此设置已重置", LogLevel.Hint)
|
|
|
+ End Try
|
|
|
+ End If
|
|
|
+
|
|
|
+ '添加到特定 Java 列表
|
|
|
+ If UserJava IsNot Nothing Then
|
|
|
+ Log($"[Java] 用户指定的 Java：{UserJava}")
|
|
|
+ TargetJavaList.Add(UserJava)
|
|
|
+ End If
|
|
|
+
|
|
|
+#End Region
|
|
|
+
|
|
|
+ '检查特定的 Java
|
|
|
+ If TargetJavaList.Count > 0 Then
|
|
|
+ TargetJavaList = JavaCheckList(TargetJavaList)
|
|
|
+ Log("[Java] 检查后找到 " & TargetJavaList.Count & " 个特定的 Java")
|
|
|
+ End If
|
|
|
+
|
|
|
+RetryGet:
|
|
|
+ '等待进行中的搜索结束
|
|
|
+ If JavaSearchLoader.State <> LoadState.Finished AndAlso JavaSearchLoader.State <> LoadState.Waiting Then JavaSearchLoader.WaitForExit()
|
|
|
+ Select Case JavaSearchLoader.State
|
|
|
+ Case LoadState.Failed
|
|
|
+ Throw JavaSearchLoader.Error
|
|
|
+ Case LoadState.Aborted
|
|
|
+ Throw New ThreadInterruptedException("Java 搜索加载器已中断")
|
|
|
+ End Select
|
|
|
+
|
|
|
+ '生成完整的 Java 列表
|
|
|
+ Dim AllJavaList As New List(Of JavaEntry)
|
|
|
+ AllJavaList.AddRange(TargetJavaList)
|
|
|
+ AllJavaList.AddRange(JavaList)
|
|
|
+
|
|
|
+ '根据选定条件进行过滤
|
|
|
+ For Each Java In AllJavaList
|
|
|
+ If MinVersion IsNot Nothing AndAlso Java.Version < MinVersion Then Continue For
|
|
|
+ If MaxVersion IsNot Nothing AndAlso Java.Version > MaxVersion Then Continue For
|
|
|
+ If Java.Is64Bit AndAlso Is32BitSystem Then Continue For
|
|
|
+ AllowedJavaList.Add(Java)
|
|
|
+ Next
|
|
|
+
|
|
|
+ '若未找到适合的 Java，尝试触发搜索
|
|
|
+ If AllowedJavaList.Count = 0 AndAlso JavaSearchLoader.State = LoadState.Waiting Then
|
|
|
+ Log("[Java] 未找到满足条件的 Java，尝试进行搜索")
|
|
|
+ JavaSearchLoader.Start(IsForceRestart:=True)
|
|
|
+ GoTo RetryGet
|
|
|
+ End If
|
|
|
+
|
|
|
+#Region "检查用户指定的 Java 是否可用"
|
|
|
+
|
|
|
+ '确保指定的 Java 可用
|
|
|
+ If UserJava Is Nothing Then GoTo ExitUserJavaCheck
|
|
|
+ If AllowedJavaList.Any(Function(j) j.PathFolder = UserJava.PathFolder) Then
|
|
|
+ Log("[Java] 使用用户指定的 Java：" & UserJava.PathFolder)
|
|
|
+ AllowedJavaList = New List(Of JavaEntry) From {UserJava}
|
|
|
+ GoTo UserPass
|
|
|
+ End If
|
|
|
+
|
|
|
+ '指定的 Java 不可用，弹窗要求选择
|
|
|
+ Log("[Java] 发现用户指定的不兼容 Java：" & UserJava.ToString)
|
|
|
+ For Each Java In AllowedJavaList
|
|
|
+ Log($"[Java] 实际可用的 Java：{Java.ToString}")
|
|
|
+ Next
|
|
|
+ Dim Requirement As String = ""
|
|
|
+ Dim ShowRevision As Boolean = False
|
|
|
+ If (MinVersion Is Nothing OrElse MinVersion.Minor = 0) AndAlso (MaxVersion IsNot Nothing AndAlso MaxVersion.Minor < 999) Then
|
|
|
+ ShowRevision = MaxVersion.MinorRevision < 999
|
|
|
+ Requirement = "最高兼容到 Java " & MaxVersion.Minor & If(ShowRevision, "." & MaxVersion.MajorRevision & "." & MaxVersion.MinorRevision, "")
|
|
|
+ ElseIf (MinVersion IsNot Nothing AndAlso MinVersion.Minor > 0) AndAlso (MaxVersion Is Nothing OrElse MaxVersion.Minor >= 999) Then
|
|
|
+ ShowRevision = MinVersion.MinorRevision > 0 OrElse MinVersion.MajorRevision > 0
|
|
|
+ Requirement = "至少需要 Java " & MinVersion.Minor & If(ShowRevision, "." & MinVersion.MajorRevision & "." & MinVersion.MinorRevision, "")
|
|
|
+ ElseIf (MinVersion IsNot Nothing AndAlso MinVersion.Minor > 0) AndAlso (MaxVersion IsNot Nothing AndAlso MaxVersion.Minor < 999) Then
|
|
|
+ ShowRevision = MinVersion.MinorRevision > 0 OrElse MinVersion.MajorRevision > 0 OrElse MaxVersion.MinorRevision < 999
|
|
|
+ Dim Left As String = MinVersion.Minor & If(ShowRevision, "." & MinVersion.MajorRevision & "." & MinVersion.MinorRevision, "")
|
|
|
+ Dim Right As String = MaxVersion.Minor & If(ShowRevision, "." & MaxVersion.MajorRevision & "." & MaxVersion.MinorRevision, "")
|
|
|
+ Requirement = "需要 Java " & If(Left = Right, Left, Left & " ~ " & Right)
|
|
|
+ End If
|
|
|
+ Dim JavaCurrent As String = UserJava.VersionCode & If(ShowRevision, "." & UserJava.Version.MajorRevision & "." & UserJava.Version.MinorRevision, "")
|
|
|
+ If Setup.Get("LaunchAdvanceJava") Then
|
|
|
+ '直接跳过弹窗
|
|
|
+ Hint("设置中指定了使用 Java " & JavaCurrent & "，但当前版本" & Requirement & "，这可能会导致游戏崩溃！", HintType.Critical)
|
|
|
+ AllowedJavaList = New List(Of JavaEntry) From {UserJava}
|
|
|
+ Else
|
|
|
+ Select Case MyMsgBox("你在设置中手动指定了使用 Java " & JavaCurrent & "，但当前" & Requirement & "。" & vbCrLf &
|
|
|
+ "如果强制使用该 Java，可能导致游戏崩溃。" & vbCrLf &
|
|
|
+ "你也可以将 游戏 Java 设置修改为 自动选择合适的 Java。" & vbCrLf &
|
|
|
+ vbCrLf &
|
|
|
+ " - 指定的 Java：" & UserJava.ToString,
|
|
|
+ "Java 兼容性警告", "让 PCL 自动选择", "强制使用该 Java", "取消")
|
|
|
+ Case 1 '让 PCL 自动选择
|
|
|
+ Case 2 '强制使用指定的 Java
|
|
|
+ Log("[Java] 已强制使用用户指定的不兼容 Java")
|
|
|
+ AllowedJavaList = New List(Of JavaEntry) From {UserJava}
|
|
|
+ Case 3 '取消启动
|
|
|
+ Throw New Exception(CancelException)
|
|
|
+ End Select
|
|
|
+ End If
|
|
|
+
|
|
|
+ExitUserJavaCheck:
|
|
|
+#End Region
|
|
|
+
|
|
|
+ '若依然未找到适合的 Java，直接返回
|
|
|
+ If AllowedJavaList.Count = 0 Then Return Nothing
|
|
|
+
|
|
|
+ '优先使用特定目录下的 Java
|
|
|
+ For Each Java In AllowedJavaList
|
|
|
+ If TargetJavaList.Contains(Java) Then
|
|
|
+ '直接使用指定的 Java
|
|
|
+ AllowedJavaList = New List(Of JavaEntry) From {Java}
|
|
|
+ Log("[Java] 优先使用特定的 Java：" & Java.ToString)
|
|
|
+ GoTo UserPass
|
|
|
+ End If
|
|
|
+ Next
|
|
|
+UserPass:
|
|
|
+
|
|
|
+ '对适合的 Java 进行排序
|
|
|
+ AllowedJavaList = Sort(AllowedJavaList, AddressOf JavaSorter)
|
|
|
+
|
|
|
+ '检查选定的 Java，若测试失败则尝试进行搜索
|
|
|
+ Dim SelectedJava = AllowedJavaList.First
|
|
|
+ Try
|
|
|
+ SelectedJava.Check()
|
|
|
+ Catch ex As ThreadInterruptedException
|
|
|
+ Throw
|
|
|
+ Catch ex As Exception
|
|
|
+ Log(ex, "找到的 Java 已无法使用，尝试进行搜索")
|
|
|
+ AllowedJavaList = New List(Of JavaEntry)
|
|
|
+ JavaSearchLoader.Start(IsForceRestart:=True)
|
|
|
+ GoTo RetryGet
|
|
|
+ End Try
|
|
|
+
|
|
|
+ '返回
|
|
|
+ Log("[Java] 选定的 Java：" & SelectedJava.ToString)
|
|
|
+ Return SelectedJava
|
|
|
+
|
|
|
+ Catch ex As ThreadInterruptedException
|
|
|
+ Log(ex, "查找符合条件的 Java 时出现加载器中断")
|
|
|
+ Return Nothing
|
|
|
+ Catch ex As Exception
|
|
|
+ If ex.Message = "$$" Then Throw ex
|
|
|
+ Log(ex, "查找符合条件的 Java 失败", LogLevel.Feedback)
|
|
|
+ Return Nothing
|
|
|
+ End Try
|
|
|
+ End Function
|
|
|
+ ''' <summary>
|
|
|
+ ''' 是否强制指定了 64 位 Java。如果没有强制指定，返回是否安装了 64 位 Java。
|
|
|
+ ''' </summary>
|
|
|
+ Public Function JavaIs64Bit(Optional RelatedVersion As McVersion = Nothing) As Boolean
|
|
|
+ Try
|
|
|
+ '检查强制指定
|
|
|
+ Dim UserSetup As String = Setup.Get("LaunchArgumentJavaSelect")
|
|
|
+ If RelatedVersion IsNot Nothing Then
|
|
|
+ Dim UserSetupVersion As String = Setup.Get("VersionArgumentJavaSelect", Version:=RelatedVersion)
|
|
|
+ If UserSetupVersion <> "使用全局设置" Then UserSetup = UserSetupVersion
|
|
|
+ End If
|
|
|
+ If UserSetup <> "" Then
|
|
|
+ Dim UserJava As JavaEntry = Nothing
|
|
|
+ Try
|
|
|
+ UserJava = JavaEntry.FromJson(GetJson(UserSetup))
|
|
|
+ Catch ex As Exception
|
|
|
+ Log(ex, "版本指定的 Java 信息已损坏，已重置版本设置中指定的 Java")
|
|
|
+ Setup.Set("VersionArgumentJavaSelect", "使用全局设置", Version:=RelatedVersion)
|
|
|
+ GoTo NoUserJava
|
|
|
+ End Try
|
|
|
+ For Each Java In JavaList
|
|
|
+ If Java.PathFolder = UserJava.PathFolder Then Return UserJava.Is64Bit
|
|
|
+ Next
|
|
|
+ End If
|
|
|
+NoUserJava:
|
|
|
+ '检查列表
|
|
|
+ For Each Java In JavaList
|
|
|
+ If Java.Is64Bit Then Return True
|
|
|
+ Next
|
|
|
+ Return False
|
|
|
+ Catch ex As Exception
|
|
|
+ Log(ex, "检查 Java 类别时出错", LogLevel.Feedback)
|
|
|
+ Setup.Set("LaunchArgumentJavaSelect", "")
|
|
|
+ Return True
|
|
|
+ End Try
|
|
|
+ End Function
|
|
|
+ ''' <summary>
|
|
|
+ ''' 将 Java 按照适用性排序。
|
|
|
+ ''' </summary>
|
|
|
+ Public Function JavaSorter(Left As JavaEntry, Right As JavaEntry) As Boolean
|
|
|
+ '1. 尽量在当前文件夹或当前 Minecraft 文件夹
|
|
|
+ Dim ProgramPathParent As String, MinecraftPathParent As String = ""
|
|
|
+ ProgramPathParent = If(New DirectoryInfo(Path).Parent, New DirectoryInfo(Path)).FullName
|
|
|
+ If PathMcFolder <> "" Then MinecraftPathParent = If(New DirectoryInfo(PathMcFolder).Parent, New DirectoryInfo(PathMcFolder)).FullName
|
|
|
+ If Left.PathFolder.StartsWith(ProgramPathParent) AndAlso Not Right.PathFolder.StartsWith(ProgramPathParent) Then Return True
|
|
|
+ If Not Left.PathFolder.StartsWith(ProgramPathParent) AndAlso Right.PathFolder.StartsWith(ProgramPathParent) Then Return False
|
|
|
+ If PathMcFolder <> "" Then
|
|
|
+ If Left.PathFolder.StartsWith(MinecraftPathParent) AndAlso Not Right.PathFolder.StartsWith(MinecraftPathParent) Then Return True
|
|
|
+ If Not Left.PathFolder.StartsWith(MinecraftPathParent) AndAlso Right.PathFolder.StartsWith(MinecraftPathParent) Then Return False
|
|
|
+ End If
|
|
|
+ '2. 尽量使用 64 位
|
|
|
+ If Left.Is64Bit AndAlso Not Right.Is64Bit Then Return True
|
|
|
+ If Not Left.Is64Bit AndAlso Right.Is64Bit Then Return False
|
|
|
+ '3. 尽量不使用 JDK
|
|
|
+ If Left.IsJre AndAlso Not Right.IsJre Then Return True
|
|
|
+ If Not Left.IsJre AndAlso Right.IsJre Then Return False
|
|
|
+ '4. Java 大版本
|
|
|
+ If Left.VersionCode <> Right.VersionCode Then
|
|
|
+ ' Java 7 8 9 10 11 12 13 14 15 16 17 18 19 20...
|
|
|
+ Dim Weight = {0, 1, 2, 3, 4, 5, 6, 14, 29, 10, 11, 12, 13, 9, 8, 7, 15, 31, 30, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28}
|
|
|
+ Return Weight.ElementAtOrDefault(Left.VersionCode) >= Weight.ElementAtOrDefault(Right.VersionCode)
|
|
|
+ End If
|
|
|
+ '5. 最次级版本号更接近 51
|
|
|
+ Return Math.Abs(Left.Version.Revision - 51) <= Math.Abs(Right.Version.Revision - 51)
|
|
|
+ End Function
|
|
|
+
|
|
|
+#Region "搜索"
|
|
|
+
|
|
|
+ ''' <summary>
|
|
|
+ ''' 模糊搜索并获取所有可用的 Java，并在结束后更新设置页面显示。输出将直接写入 JavaList。
|
|
|
+ ''' </summary>
|
|
|
+ Public JavaSearchLoader As New LoaderTask(Of Integer, Integer)("查找 Java", AddressOf JavaSearchLoaderSub) With {.ProgressWeight = 2}
|
|
|
+ Private Sub JavaSearchLoaderSub(Loader As LoaderTask(Of Integer, Integer))
|
|
|
+ If FrmSetupLaunch IsNot Nothing Then
|
|
|
+ RunInUiWait(Sub()
|
|
|
+ FrmSetupLaunch.ComboArgumentJava.Items.Clear()
|
|
|
+ FrmSetupLaunch.ComboArgumentJava.Items.Add(New ComboBoxItem With {.Content = "加载中……", .IsSelected = True})
|
|
|
+ End Sub)
|
|
|
+ End If
|
|
|
+ If FrmVersionSetup IsNot Nothing Then
|
|
|
+ RunInUiWait(Sub()
|
|
|
+ FrmVersionSetup.ComboArgumentJava.Items.Clear()
|
|
|
+ FrmVersionSetup.ComboArgumentJava.Items.Add(New ComboBoxItem With {.Content = "加载中……", .IsSelected = True})
|
|
|
+ End Sub)
|
|
|
+ End If
|
|
|
+
|
|
|
+ Try
|
|
|
+
|
|
|
+ '可能包含 Java 的文件夹列表，以 “\” 结尾，且仅包含 “\”
|
|
|
+ 'Key：文件夹地址
|
|
|
+ 'Value: 是否为玩家手动导入
|
|
|
+ Dim JavaPreList As New Dictionary(Of String, Boolean)
|
|
|
+
|
|
|
+#Region "模糊查找可能可用的 Java"
|
|
|
+
|
|
|
+ '查找环境变量中的 Java
|
|
|
+ For Each PathInEnv As String In Split((PathEnv & ";" & PathJavaHome).Replace("\\", "\").Replace("/", "\"), ";")
|
|
|
+ PathInEnv = PathInEnv.Trim(" """.ToCharArray())
|
|
|
+ If PathInEnv = "" Then Continue For
|
|
|
+ If Not PathInEnv.EndsWith("\") Then PathInEnv += "\"
|
|
|
+ '粗略检查有效性
|
|
|
+ If File.Exists(PathInEnv & "javaw.exe") Then JavaPreList(PathInEnv) = False
|
|
|
+ Next
|
|
|
+ '查找磁盘中的 Java
|
|
|
+ For Each Disk As DriveInfo In DriveInfo.GetDrives()
|
|
|
+ JavaSearchFolder(Disk.Name, JavaPreList, False)
|
|
|
+ Next
|
|
|
+ '查找 APPDATA 文件夹中的 Java
|
|
|
+ JavaSearchFolder(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\", JavaPreList, False)
|
|
|
+ JavaSearchFolder(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\", JavaPreList, False)
|
|
|
+ '查找启动器目录中的 Java
|
|
|
+ JavaSearchFolder(Path, JavaPreList, False, IsFullSearch:=True)
|
|
|
+ '查找所选 Minecraft 文件夹中的 Java
|
|
|
+ If Not String.IsNullOrWhiteSpace(PathMcFolder) AndAlso Path <> PathMcFolder Then
|
|
|
+ JavaSearchFolder(PathMcFolder, JavaPreList, False, IsFullSearch:=True)
|
|
|
+ End If
|
|
|
+
|
|
|
+ '若不全为符号链接，则清除符号链接的地址
|
|
|
+ Dim JavaWithoutReparse As New Dictionary(Of String, Boolean)
|
|
|
+ For Each Pair In JavaPreList
|
|
|
+ Dim Folder As String = Pair.Key.Replace("\\", "\").Replace("/", "\")
|
|
|
+ Dim Info As FileSystemInfo = New FileInfo(Folder & "javaw.exe")
|
|
|
+ Do
|
|
|
+ If Info.Attributes.HasFlag(FileAttributes.ReparsePoint) Then
|
|
|
+ Log("[Java] 位于 " & Folder & " 的 Java 包含符号链接")
|
|
|
+ Continue For
|
|
|
+ End If
|
|
|
+ Info = If(TypeOf Info Is FileInfo, CType(Info, FileInfo).Directory, CType(Info, DirectoryInfo).Parent)
|
|
|
+ Loop While Info IsNot Nothing
|
|
|
+ Log("[Java] 位于 " & Folder & " 的 Java 不含符号链接")
|
|
|
+ JavaWithoutReparse.Add(Pair.Key, Pair.Value)
|
|
|
+ Next
|
|
|
+ If JavaWithoutReparse.Count > 0 Then JavaPreList = JavaWithoutReparse
|
|
|
+
|
|
|
+ '若不全为特殊引用，则清除特殊引用的地址
|
|
|
+ Dim JavaWithoutInherit As New Dictionary(Of String, Boolean)
|
|
|
+ For Each Pair In JavaPreList
|
|
|
+ If Pair.Key.Contains("javapath_target_") OrElse Pair.Key.Contains("javatmp") Then
|
|
|
+ Log("[Java] 位于 " & Pair.Key & " 的 Java 包含特殊引用")
|
|
|
+ Continue For
|
|
|
+ End If
|
|
|
+ Log("[Java] 位于 " & Pair.Key & " 的 Java 不含特殊引用")
|
|
|
+ JavaWithoutInherit.Add(Pair.Key, Pair.Value)
|
|
|
+ Next
|
|
|
+ If JavaWithoutInherit.Count > 0 Then JavaPreList = JavaWithoutInherit
|
|
|
+
|
|
|
+#End Region
|
|
|
+
|
|
|
+#Region "添加玩家手动导入的 Java"
|
|
|
+
|
|
|
+ Dim ImportedJava As String = Setup.Get("LaunchArgumentJavaAll")
|
|
|
+ Try
|
|
|
+ For Each JavaJsonObject In GetJson(ImportedJava)
|
|
|
+ Dim Entry = JavaEntry.FromJson(JavaJsonObject)
|
|
|
+ If Entry.IsUserImport Then JavaPreList(Entry.PathFolder) = True
|
|
|
+ Next
|
|
|
+ Catch ex As Exception
|
|
|
+ Log(ex, "Java 列表已损坏", LogLevel.Feedback)
|
|
|
+ Setup.Set("LaunchArgumentJavaAll", "[]")
|
|
|
+ End Try
|
|
|
+
|
|
|
+#End Region
|
|
|
+
|
|
|
+ '确保可用并获取详细信息，转入正式列表
|
|
|
+ Dim NewJavaList As New List(Of JavaEntry)
|
|
|
+ For Each Entry In Distinct(JavaPreList.ToList, Function(a, b) a.Key.ToLower = b.Key.ToLower) '#794
|
|
|
+ NewJavaList.Add(New JavaEntry(Entry.Key, Entry.Value))
|
|
|
+ Next
|
|
|
+ NewJavaList = Sort(JavaCheckList(NewJavaList), AddressOf JavaSorter)
|
|
|
+
|
|
|
+ '修改设置项
|
|
|
+ Dim AllList As New JArray
|
|
|
+ For Each Java In NewJavaList
|
|
|
+ AllList.Add(Java.ToJson)
|
|
|
+ Next
|
|
|
+ Setup.Set("LaunchArgumentJavaAll", AllList.ToString(Newtonsoft.Json.Formatting.None))
|
|
|
+ JavaList = NewJavaList
|
|
|
+
|
|
|
+ Catch ex As Exception
|
|
|
+ Log(ex, "搜索 Java 时出错", LogLevel.Feedback)
|
|
|
+ JavaList = New List(Of JavaEntry)
|
|
|
+ End Try
|
|
|
+
|
|
|
+ Log("[Java] Java 搜索完成，发现 " & JavaList.Count & " 个 Java")
|
|
|
+ If FrmSetupLaunch IsNot Nothing Then RunInUi(Sub() FrmSetupLaunch.RefreshJavaComboBox())
|
|
|
+ If FrmVersionSetup IsNot Nothing Then RunInUi(Sub() FrmVersionSetup.RefreshJavaComboBox())
|
|
|
+ End Sub
|
|
|
+
|
|
|
+ ''' <summary>
|
|
|
+ ''' 多线程检查列表中的所有 Java 项。
|
|
|
+ ''' </summary>
|
|
|
+ Private Function JavaCheckList(JavaEntries As List(Of JavaEntry)) As List(Of JavaEntry)
|
|
|
+ Log("[Java] 开始确认列表 Java 状态，共 " & JavaEntries.Count & " 项")
|
|
|
+ JavaCheckList = New List(Of JavaEntry)
|
|
|
+ Dim ListLock As New Object
|
|
|
+
|
|
|
+ '启动检查线程
|
|
|
+ Dim CheckThreads As New List(Of Thread)
|
|
|
+ For Each Entry In JavaEntries
|
|
|
+ Dim CheckThread As New Thread(Sub()
|
|
|
+ Try
|
|
|
+ Entry.Check()
|
|
|
+ Log("[Java] " & Entry.ToString)
|
|
|
+ SyncLock ListLock
|
|
|
+ JavaCheckList.Add(Entry)
|
|
|
+ End SyncLock
|
|
|
+ Catch ex As Exception
|
|
|
+ If Entry.IsUserImport Then
|
|
|
+ Log(ex, "位于 " & Entry.PathFolder & " 的 Java 存在异常，将被自动移除", LogLevel.Hint)
|
|
|
+ Else
|
|
|
+ Log(ex, "位于 " & Entry.PathFolder & " 的 Java 存在异常")
|
|
|
+ End If
|
|
|
+ End Try
|
|
|
+ End Sub)
|
|
|
+ CheckThreads.Add(CheckThread)
|
|
|
+ CheckThread.Start()
|
|
|
+ Next
|
|
|
+
|
|
|
+ '等待构造线程完成
|
|
|
+Wait:
|
|
|
+ Thread.Sleep(10)
|
|
|
+ For Each CheckThread In CheckThreads
|
|
|
+ If CheckThread.IsAlive Then GoTo Wait
|
|
|
+ Next
|
|
|
+ End Function
|
|
|
+ ''' <summary>
|
|
|
+ ''' 模糊搜索指定文件夹下的 Java，并只进行粗略的检查。这不会搜索全部路径。
|
|
|
+ ''' </summary>
|
|
|
+ ''' <param name="OriginalPath">开始搜索的起始路径，不限制结尾。</param>
|
|
|
+ ''' <param name="IsFullSearch">搜索当前文件夹下的全部文件夹（此参数不会传递到子文件夹）。</param>
|
|
|
+ Private Sub JavaSearchFolder(OriginalPath As String, ByRef Results As Dictionary(Of String, Boolean), Source As Boolean, Optional IsFullSearch As Boolean = False)
|
|
|
+ Try
|
|
|
+ Log("[Java] 开始" & If(IsFullSearch, "完全", "部分") & "遍历查找：" & OriginalPath)
|
|
|
+ JavaSearchFolder(New DirectoryInfo(OriginalPath), Results, Source, IsFullSearch)
|
|
|
+ Catch ex As UnauthorizedAccessException
|
|
|
+ Log("[Java] 遍历查找 Java 时遭遇无权限的文件夹：" & OriginalPath)
|
|
|
+ Catch ex As Exception
|
|
|
+ Log(ex, "遍历查找 Java 时出错（" & OriginalPath & "）")
|
|
|
+ End Try
|
|
|
+ End Sub
|
|
|
+ ''' <summary>
|
|
|
+ ''' 模糊搜索指定文件夹下的 Java，并只进行粗略的检查。这不会搜索全部路径。
|
|
|
+ ''' </summary>
|
|
|
+ ''' <param name="OriginalPath">开始搜索的起始路径，不限制结尾。</param>
|
|
|
+ ''' <param name="IsFullSearch">搜索当前文件夹下的全部文件夹（此参数不会传递到子文件夹）。</param>
|
|
|
+ Private Sub JavaSearchFolder(OriginalPath As DirectoryInfo, ByRef Results As Dictionary(Of String, Boolean), Source As Boolean, Optional IsFullSearch As Boolean = False)
|
|
|
+ Try
|
|
|
+ '确认目录存在
|
|
|
+ If Not OriginalPath.Exists Then Exit Sub
|
|
|
+ Dim Path As String = OriginalPath.FullName.Replace("\\", "\")
|
|
|
+ If Not Path.EndsWith("\") Then Path += "\"
|
|
|
+ '若该目录有 Java，则加入结果
|
|
|
+ If File.Exists(Path & "javaw.exe") Then Results(Path) = Source
|
|
|
+ '查找其下的所有文件夹
|
|
|
+ For Each FolderInfo As DirectoryInfo In OriginalPath.EnumerateDirectories
|
|
|
+ If FolderInfo.Attributes.HasFlag(FileAttributes.ReparsePoint) Then Continue For '跳过符号链接
|
|
|
+ Dim SearchEntry = GetFolderNameFromPath(FolderInfo.Name).ToLower '用于搜索的字符串
|
|
|
+ If IsFullSearch OrElse
|
|
|
+ FolderInfo.Parent.Name.ToLower = "users" OrElse
|
|
|
+ SearchEntry.Contains("java") OrElse SearchEntry.Contains("jdk") OrElse SearchEntry.Contains("env") OrElse
|
|
|
+ SearchEntry.Contains("环境") OrElse SearchEntry.Contains("run") OrElse SearchEntry.Contains("软件") OrElse
|
|
|
+ SearchEntry.Contains("jre") OrElse SearchEntry = "bin" OrElse SearchEntry.Contains("mc") OrElse
|
|
|
+ SearchEntry.Contains("software") OrElse SearchEntry.Contains("cache") OrElse SearchEntry.Contains("temp") OrElse
|
|
|
+ SearchEntry.Contains("corretto") OrElse SearchEntry.Contains("roaming") OrElse SearchEntry.Contains("users") OrElse
|
|
|
+ SearchEntry.Contains("craft") OrElse SearchEntry.Contains("program") OrElse SearchEntry.Contains("世界") OrElse
|
|
|
+ SearchEntry.Contains("net") OrElse SearchEntry.Contains("游戏") OrElse SearchEntry.Contains("oracle") OrElse
|
|
|
+ SearchEntry.Contains("game") OrElse SearchEntry.Contains("file") OrElse SearchEntry.Contains("data") OrElse
|
|
|
+ SearchEntry.Contains("jvm") OrElse SearchEntry.Contains("服务") OrElse SearchEntry.Contains("server") OrElse
|
|
|
+ SearchEntry.Contains("客户") OrElse SearchEntry.Contains("client") OrElse SearchEntry.Contains("整合") OrElse
|
|
|
+ SearchEntry.Contains("应用") OrElse SearchEntry.Contains("运行") OrElse SearchEntry.Contains("前置") OrElse
|
|
|
+ SearchEntry.Contains("mojang") OrElse SearchEntry.Contains("官启") OrElse SearchEntry.Contains("新建文件夹") OrElse
|
|
|
+ SearchEntry.Contains("eclipse") OrElse SearchEntry.Contains("microsoft") OrElse SearchEntry.Contains("hotspot") OrElse
|
|
|
+ SearchEntry.Contains("runtime") OrElse SearchEntry.Contains("x86") OrElse SearchEntry.Contains("x64") OrElse
|
|
|
+ SearchEntry.Contains("forge") OrElse SearchEntry.Contains("原版") OrElse SearchEntry.Contains("optifine") OrElse
|
|
|
+ SearchEntry.Contains("官方") OrElse SearchEntry.Contains("启动") OrElse SearchEntry.Contains("hmcl") OrElse
|
|
|
+ SearchEntry.Contains("mod") OrElse SearchEntry.Contains("高清") OrElse SearchEntry.Contains("download") OrElse
|
|
|
+ SearchEntry.Contains("launch") OrElse SearchEntry.Contains("程序") OrElse SearchEntry.Contains("path") OrElse
|
|
|
+ SearchEntry.Contains("version") OrElse SearchEntry.Contains("baka") OrElse SearchEntry.Contains("pcl") OrElse
|
|
|
+ SearchEntry.Contains("local") OrElse SearchEntry.Contains("packages") OrElse SearchEntry.Contains("4297127D64EC6") OrElse '官启文件夹
|
|
|
+ SearchEntry.Contains("国服") OrElse SearchEntry.Contains("网易") OrElse SearchEntry.Contains("ext") OrElse '网易 Java 文件夹名
|
|
|
+ SearchEntry.Contains("netease") OrElse SearchEntry.Contains("1.") OrElse SearchEntry.Contains("启动") Then
|
|
|
+ JavaSearchFolder(FolderInfo, Results, Source)
|
|
|
+ End If
|
|
|
+ Next
|
|
|
+ Catch ex As UnauthorizedAccessException
|
|
|
+ Log("[Java] 遍历查找 Java 时遭遇无权限的文件夹：" & OriginalPath.FullName)
|
|
|
+ Catch ex As Exception
|
|
|
+ Log(ex, "遍历查找 Java 时出错（" & OriginalPath.FullName & "）")
|
|
|
+ End Try
|
|
|
+ End Sub
|
|
|
+
|
|
|
+#End Region
|
|
|
+
|
|
|
+#Region "下载"
|
|
|
+
|
|
|
+ ''' <summary>
|
|
|
+ ''' 提示 Java 缺失，并弹窗确认是否自动下载。返回玩家选择是否下载。
|
|
|
+ ''' 支持下载 Java 8、14、17，输入其他 VersionCode 会要求玩家自行下载。
|
|
|
+ ''' </summary>
|
|
|
+ Public Function JavaDownloadConfirm(VersionCode As String) As Boolean
|
|
|
+ If VersionCode = 8 OrElse VersionCode = 14 OrElse VersionCode = 17 Then
|
|
|
+ Return MyMsgBox($"PCL 未找到 Java {VersionCode}，是否需要 PCL 自动下载？" & vbCrLf &
|
|
|
+ $"如果你已经安装了 Java {VersionCode}，请在 设置 → 启动选项 → 游戏 Java 中手动导入。",
|
|
|
+ "未找到 Java", "自动下载", "取消") = 1
|
|
|
+ Else
|
|
|
+ MyMsgBox($"PCL 未找到 Java {VersionCode}。" & vbCrLf &
|
|
|
+ $"请自行搜索并安装 Java {VersionCode}，安装后在 设置 → 启动选项 → 游戏 Java 中重新搜索或导入。",
|
|
|
+ "未找到 Java")
|
|
|
+ Return False
|
|
|
+ End If
|
|
|
+ End Function
|
|
|
+
|
|
|
+ ''' <summary>
|
|
|
+ ''' 获取下载 Java 8/14/17 的加载器。需要开启 IsForceRestart 以正常刷新 Java 列表。
|
|
|
+ ''' </summary>
|
|
|
+ Public Function JavaFixLoaders(Version As Integer) As LoaderCombo(Of Integer)
|
|
|
+ Return New LoaderCombo(Of Integer)($"下载 Java {Version}", {
|
|
|
+ New LoaderTask(Of Integer, List(Of NetFile))("获取 Java 下载信息", AddressOf JavaFileList) With {.ProgressWeight = 2},
|
|
|
+ New LoaderDownload("下载 Java 文件", New List(Of NetFile)) With {.ProgressWeight = 10},
|
|
|
+ JavaSearchLoader
|
|
|
+ })
|
|
|
+ End Function
|
|
|
+ Private Sub JavaFileList(Loader As LoaderTask(Of Integer, List(Of NetFile)))
|
|
|
+ Log("[Java] 开始获取 Java 下载信息")
|
|
|
+ Dim IndexFileStr As String = NetGetCodeByDownload(
|
|
|
+ {"https://download.mcbbs.net/v1/products/java-runtime/2ec0cc96c44e5a76b9c8b7c39df7210883d12871/all.json",
|
|
|
+ "https://bmclapi2.bangbang93.com/v1/products/java-runtime/2ec0cc96c44e5a76b9c8b7c39df7210883d12871/all.json",
|
|
|
+ "https://piston-meta.mojang.com/v1/products/java-runtime/2ec0cc96c44e5a76b9c8b7c39df7210883d12871/all.json"},
|
|
|
+ IsJson:=True)
|
|
|
+ '获取下载地址
|
|
|
+ Dim MainEntry As JObject = CType(GetJson(IndexFileStr), JObject)($"windows-x{If(Is32BitSystem, "86", "64")}")
|
|
|
+ Dim Entries = MainEntry.Children.Reverse. '选择最靠后的一项（最新）
|
|
|
+ SelectMany(Function(e As JProperty) CType(e.Value, JArray).Select(Function(v) New KeyValuePair(Of String, JObject)(e.Name, v)))
|
|
|
+ Dim TargetEntry = Entries.First(Function(t) t.Value("version")("name").ToString.StartsWith(Loader.Input))
|
|
|
+ Dim Address As String = TargetEntry.Value("manifest")("url")
|
|
|
+ Log($"[Java] 准备下载 Java {TargetEntry.Value("version")("name")}（{TargetEntry.Key}）：{Address}")
|
|
|
+ '获取文件列表
|
|
|
+ Dim ListFileStr As String = NetGetCodeByDownload(
|
|
|
+ {Address.Replace("piston-meta.mojang.com", "download.mcbbs.net"),
|
|
|
+ Address.Replace("piston-meta.mojang.com", "bmclapi2.bangbang93.com"),
|
|
|
+ Address},
|
|
|
+ IsJson:=True)
|
|
|
+ Dim BaseDir As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\runtime\" & TargetEntry.Key & "\"
|
|
|
+ Dim Results As New List(Of NetFile)
|
|
|
+ For Each File As JProperty In CType(GetJson(ListFileStr), JObject)("files")
|
|
|
+ If CType(File.Value, JObject)("downloads")?("raw") Is Nothing Then Continue For
|
|
|
+ Dim Info As JObject = CType(File.Value, JObject)("downloads")("raw")
|
|
|
+ Dim Checker As New FileChecker(ActualSize:=Info("size"), Hash:=Info("sha1"))
|
|
|
+ If Checker.Check(BaseDir & File.Name) Is Nothing Then Continue For '跳过已存在的文件
|
|
|
+ Dim Url As String = Info("url")
|
|
|
+ Results.Add(New NetFile(
|
|
|
+ {Url.Replace("piston-data.mojang.com", "download.mcbbs.net"),
|
|
|
+ Url.Replace("piston-data.mojang.com", "bmclapi2.bangbang93.com"),
|
|
|
+ Url},
|
|
|
+ BaseDir & File.Name, Checker))
|
|
|
+ Next
|
|
|
+ Loader.Output = Results
|
|
|
+ Log($"[Java] 需要下载 {Results.Count} 个文件，目标文件夹：{BaseDir}")
|
|
|
+ End Sub
|
|
|
+
|
|
|
+#End Region
|
|
|
+
|
|
|
+End Module
|
龙腾猫跃