VB.NET 注册表基本操作

 ''' <summary>
     ''' 注册表设置值
     ''' </summary>
     ''' <param name="strKey"></param>
     ''' <param name="strName"></param>
     ''' <param name="strValue"></param>
     ''' <returns></returns>
     ''' <remarks></remarks>
     Private Function SetRegistry(ByVal strKey As String, ByVal strName As String, ByVal strValue As String) As Boolean
         Try
             Dim Key_LocalMachine As Microsoft.Win32.RegistryKey
             Key_LocalMachine = My.Computer.Registry.LocalMachine 'get the key path of HKEY_LOCAL_MACHINE
             Dim Key_Created As Microsoft.Win32.RegistryKey
             Key_Created = Key_LocalMachine.OpenSubKey(strKey, True) 'set the true for can write
             If Key_Created Is Nothing Then
                 Key_Created = Key_LocalMachine.CreateSubKey(strKey) 'careat the key
             End If
             Key_Created.SetValue(strName, strValue) 'set the values of the key
             Return True
         Catch ex As Exception
             Return False
         End Try
     End Function
     ''' <summary>
     ''' 获取注册表值
     ''' </summary>
     ''' <param name="strKey"></param>
     ''' <param name="strName"></param>
     ''' <param name="strValue"></param>
     ''' <returns></returns>
     ''' <remarks></remarks>
     Private Function GetValueFromRegistry(ByVal strKey As String, ByVal strName As String, ByRef strValue As String) As Boolean
         Try
             Dim Key_LocalMachine As Microsoft.Win32.RegistryKey
             Key_LocalMachine = My.Computer.Registry.LocalMachine 'get the key path of HKEY_LOCAL_MACHINE
             Dim Key_Get As Microsoft.Win32.RegistryKey
             Key_Get = Key_LocalMachine.OpenSubKey(strKey)
             If Key_Get Is Nothing Then
                 Return False
             End If
             strValue = Key_Get.GetValue(strName) 'get the values of the key
             Return True
         Catch ex As Exception
             Return False
         End Try
     End Function
     ''' <summary>
     ''' 判断值是否存在
     ''' </summary>
     ''' <param name="strKey"></param>
     ''' <param name="strName"></param>
     ''' <returns></returns>
     ''' <remarks></remarks>
     Private Function RegistryExist(ByVal strKey As String, ByVal strName As String) As Boolean
         Try
             Dim Key_LocalMachine As Microsoft.Win32.RegistryKey
             Key_LocalMachine = My.Computer.Registry.LocalMachine 'get the key path of HKEY_LOCAL_MACHINE
             Dim Key_Exist As Microsoft.Win32.RegistryKey
             Key_Exist = Key_LocalMachine.OpenSubKey(strKey, True) 'set the true for can write
             If Key_Exist Is Nothing Then
                 Return False
             End If
             If Key_Exist.GetValue(strName) Is Nothing Then
                 Return False
             End If
             Return True
         Catch ex As Exception
             Return False
         End Try
     End Function
     ''' <summary>
     ''' 删除注册表对应值
     ''' </summary>
     ''' <param name="strKey"></param>
     ''' <param name="strName"></param>
     ''' <returns></returns>
     ''' <remarks></remarks>
     Private Function DeleteRegistry(ByVal strKey As String, ByVal strName As String) As Boolean
         Try
             Dim Key_LocalMachine As Microsoft.Win32.RegistryKey
             Key_LocalMachine = My.Computer.Registry.LocalMachine 'get the key path of HKEY_LOCAL_MACHINE
             Dim Key_Del As Microsoft.Win32.RegistryKey
             Key_Del = Key_LocalMachine.OpenSubKey(strKey, True) 'set the true for can write
             If Key_Del Is Nothing Then
                 Return False
             End If
             Key_Del.DeleteValue(strName) 'delete the values of the key'name
             Return True
         Catch ex As Exception
             Return False
         End Try
     End Function

调用：

 SetRegistry("SOFTWARE\XXXX\DIS-ESS\FTP", "User", "")
         Dim temvalue As String = ""
         GetValueFromRegistry("SOFTWARE\XXXX\DIS-ESS\FTP", "User", temvalue)

         'DeleteRegistry("SOFTWARE\Unisys\DIS-ESS\FTP", "User")

         RegistryExist("SOFTWARE\XXXX\DIS-ESS\FTP", "User")