Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

当PCL2在下载文件夹中运行时给予提示以告知用户 #5183

Closed
wants to merge 7 commits into from
Closed

当PCL2在下载文件夹中运行时给予提示以告知用户 #5183

Changes from 3 commits
Commits
Show all changes
7 commits
Select commit Hold shift + click to select a range
23f00c4
在下载文件夹中运行时给个提示
ZeroWolf233 Nov 25, 2024
63c82b2
Update Application.xaml.vb
ZeroWolf233 Nov 25, 2024
4ffb8b7
不小心按到BackSpace误删了行代码(
ZeroWolf233 Nov 25, 2024
7ecc14d
统一语言风格
ZeroWolf233 Nov 25, 2024
c0ef706
加个句号
ZeroWolf233 Nov 25, 2024
447d428
重复的代码看起来有点太屎山了
ZeroWolf233 Nov 25, 2024
4f61316
改完似乎跑不了了，还是改回去罢
ZeroWolf233 Nov 25, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 6 additions & 0 deletions Plain Craft Launcher 2/Application.xaml.vb
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -116,6 +116,12 @@ 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)
Copy link
Collaborator

@3gf8jv4dv 3gf8jv4dv Nov 25, 2024 •
edited
Loading

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Suggested change
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)
End If
Expand Down