VB程序以管理员运行无法修改OEMBackground注册表键值求助

作为VB新手碰到这种权限相关的坑确实挺头疼的，我来帮你捋捋为啥管理员运行反而改不了注册表值：

核心原因：注册表重定向（Registry Redirector） #

Windows为了兼容32位和64位程序，会对注册表的部分路径做自动重定向。当你的32位VB程序以管理员身份运行时，系统会把你对HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background的修改，悄悄重定向到HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background这个32位专属分支里，但系统实际读取OEMBackground值的是64位分支，所以你看起来改了值，其实完全没触达系统真正生效的位置。

解决办法：明确访问64位注册表分支 #

你需要在操作注册表时指定访问64位视图，而不是默认的32位视图。修改你的注册表操作代码，添加RegistryView.Registry64参数：

假设你原来的注册表操作代码类似这样：

Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background", True)
key.SetValue("OEMBackground", 1, RegistryValueKind.DWord)
key.Close()

改成下面的写法即可：

' 先打开64位的本地机器注册表基项
Dim baseKey As RegistryKey = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64)
' 再打开目标子项
Dim targetKey As RegistryKey = baseKey.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background", True)
If targetKey IsNot Nothing Then
    targetKey.SetValue("OEMBackground", 1, RegistryValueKind.DWord)
    targetKey.Close()
End If
baseKey.Close()

额外优化建议 #

• 可以调整项目编译设置：右键项目 → 属性 → 编译 → 目标CPU，选择Any CPU并取消勾选首选32位，这样程序在64位系统上会以64位模式运行，从根源上避免注册表重定向问题。
• 修改注册表后，最好调用系统API刷新壁纸相关设置，或者重启资源管理器，确保修改立刻生效。

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