From 23f00c4f212b596d35762af173dd30c6676ecf9a Mon Sep 17 00:00:00 2001 From: ZeroWolf Date: Mon, 25 Nov 2024 23:32:46 +0800 Subject: [PATCH 1/7] =?UTF-8?q?=E5=9C=A8=E4=B8=8B=E8=BD=BD=E6=96=87?= =?UTF-8?q?=E4=BB=B6=E5=A4=B9=E4=B8=AD=E8=BF=90=E8=A1=8C=E6=97=B6=E7=BB=99?= =?UTF-8?q?=E4=B8=AA=E6=8F=90=E7=A4=BA?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Plain Craft Launcher 2/Application.xaml.vb | 3 +++ 1 file changed, 3 insertions(+) diff --git a/Plain Craft Launcher 2/Application.xaml.vb b/Plain Craft Launcher 2/Application.xaml.vb index 4c66c770..b5b85a09 100644 --- a/Plain Craft Launcher 2/Application.xaml.vb +++ b/Plain Craft Launcher 2/Application.xaml.vb @@ -116,6 +116,9 @@ WaitRetry: If Path.Contains(IO.Path.GetTempPath()) OrElse Path.Contains("AppData\Local\Temp\") Then MyMsgBox("请将 PCL 从压缩文件中解压，或是更换文件夹后再继续使用！" & vbCrLf & "程序目前在临时文件夹中运行，设置、游戏存档等可能无法保存，且部分功能将无法使用。", "环境警告", "我知道了", IsWarn:=True) End If + If currentDirectory.ToLower().Contains("download") OrElse currentDirectory.Contains("下载") Then + MyMsgBox("不建议在下载文件夹中运行 PCL！" & vbCrLf & "PCL 目前似乎在您的下载文件夹中运行，这虽然大概率不会影响运行，但是您下次可能会找不到 PCL 在哪，建议您尽快将 PCL 复制到别处或单独的文件夹中运行", "环境警告", "我知道了", IsWarn:=True) + End If If Is32BitSystem Then MyMsgBox("PCL 和新版 Minecraft 均不再支持 32 位系统，部分功能将无法使用。" & vbCrLf & "非常建议重装为 64 位系统后再进行游戏！", "环境警告", "我知道了", IsWarn:=True) End If From 63c82b2b55e27b3cb844941b4d0bf3d8ab4df880 Mon Sep 17 00:00:00 2001 From: ZeroWolf Date: Mon, 25 Nov 2024 23:33:27 +0800 Subject: [PATCH 2/7] Update Application.xaml.vb --- Plain Craft Launcher 2/Application.xaml.vb | 1 + 1 file changed, 1 insertion(+) diff --git a/Plain Craft Launcher 2/Application.xaml.vb b/Plain Craft Launcher 2/Application.xaml.vb index b5b85a09..e569debb 100644 --- a/Plain Craft Launcher 2/Application.xaml.vb +++ b/Plain Craft Launcher 2/Application.xaml.vb @@ -116,6 +116,7 @@ WaitRetry: If Path.Contains(IO.Path.GetTempPath()) OrElse Path.Contains("AppData\Local\Temp\") Then MyMsgBox("请将 PCL 从压缩文件中解压，或是更换文件夹后再继续使用！" & vbCrLf & "程序目前在临时文件夹中运行，设置、游戏存档等可能无法保存，且部分功能将无法使用。", "环境警告", "我知道了", IsWarn:=True) End If + ' 在下载文件加中运行时给予提示以告知用户 If currentDirectory.ToLower().Contains("download") OrElse currentDirectory.Contains("下载") Then MyMsgBox("不建议在下载文件夹中运行 PCL！" & vbCrLf & "PCL 目前似乎在您的下载文件夹中运行，这虽然大概率不会影响运行，但是您下次可能会找不到 PCL 在哪，建议您尽快将 PCL 复制到别处或单独的文件夹中运行", "环境警告", "我知道了", IsWarn:=True) End If From 4ffb8b716e3e6c4ace9285f0ee50cd3e237df993 Mon Sep 17 00:00:00 2001 From: ZeroWolf Date: Mon, 25 Nov 2024 23:43:51 +0800 Subject: [PATCH 3/7] =?UTF-8?q?=E4=B8=8D=E5=B0=8F=E5=BF=83=E6=8C=89?= =?UTF-8?q?=E5=88=B0BackSpace=E8=AF=AF=E5=88=A0=E4=BA=86=E8=A1=8C=E4=BB=A3?= =?UTF-8?q?=E7=A0=81(?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Plain Craft Launcher 2/Application.xaml.vb | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Plain Craft Launcher 2/Application.xaml.vb b/Plain Craft Launcher 2/Application.xaml.vb index e569debb..664a8f2d 100644 --- a/Plain Craft Launcher 2/Application.xaml.vb +++ b/Plain Craft Launcher 2/Application.xaml.vb @@ -116,6 +116,8 @@ WaitRetry: If Path.Contains(IO.Path.GetTempPath()) OrElse Path.Contains("AppData\Local\Temp\") Then MyMsgBox("请将 PCL 从压缩文件中解压，或是更换文件夹后再继续使用！" & vbCrLf & "程序目前在临时文件夹中运行，设置、游戏存档等可能无法保存，且部分功能将无法使用。", "环境警告", "我知道了", IsWarn:=True) End If + ' 获取当前程序运行的文件夹路径 + Dim currentDirectory As String = My.Computer.FileSystem.CurrentDirectory ' 在下载文件加中运行时给予提示以告知用户 If currentDirectory.ToLower().Contains("download") OrElse currentDirectory.Contains("下载") Then MyMsgBox("不建议在下载文件夹中运行 PCL！" & vbCrLf & "PCL 目前似乎在您的下载文件夹中运行，这虽然大概率不会影响运行，但是您下次可能会找不到 PCL 在哪，建议您尽快将 PCL 复制到别处或单独的文件夹中运行", "环境警告", "我知道了", IsWarn:=True) From 7ecc14d1fa9abb76a65877373af8a3197518e467 Mon Sep 17 00:00:00 2001 From: ZeroWolf Date: Mon, 25 Nov 2024 23:50:16 +0800 Subject: [PATCH 4/7] =?UTF-8?q?=E7=BB=9F=E4=B8=80=E8=AF=AD=E8=A8=80?= =?UTF-8?q?=E9=A3=8E=E6=A0=BC?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Plain Craft Launcher 2/Application.xaml.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Plain Craft Launcher 2/Application.xaml.vb b/Plain Craft Launcher 2/Application.xaml.vb index 664a8f2d..06230c72 100644 --- a/Plain Craft Launcher 2/Application.xaml.vb +++ b/Plain Craft Launcher 2/Application.xaml.vb @@ -120,7 +120,7 @@ WaitRetry: Dim currentDirectory As String = My.Computer.FileSystem.CurrentDirectory ' 在下载文件加中运行时给予提示以告知用户 If currentDirectory.ToLower().Contains("download") OrElse currentDirectory.Contains("下载") Then - MyMsgBox("不建议在下载文件夹中运行 PCL！" & vbCrLf & "PCL 目前似乎在您的下载文件夹中运行，这虽然大概率不会影响运行，但是您下次可能会找不到 PCL 在哪，建议您尽快将 PCL 复制到别处或单独的文件夹中运行", "环境警告", "我知道了", IsWarn:=True) + MyMsgBox("不建议在下载文件夹中运行 PCL！" & vbCrLf & "程序目前似乎在下载文件夹中运行，虽然这可能不会影响运行，但是你下次可能会找不到 PCL 在哪。建议你尽快将 PCL 移动到别处或单独的文件夹中运行", "环境警告", "我知道了", IsWarn:=True) End If If Is32BitSystem Then MyMsgBox("PCL 和新版 Minecraft 均不再支持 32 位系统，部分功能将无法使用。" & vbCrLf & "非常建议重装为 64 位系统后再进行游戏！", "环境警告", "我知道了", IsWarn:=True) From c0ef706c74c78f06f766dfd4f3c80840e8032e04 Mon Sep 17 00:00:00 2001 From: ZeroWolf Date: Mon, 25 Nov 2024 23:52:57 +0800 Subject: [PATCH 5/7] =?UTF-8?q?=E5=8A=A0=E4=B8=AA=E5=8F=A5=E5=8F=B7?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Plain Craft Launcher 2/Application.xaml.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Plain Craft Launcher 2/Application.xaml.vb b/Plain Craft Launcher 2/Application.xaml.vb index 06230c72..ff6357a5 100644 --- a/Plain Craft Launcher 2/Application.xaml.vb +++ b/Plain Craft Launcher 2/Application.xaml.vb @@ -120,7 +120,7 @@ WaitRetry: Dim currentDirectory As String = My.Computer.FileSystem.CurrentDirectory ' 在下载文件加中运行时给予提示以告知用户 If currentDirectory.ToLower().Contains("download") OrElse currentDirectory.Contains("下载") Then - MyMsgBox("不建议在下载文件夹中运行 PCL！" & vbCrLf & "程序目前似乎在下载文件夹中运行，虽然这可能不会影响运行，但是你下次可能会找不到 PCL 在哪。建议你尽快将 PCL 移动到别处或单独的文件夹中运行", "环境警告", "我知道了", IsWarn:=True) + MyMsgBox("不建议在下载文件夹中运行 PCL！" & vbCrLf & "程序目前似乎在下载文件夹中运行，虽然这可能不会影响运行，但是你下次可能会找不到 PCL 在哪。建议你尽快将 PCL 移动到别处或单独的文件夹中运行。", "环境警告", "我知道了", IsWarn:=True) End If If Is32BitSystem Then MyMsgBox("PCL 和新版 Minecraft 均不再支持 32 位系统，部分功能将无法使用。" & vbCrLf & "非常建议重装为 64 位系统后再进行游戏！", "环境警告", "我知道了", IsWarn:=True) From 447d428133eb50aa175bb69e97b7e584d64eacbc Mon Sep 17 00:00:00 2001 From: ZeroWolf Date: Tue, 26 Nov 2024 00:02:12 +0800 Subject: [PATCH 6/7] =?UTF-8?q?=E9=87=8D=E5=A4=8D=E7=9A=84=E4=BB=A3?= =?UTF-8?q?=E7=A0=81=E7=9C=8B=E8=B5=B7=E6=9D=A5=E6=9C=89=E7=82=B9=E5=A4=AA?= =?UTF-8?q?=E5=B1=8E=E5=B1=B1=E4=BA=86?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Plain Craft Launcher 2/Application.xaml.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Plain Craft Launcher 2/Application.xaml.vb b/Plain Craft Launcher 2/Application.xaml.vb index ff6357a5..90c270d0 100644 --- a/Plain Craft Launcher 2/Application.xaml.vb +++ b/Plain Craft Launcher 2/Application.xaml.vb @@ -119,7 +119,7 @@ WaitRetry: ' 获取当前程序运行的文件夹路径 Dim currentDirectory As String = My.Computer.FileSystem.CurrentDirectory ' 在下载文件加中运行时给予提示以告知用户 - If currentDirectory.ToLower().Contains("download") OrElse currentDirectory.Contains("下载") Then + If currentDirectory.IndexOfAny({"download", "下载"}.Select(Function(s) currentDirectory.ToLower().Contains(s)).ToArray()) Then MyMsgBox("不建议在下载文件夹中运行 PCL！" & vbCrLf & "程序目前似乎在下载文件夹中运行，虽然这可能不会影响运行，但是你下次可能会找不到 PCL 在哪。建议你尽快将 PCL 移动到别处或单独的文件夹中运行。", "环境警告", "我知道了", IsWarn:=True) End If If Is32BitSystem Then From 4f613166ed8c0f286fe9b8c5689c52d5864b6e96 Mon Sep 17 00:00:00 2001 From: ZeroWolf Date: Tue, 26 Nov 2024 00:05:42 +0800 Subject: [PATCH 7/7] =?UTF-8?q?=E6=94=B9=E5=AE=8C=E4=BC=BC=E4=B9=8E?= =?UTF-8?q?=E8=B7=91=E4=B8=8D=E4=BA=86=E4=BA=86=EF=BC=8C=E8=BF=98=E6=98=AF?= =?UTF-8?q?=E6=94=B9=E5=9B=9E=E5=8E=BB=E7=BD=A2?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Plain Craft Launcher 2/Application.xaml.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Plain Craft Launcher 2/Application.xaml.vb b/Plain Craft Launcher 2/Application.xaml.vb index 90c270d0..ff6357a5 100644 --- a/Plain Craft Launcher 2/Application.xaml.vb +++ b/Plain Craft Launcher 2/Application.xaml.vb @@ -119,7 +119,7 @@ WaitRetry: ' 获取当前程序运行的文件夹路径 Dim currentDirectory As String = My.Computer.FileSystem.CurrentDirectory ' 在下载文件加中运行时给予提示以告知用户 - If currentDirectory.IndexOfAny({"download", "下载"}.Select(Function(s) currentDirectory.ToLower().Contains(s)).ToArray()) Then + If currentDirectory.ToLower().Contains("download") OrElse currentDirectory.Contains("下载") Then MyMsgBox("不建议在下载文件夹中运行 PCL！" & vbCrLf & "程序目前似乎在下载文件夹中运行，虽然这可能不会影响运行，但是你下次可能会找不到 PCL 在哪。建议你尽快将 PCL 移动到别处或单独的文件夹中运行。", "环境警告", "我知道了", IsWarn:=True) End If If Is32BitSystem Then