Title

[Havenazaki]

请问提示Java版本不兼容的代码在哪，想改代码关掉，因为有些像厕所加载器这种就是要用java21

[youzi-3222]

ModJava.vb 第 324 行

PCL2/Plain Craft Launcher 2/Modules/Minecraft/ModJava.vb

Lines 324 to 363 in 107a5ae

	'指定的 Java 不可用，弹窗要求选择
	Log("[Java] 发现用户指定的不兼容 Java：" & UserJava.ToString)
	Log($"[Java] 目前实际可用的 Java 列表：")
	For Each Java In AllowedJavaList
	Log($"[Java] - {Java}")
	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") OrElse (RelatedVersion IsNot Nothing AndAlso Setup.Get("VersionAdvanceJava", RelatedVersion)) Then
	'直接跳过弹窗
	Log("[Java] 设置中指定了使用 Java " & JavaCurrent & "，但当前版本" & Requirement & "，这可能会导致游戏崩溃！", LogLevel.Debug)
	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

[shimoranla]

你可以在版本设置直接强制指定 PCL 认为不兼容的 Java，然后勾选忽略 Java 兼容性警告