Stimpy
Legacy Member
Hallo
ik probeer vanuit vb.net een waarde uit de registry te lezen, namelijk de namen van alle geinstalleerde programmas
http://users.pandora.be/unatco/regedit.JPG zie hier
ik kan al aan die lange getallen en letterreeks in de linkerkolom, maar verder dan dat geraak ik niet, ik krijg altijd een nullpointer en weet dus niet hoe ik tegoei naar die value moet wijzen
ik heb al veel geprobeerd zoals deze rommelcode (eigelijk 2 codes door elkaar)
Dim displayname As String
Dim regkey As RegistryKey
regkey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", True)
Dim skname As String
Dim ver As String
Dim objSubkey As RegistryKey
For Each skname In regkey.GetSubKeyNames()
'Dim sk As RegistryKey = rk.OpenSubKey(skname)
'objSubkey = skname.opensubkey()
ver = regkey.GetValue("DisplayName")
'lstPrograms.Items.Add(ver)
'lstPrograms.Items.Add(displayname)
Next
of
Dim aKey As RegistryKey
aKey = Registry.CurrentUser.GetValue("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall") ' CreateSubKey _
' ("Software\VBDotNetDemo")
Dim strTest As String
strTest = aKey.GetValue("DisplayName")
MsgBox(strTest)
'MessageBox.Show("The value of the new key " _
' & "'HKEY_CURRENT_USER\Software\" & _
' "VBDotNetDemo' is: " _
' & aKey.GetValue("VBDotNetDemo", _
' "Default value"), _
' "Key Created Successfully")
maar kom uiteindelijk dus altijd op die nullpointer uit (ook nog andere snippets van google gebruikt maar tis altijd tzelfde
)
kan iemand me helpen?
grtz
ik probeer vanuit vb.net een waarde uit de registry te lezen, namelijk de namen van alle geinstalleerde programmas
http://users.pandora.be/unatco/regedit.JPG zie hier

ik kan al aan die lange getallen en letterreeks in de linkerkolom, maar verder dan dat geraak ik niet, ik krijg altijd een nullpointer en weet dus niet hoe ik tegoei naar die value moet wijzen
ik heb al veel geprobeerd zoals deze rommelcode (eigelijk 2 codes door elkaar)
Dim displayname As String
Dim regkey As RegistryKey
regkey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", True)
Dim skname As String
Dim ver As String
Dim objSubkey As RegistryKey
For Each skname In regkey.GetSubKeyNames()
'Dim sk As RegistryKey = rk.OpenSubKey(skname)
'objSubkey = skname.opensubkey()
ver = regkey.GetValue("DisplayName")
'lstPrograms.Items.Add(ver)
'lstPrograms.Items.Add(displayname)
Next
of
Dim aKey As RegistryKey
aKey = Registry.CurrentUser.GetValue("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall") ' CreateSubKey _
' ("Software\VBDotNetDemo")
Dim strTest As String
strTest = aKey.GetValue("DisplayName")
MsgBox(strTest)
'MessageBox.Show("The value of the new key " _
' & "'HKEY_CURRENT_USER\Software\" & _
' "VBDotNetDemo' is: " _
' & aKey.GetValue("VBDotNetDemo", _
' "Default value"), _
' "Key Created Successfully")
maar kom uiteindelijk dus altijd op die nullpointer uit (ook nog andere snippets van google gebruikt maar tis altijd tzelfde
)kan iemand me helpen?
grtz