Registry Editing

[lothos12345]

I want to write a program that edits a particuliar registry value every time the button is clicked. I have no ideal how to accomplish this task. I want to edit it using VB.NET any help given would be greatly appreiciated. The reason being is that there is a program that I have that used a partcular registry value as a default everytime it is opened. If I edit that registry value the default will change and it will save me a great deal of time with some of my tasks.

 

[mutant]

Look into the following classes:
Microsoft.Win32.Registry
Microsoft.Win32.RegistryKey
To read, or set registry settings look into the OpenSubKey, GetValue, SetValue methods of the Registry class.

 

[fadi]

take this code to get,update,delete registery values
Gets a value data for a specific ValueName in the registry
Public Function GetFromRegistry(ByVal KeyPath As String, ByVal ValueName As String) As String
Dim regKey As RegistryKey
Dim strValueData As String
Try
Open the key with write access
regKey = Registry.LocalMachine.OpenSubKey(KeyPath, False)
If regKey Is Nothing Then
Exit Function
End If

Get the data of [ValueName] Value, if no data is found return ""
strValueData = CStr(regKey.GetValue(ValueName, ""))
Return strValueData
Catch ex As Exception
Return ""
End Try
End Function

Saves a value name with its data and parent key in the registry
Public Sub SaveToRegistry(ByVal KeyPath As String, ByVal ValueName As String, ByVal ValueData As Object)
Dim regKey As RegistryKey
Try
Open the key with write access
regKey = Registry.LocalMachine.OpenSubKey(KeyPath, True)

If not found, create the key
If regKey Is Nothing Then
Create a key in HKEY_LOCAL_MACHINE\[Path] with a name of [ValueName]
regKey = Registry.LocalMachine.CreateSubKey(KeyPath)
End If

Set a new value
regKey.SetValue(ValueName, ValueData)

Catch ex As Exception
Throw New System.Exception("Error saving to registry")
End Try
End Sub

Delete a value for a parent key in the registry
Public Sub DeleteFromRegistry(ByVal KeyPath As String, ByVal ValueName As String)
Dim regKey As RegistryKey
Try
Open the key with write access
regKey = Registry.LocalMachine.OpenSubKey(KeyPath, True)
regKey.DeleteValue(ValueName)
Catch ex As Exception
End Try
End Sub

 

[laredo512]

take this code to get,update,delete registery values
Gets a value data for a specific ValueName in the registry
Public Function GetFromRegistry(ByVal KeyPath As String, ByVal ValueName As String) As String
Dim regKey As RegistryKey
Dim strValueData As String
Try
Open the key with write access
regKey = Registry.LocalMachine.OpenSubKey(KeyPath, False)
If regKey Is Nothing Then
Exit Function
End If

Get the data of [ValueName] Value, if no data is found return ""
strValueData = CStr(regKey.GetValue(ValueName, ""))
Return strValueData
Catch ex As Exception
Return ""
End Try
End Function

Saves a value name with its data and parent key in the registry
Public Sub SaveToRegistry(ByVal KeyPath As String, ByVal ValueName As String, ByVal ValueData As Object)
Dim regKey As RegistryKey
Try
Open the key with write access
regKey = Registry.LocalMachine.OpenSubKey(KeyPath, True)

If not found, create the key
If regKey Is Nothing Then
Create a key in HKEY_LOCAL_MACHINE\[Path] with a name of [ValueName]
regKey = Registry.LocalMachine.CreateSubKey(KeyPath)
End If

Set a new value
regKey.SetValue(ValueName, ValueData)

Catch ex As Exception
Throw New System.Exception("Error saving to registry")
End Try
End Sub

Delete a value for a parent key in the registry
Public Sub DeleteFromRegistry(ByVal KeyPath As String, ByVal ValueName As String)
Dim regKey As RegistryKey
Try
Open the key with write access
regKey = Registry.LocalMachine.OpenSubKey(KeyPath, True)
regKey.DeleteValue(ValueName)
Catch ex As Exception
End Try
End Sub

I have tried this code and keep getting a System Null Reference Exception... Object not set to a reference of an object

How would I properly apply your code in a sub routine ?

 

[laredo512]

Never mind.... found it.

Great piece of code!

 

[TheWizardofInt]

Excellent - worked exactly as you say

Thanks, so much!