Archief - [PROG]vb.net Registry waarde lezen

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.

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

Stimpy

Legacy Member
Const mainKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
Dim displayname As String
Dim regkey As RegistryKey
regkey = Registry.LocalMachine.OpenSubKey(mainKey, True)
Dim sKeyName As Object
Dim ver As String
Dim objSubkey As RegistryKey
For Each sKeyName In regkey.GetSubKeyNames()
objSubkey = Registry.LocalMachine.OpenSubKey(mainKey & "\" & sKeyName, True)
ver = objSubkey.GetValue("DisplayName")
lstPrograms.Items.Add(ver)
Next

voila voor als iemand het ooit nodig zou hebbe :) heb wat hulp gehad

grtz

Asshen

Legacy Member
Ik heb daar een artikeltje over geschreven op mijn .net webhoekje, zie signature.
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan