Skip to content

fix(telemetry): 修复缓存导致的配置未保存问题 #2485

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

Merged
LingYue412 merged 5 commits into from
Feb 24, 2026
Merged

fix(telemetry): 修复缓存导致的配置未保存问题 #2485

Changes from all commits
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
3550a1d
chore(start): 分开弹窗和加载线程，避免弹窗卡数据加载
tangge233 Feb 23, 2026
4cbc21f
fix: setup cache
tangge233 Feb 23, 2026
e83df8b
chore: format
tangge233 Feb 23, 2026
bc5becf
Merge branch 'dev' into chore/start-load
tangge233 Feb 24, 2026
abe966b
fix: cache
tangge233 Feb 24, 2026
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
102 changes: 52 additions & 50 deletions Plain Craft Launcher 2/FormMain.xaml.vb
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -186,63 +186,65 @@ Public Class FormMain
'Timer 启动
AniStart()
TimerMainStart()
'加载池
RunInNewThread(
Sub()
'特殊版本提示
Sub()
Try
'特殊版本提示
#If DEBUG Or DEBUGCI Then
If Environment.GetEnvironmentVariable("PCL_DISABLE_DEBUG_HINT") Is Nothing Then
If Environment.GetEnvironmentVariable("PCL_DISABLE_DEBUG_HINT") Is Nothing Then
#If DEBUG Then
Const hint = "当前运行的 PCL 社区版为 Debug 版本。" & vbCrLf &
"该版本仅适合开发者调试运行，可能会有严重的性能下降以及各种奇怪的网络问题。" & vbCrLf &
vbCrLf &
"非开发者用户使用该版本造成的一切问题均不被社区支持，相关 issue 可能会被直接关闭。" & vbCrLf &
"除非您是开发者，否则请立即删除该版本，并下载最新稳定版使用。"
Const hint = "当前运行的 PCL 社区版为 Debug 版本。" & vbCrLf &
"该版本仅适合开发者调试运行，可能会有严重的性能下降以及各种奇怪的网络问题。" & vbCrLf &
vbCrLf &
"非开发者用户使用该版本造成的一切问题均不被社区支持，相关 issue 可能会被直接关闭。" & vbCrLf &
"除非您是开发者，否则请立即删除该版本，并下载最新稳定版使用。"
#Else
Const hint = "当前运行的 PCL 社区版为 CI 自动构建版本。" & vbCrLf &
"该版本包含最新的漏洞修复、优化和新特性，但性能和稳定性较差，不适合日常使用和制作整合包。" & vbCrLf &
vbCrLf &
"除非社区开发者要求或您自己想要这么做，否则请下载最新稳定版使用。"
Const hint = "当前运行的 PCL 社区版为 CI 自动构建版本。" & vbCrLf &
"该版本包含最新的漏洞修复、优化和新特性，但性能和稳定性较差，不适合日常使用和制作整合包。" & vbCrLf &
vbCrLf &
"除非社区开发者要求或您自己想要这么做，否则请下载最新稳定版使用。"
#End If
MyMsgBox($"{hint}{vbCrLf}{vbCrLf}可以添加 PCL_DISABLE_DEBUG_HINT 环境变量 (任意值) 来隐藏这个提示。",
"特殊版本提示", "我清楚我在做什么", "打开最新版下载页并退出", IsWarn:=True,
Button2Action:=Sub()
OpenWebsite("https://github.com/PCL-Community/PCL2-CE/releases/latest")
EndProgram(False)
End Sub)
End If
MyMsgBox($"{hint}{vbCrLf}{vbCrLf}可以添加 PCL_DISABLE_DEBUG_HINT 环境变量 (任意值) 来隐藏这个提示。",
"特殊版本提示", "我清楚我在做什么", "打开最新版下载页并退出", IsWarn:=True,
Button2Action:=Sub()
OpenWebsite("https://github.com/PCL-Community/PCL2-CE/releases/latest")
EndProgram(False)
End Sub)
End If
#End If
'EULA 提示
If Not Setup.Get("SystemEula") Then
Select Case MyMsgBox("在使用 PCL 前，请同意 PCL 的用户协议与免责声明。", "协议授权", "同意", "拒绝", "查看用户协议与免责声明",
Button3Action:=Sub() OpenWebsite("https://shimo.im/docs/rGrd8pY8xWkt6ryW"))
Case 1
Setup.Set("SystemEula", True)
Case 2
EndProgram(False)
End Select
End If
'遥测提示
If Setup.IsUnset("SystemTelemetry") Then
Select Case MyMsgBox("这是一项与 Steam 硬件调查类似的计划，参与调查可以帮助我们更好的进行规划和开发，且我们会不定期发布该调查的统计结果。" & vbCrLf &
"如果选择参与调查，我们将会收集以下信息：" & vbCrLf & vbCrLf &
"- 启动器版本信息与识别码" & vbCrLf &
"- Windows 系统版本与架构" & vbCrLf &
"- 已安装的物理内存大小" & vbCrLf &
"- NAT 与 IPv6 支持情况" & vbCrLf &
"- 是否使用过官方版 PCL、HMCL 或 BakaXL" & vbCrLf & vbCrLf &
"这些数据均不与你关联，我们也绝不会向第三方出售数据。" & vbCrLf &
"如果不想参与该调查，可以选择拒绝，不会影响其他功能使用。" & vbCrLf &
"你可以随时在启动器设置中调整这项设置。", "参与 PCL CE 软硬件调查", "同意", "拒绝")
Case 1
Setup.Set("SystemTelemetry", True)
Case 2
Setup.Set("SystemTelemetry", False)
End Select
End If
'EULA 提示
If Not Setup.Get("SystemEula") Then
Select Case MyMsgBox("在使用 PCL 前，请同意 PCL 的用户协议与免责声明。", "协议授权", "同意", "拒绝", "查看用户协议与免责声明",
Button3Action:=Sub() OpenWebsite("https://shimo.im/docs/rGrd8pY8xWkt6ryW"))
Case 1
Setup.Set("SystemEula", True)
Case 2
EndProgram(False)
End Select
End If
'遥测提示
If Config.System.TelemetryConfig.IsDefault() Then
Dim selection = MyMsgBox("这是一项与 Steam 硬件调查类似的计划，参与调查可以帮助我们更好的进行规划和开发，且我们会不定期发布该调查的统计结果。" & vbCrLf &
"如果选择参与调查，我们将会收集以下信息：" & vbCrLf & vbCrLf &
"- 启动器版本信息与识别码" & vbCrLf &
"- Windows 系统版本与架构" & vbCrLf &
"- 已安装的物理内存大小" & vbCrLf &
"- NAT 与 IPv6 支持情况" & vbCrLf &
"- 是否使用过官方版 PCL、HMCL 或 BakaXL" & vbCrLf & vbCrLf &
"这些数据均不与你关联，我们也绝不会向第三方出售数据。" & vbCrLf &
"如果不想参与该调查，可以选择拒绝，不会影响其他功能使用。" & vbCrLf &
"你可以随时在启动器设置中调整这项设置。", "参与 PCL CE 软硬件调查", "同意", "拒绝")
Config.System.TelemetryConfig.SetValue(selection = 1, bypassCache:=True)
End If
Catch ex As Exception
Log(ex, "初始弹窗提示运行失败", LogLevel.Feedback)
End Try
End Sub, "Start MsgBox", ThreadPriority.Lowest)
'加载池
RunInNewThread(
Sub()
'启动加载器池
Try
Thread.Sleep(100)
DlClientListMojangLoader.Start(1) 'PCL 会同时根据这里的加载结果决定是否使用官方源进行下载
RunCountSub()
ServerLoader.Start(1)
Expand All @@ -251,7 +253,7 @@ Public Class FormMain
Log(ex, "初始化加载池运行失败", LogLevel.Feedback)
End Try
GetSystemInfo()
End Sub, "Start Loader", ThreadPriority.Lowest)
End Sub, "Start Loader", ThreadPriority.BelowNormal)

Log("[Start] 第三阶段加载用时：" & TimeUtils.GetTimeTick() - ApplicationStartTick & " ms")
End Sub
Expand Down