VB.NET程序被第三方启动时无法访问My.Settings的解决方案咨询

核心问题是程序被第三方软件启动时，无法读取到预期的配置值——哪怕换成XML文件存储也失效，大概率是以下几个原因导致：

• My.Settings的用户隔离特性：默认配置存储在当前用户的AppData目录，若第三方软件以不同用户/权限（比如管理员）启动程序，会加载另一套完全不同的配置。
• 工作目录被第三方篡改：第三方启动你的控制台程序时，可能强制修改了它的工作目录，导致你读取XML文件时路径错误。
• UAC文件虚拟化：Windows会对无权限写入系统目录的程序，将配置文件重定向到VirtualStore目录，导致读取到旧的或空的配置。

1. 强制使用程序目录的统一配置文件 #

放弃My.Settings的默认用户隔离存储，改为把配置文件放在程序安装目录，确保无论谁启动都读取同一个配置：

实现步骤： #

1. 在程序同目录创建MyApp.config文件，内容如下：

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
  <appSettings>
    <add key="BaseDirectory" value="C:\BaseFolder" />
    <add key="SubDirectory" value="SubFolder" />
  </appSettings>
</configuration>

2. 在程序启动时手动加载这个配置文件：

Imports System.Configuration
Imports System.IO

Private Sub Application_Startup(sender As Object, e As StartupEventArgs) Handles Me.Startup
    ' 拼接程序目录下的配置文件路径
    Dim configPath As String = Path.Combine(Application.StartupPath, "MyApp.config")
    Dim configMap As New ExeConfigurationFileMap() With {.ExeConfigFilename = configPath}
    Dim config As Configuration = ConfigurationManager.OpenMappedExeConfiguration(configMap, ConfigurationUserLevel.None)
    
    ' 读取配置项
    Dim baseDir As String = config.AppSettings.Settings("BaseDirectory").Value
    Dim subDir As String = config.AppSettings.Settings("SubDirectory").Value
    
    Dim Folder As String = baseDir & "\Results\"
    If Not String.IsNullOrEmpty(subDir) Then
        Folder &= subDir & "\"
    End If
End Sub

2. 锁定进程启动的工作目录 #

修改你的控制台启动程序，关闭UseShellExecute（避免系统用默认上下文启动），强制指定目标程序的安装目录作为工作目录：

Imports System.IO
Imports System.Diagnostics

Sub Main()
    Try
        Dim args = My.Application.CommandLineArgs
        If args.Count = 0 Then Throw New Exception("No Result given")

        Dim executable As String = "C:\Path\Executable.exe"
        If Not File.Exists(executable) Then Throw New Exception("Executable not found")

        Dim targetDir As String = IO.Path.GetDirectoryName(executable)
        If Not Directory.Exists(targetDir) Then Throw New Exception("Working directory not found")

        Dim result As String = String.Join(" ", args)

        Dim info As New ProcessStartInfo(executable, Chr(34) & result & Chr(34)) With {
            .UseShellExecute = False, ' 禁用ShellExecute，确保工作目录设置生效
            .WorkingDirectory = targetDir,
            .CreateNoWindow = True
        }
        Dim p = Process.Start(info)
        p.WaitForExit()
    Catch ex As Exception
        Console.WriteLine(ex.Message)
    End Try
End Sub

3. 禁用UAC文件虚拟化 #

给你的程序添加应用程序清单，明确禁用Windows的文件/注册表虚拟化，避免配置被重定向：

1. 在项目中添加app.manifest文件，修改其中的配置节点：

<?xml version="1.0" encoding="utf-8"?>
<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">
  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
    <security>
      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
        <requestedExecutionLevel level="asInvoker" uiAccess="false" />
      </requestedPrivileges>
    </security>
  </trustInfo>

  <application xmlns="urn:schemas-microsoft-com:asm.v3">
    <windowsSettings>
      <disableRegistryVirtualization xmlns="urn:schemas-microsoft-com:asm.v3">true</disableRegistryVirtualization>
      <disableFileVirtualization xmlns="urn:schemas-microsoft-com:asm.v3">true</disableFileVirtualization>
    </windowsSettings>
  </application>
</assembly>

4. 兜底方案：用命令行传递基础路径 #

如果以上方案都无效，可以直接将基础路径通过命令行参数传递，彻底摆脱对外部配置的依赖：

1. 修改目标程序的启动逻辑：

Private Sub Application_Startup(sender As Object, e As StartupEventArgs) Handles Me.Startup
    ' 优先从命令行参数获取基础路径，没有则用硬编码值
    Dim baseDir As String = If(e.Args.Length > 1, e.Args(1), "C:\BaseFolder")
    Dim subDir As String = My.Settings.SubDirectory ' 或者也从参数传递
    
    Dim Folder As String = Path.Combine(baseDir, "Results")
    If Not String.IsNullOrEmpty(subDir) Then
        Folder = Path.Combine(Folder, subDir)
    End If
    Folder &= Path.DirectorySeparatorChar
End Sub

2. 修改控制台启动程序，追加基础路径参数：

Dim result As String = String.Join(" ", args)
' 把基础路径作为第二个参数传递
Dim fullArgs As String = $"{Chr(34)}{result}{Chr(34)} ""C:\BaseFolder"""
Dim info As New ProcessStartInfo(executable, fullArgs) With {
    .UseShellExecute = False,
    .WorkingDirectory = targetDir
}

内容的提问来源于stack exchange，提问作者Oliver