实现 #6973

2025-08-08 14:55:38 +08:00
parent 8e0f53c881
commit d133138984
2 changed files with 14 additions and 0 deletions
@@ -115,6 +115,13 @@
                        PageOtherTest.StartCustomDownload(Data(0), "未知")
                    End Try

+                Case "修改设置"
+                    If Setup.IsEncoded(Data(0)) Then
+                        Throw New Exception($"无法修改受加密保护的设置：{Data(0)}")
+                    End If
+                    Setup.Set(Data(0), Data(1))
+                    Hint("已修改设置！", HintType.Finish)
+
                Case Else
                    MyMsgBox("未知的事件类型：" & Type & vbCrLf & "请检查事件类型填写是否正确，或者 PCL 是否为最新版本。", "事件执行失败")
            End Select