|
|
@@ -2051,7 +2051,6 @@ IgnoreCustomSkin:
|
|
|
'输出 bat
|
|
|
Try
|
|
|
Dim CmdString As String =
|
|
|
- "chcp 65001 > nul" & vbCrLf &
|
|
|
"@echo off" & vbCrLf &
|
|
|
"title 启动 - " & McVersionCurrent.Name & vbCrLf &
|
|
|
"echo 游戏正在启动，请稍候。" & vbCrLf &
|
|
|
@@ -2062,7 +2061,8 @@ IgnoreCustomSkin:
|
|
|
"""" & McLaunchJavaSelected.PathJava & """ " & McLaunchArgument & vbCrLf &
|
|
|
"echo 游戏已退出。" & vbCrLf &
|
|
|
"pause"
|
|
|
- WriteFile(If(McLaunchLoader.Input.SaveBatch, Path & "PCL\LatestLaunch.bat"), SecretFilter(CmdString, "F"), Encoding:=Encoding.UTF8)
|
|
|
+ WriteFile(If(McLaunchLoader.Input.SaveBatch, Path & "PCL\LatestLaunch.bat"), SecretFilter(CmdString, "F"),
|
|
|
+ Encoding:=If(Encoding.Default.Equals(Encoding.UTF8), Encoding.UTF8, Encoding.GetEncoding("GB18030")))
|
|
|
If McLaunchLoader.Input.SaveBatch IsNot Nothing Then
|
|
|
McLaunchLog("导出启动脚本完成，强制结束启动过程")
|
|
|
AbortHint = "导出启动脚本成功！"
|
allMagicNB