|
|
@@ -113,15 +113,18 @@ Public Module ModLaunch
|
|
|
New LoaderTask(Of Process, Integer)("等待游戏窗口出现", AddressOf McLaunchWait) With {.ProgressWeight = 1},
|
|
|
New LoaderTask(Of Integer, Integer)("结束处理", AddressOf McLaunchEnd) With {.ProgressWeight = 1}
|
|
|
}
|
|
|
+
|
|
|
+ '内存优化
|
|
|
Select Case Setup.Get("VersionRamOptimize", Version:=McVersionCurrent)
|
|
|
Case 0 '全局
|
|
|
- If Not Setup.Get("LaunchArgumentRam") Then GoTo JumpRamOptimize
|
|
|
- Case 2 '关闭
|
|
|
- GoTo JumpRamOptimize
|
|
|
+ If Setup.Get("LaunchArgumentRam") Then
|
|
|
+ CType(Loaders(2), LoaderCombo(Of String)).Block = False
|
|
|
+ Loaders.Insert(3, New LoaderTask(Of Integer, Integer)("内存优化", AddressOf McLaunchMemoryOptimize) With {.ProgressWeight = 30})
|
|
|
+ End If
|
|
|
+ Case 1 '开启
|
|
|
+ CType(Loaders(2), LoaderCombo(Of String)).Block = False
|
|
|
+ Loaders.Insert(3, New LoaderTask(Of Integer, Integer)("内存优化", AddressOf McLaunchMemoryOptimize) With {.ProgressWeight = 30})
|
|
|
End Select
|
|
|
- CType(Loaders(2), LoaderCombo(Of String)).Block = False
|
|
|
- Loaders.Insert(3, New LoaderTask(Of Integer, Integer)("内存优化", AddressOf McLaunchMemoryOptimize) With {.ProgressWeight = 30})
|
|
|
-JumpRamOptimize:
|
|
|
|
|
|
Dim LaunchLoader As New LoaderCombo(Of Object)("Minecraft 启动", Loaders) With {.Show = False}
|
|
|
If McLoginLoader.State = LoadState.Finished Then McLoginLoader.State = LoadState.Waiting '要求重启登录主加载器,它会自行决定是否启动副加载器
|