使用VB.NET检测注册表项

Question

使用VS2013和VB.NET（框架4.5），无论我做什么，我都无法检测是否存在键值。 我正在尝试检测值是否存在，如果确实存在，请使用组合框中的值进行更新，如果不存在，则添加它。

密钥为HKEY_USERS\\S-1-5-18\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Windows\\Device 。

我一直在修改的代码如下。 有什么想法吗？

Dim l_subKeyPath As String = "HKEY_USERS\S-1-5-18\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device"
Dim l_regKey = My.Computer.Registry.CurrentUser.OpenSubKey(l_subKeyPath)

If l_regKey Is Nothing Then
   ' if nothing then key doesn't exists
  Else
   ' key exists
End If

即使密钥存在，代码也总是返回“ Is Nothing”。

Answer 1

尝试这样做。

Dim l_subKeyPath As String = "Software\Microsoft\Windows NT\CurrentVersion\Windows"
Dim l_regKey = My.Computer.Registry.CurrentUser.OpenSubKey(l_subKeyPath)

If l_regKey Is Not Nothing Then
   Dim deviceValue as String =   l_regKey.GetValue("Device")
  // 
Else
End If

您的代码有问题，因为您提供了注册表项及其值的完整路径。 此外，您的代码还包含HKEY_USers \\ S-1-5-18，如果您使用Registry.CurrentUser，则不需要此代码