VB NET 注册表操作

红太狼 2023-06-20 06:10 85阅读 0赞

Imports System
    Imports System.Collections.Generic
    Imports System.Text
    Imports Microsoft.Win32
    Imports System.Diagnostics
    
    Class Reg
        ''' <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 RegistryKey
                Key_LocalMachine = My.Computer.Registry.LocalMachine 'get the key path of HKEY_LOCAL_MACHINE     
                Dim Key_Created As 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 RegistryKey
                Key_LocalMachine = My.Computer.Registry.LocalMachine 'get the key path of HKEY_LOCAL_MACHINE     
                Dim Key_Get As 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 RegistryKey
                Key_LocalMachine = My.Computer.Registry.LocalMachine 'get the key path of HKEY_LOCAL_MACHINE     
                Dim Key_Exist As 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 RegistryKey
                Key_LocalMachine = My.Computer.Registry.LocalMachine 'get the key path of HKEY_LOCAL_MACHINE     
                Dim Key_Del As 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
    End Class

代码2是[https://blog.csdn.net/qq\_33538554/article/details/97131174][https_blog.csdn.net_qq_33538554_article_details_97131174]的VB版

Imports System
    Imports System.Collections.Generic
    Imports System.Linq
    Imports System.Text
    Imports Microsoft.Win32
    
    
    
    Class RegistryHelper
        ''' <summary>
        ''' 读取指定名称的注册表的值
        ''' </summary>
        ''' <param name="name"></param>
        ''' <returns></returns>
        Public Function GetRegistryData(ByVal root As RegistryKey, ByVal subkey As String, ByVal name As String) As String
            Dim registData As String = ""
            Dim myKey As RegistryKey = root.OpenSubKey(subkey, True)
            If (Not (myKey) Is Nothing) Then
                registData = myKey.GetValue(name).ToString
            End If
    
            Return registData
        End Function
    
        ''' <summary>
        ''' 向注册表中写数据
        ''' </summary>
        ''' <param name="root"></param>
        ''' <param name="subkey"></param> 
        ''' <param name="name"></param> 
        ''' <param name="value"></param> 
        Public Sub SetRegistryData(ByVal root As RegistryKey, ByVal subkey As String, ByVal name As String, ByVal value As String)
            Dim aimdir As RegistryKey = root.CreateSubKey(subkey)
            aimdir.SetValue(name, value)
        End Sub
    
        ''' <summary>
        ''' 删除注册表中指定的注册表项
        ''' </summary>
        ''' <param name="name"></param>
        Public Sub DeleteRegist(ByVal root As RegistryKey, ByVal subkey As String, ByVal name As String)
            Dim subkeyNames() As String
            Dim myKey As RegistryKey = root.OpenSubKey(subkey, True)
            subkeyNames = myKey.GetSubKeyNames
            For Each aimKey As String In subkeyNames
                If (aimKey = name) Then
                    myKey.DeleteSubKeyTree(name)
                End If
    
            Next
        End Sub
        ''' <summary>
        ''' 判断指定注册表项是否存在
        ''' </summary>
        ''' <param name="name"></param>
        ''' <returns></returns>
        Public Function IsRegistryExist(ByVal root As RegistryKey, ByVal subkey As String, ByVal name As String) As Boolean
            Dim _exit As Boolean = False
            Dim subkeyNames() As String
            Dim myKey As RegistryKey = root.OpenSubKey(subkey, True)
            subkeyNames = myKey.GetSubKeyNames
            For Each keyName As String In subkeyNames
                If (keyName = name) Then
                    _exit = True
                    Return _exit
                End If
    
            Next
            Return _exit
        End Function
    End Class

[https_blog.csdn.net_qq_33538554_article_details_97131174]: https://blog.csdn.net/qq_33538554/article/details/97131174