Hallo 
Ich hatte vor ein Programm zu schreiben das in meiner Registry dannach guckt welche Software installiert ist.
Später soll das Programm auch im Netzwerk gucken welche Programme auf anderen Rechnern installiert sind.
Das Problem ist das ich beim abfragen der Registry von meinem PC schon Problem habe.
Der Code ist wie folgt im Moment :
Wenn ich es nun ausführe kommt folgendes Problem:
*Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
Habe das Programm mal in mit angehongen ;).
registry abfrage.7z
--> Den Code habe ich im Internet gefunden. Habe ihn nur ein bischen abgeändert.
Ich hatte vor ein Programm zu schreiben das in meiner Registry dannach guckt welche Software installiert ist.
Später soll das Programm auch im Netzwerk gucken welche Programme auf anderen Rechnern installiert sind.
Das Problem ist das ich beim abfragen der Registry von meinem PC schon Problem habe.
Der Code ist wie folgt im Moment :
Quellcode
- Imports Microsoft.Win32.Registry
- Imports Microsoft.Win32.RegistryHive
- Imports Microsoft.Win32.RegistryKey
- Imports Microsoft.Win32.RegistryKeyPermissionCheck
- Imports Microsoft.Win32.RegistryOptions
- Imports Microsoft.Win32.RegistryValueKind
- Imports Microsoft.Win32.RegistryValueOptions
- Imports Microsoft.Win32.RegistryView
- Public Class Form1Sub test()
- Dim key As Microsoft.Win32.RegistryKeykey = My.Computer.Registry.LocalMachine.OpenSubKey( _
- "SOFTWARE\Wow6432Node\Microsoft\Windows\" _& "CurrentVersion\Uninstall")
- Dim subkey() As Stringsubkey = My.Computer.Registry.LocalMachine.GetSubKeyNames()
- For i = LBound(subkey) To UBound(subkey) - 1
- Dim key2 As Microsoft.Win32.RegistryKeykey2 = My.Computer.Registry.LocalMachine.OpenSubKey( _
- "SOFTWARE\Wow6432Node\Microsoft\Windows\" _& "CurrentVersion\Uninstall\" & subkey(i))
- Dim ValueNames As StringValueNames = key2.GetValue("DisplayName")
- ' Namen der Schlüssel ausgeben
- ' Namen der Schlüssel ausgeben
- Try
- ListBox1.Items.Add(ValueNames)
- Catch
- End Try
- Next
- End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- test()End Sub
- End Class
Wenn ich es nun ausführe kommt folgendes Problem:
*Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
Habe das Programm mal in mit angehongen ;).
registry abfrage.7z
--> Den Code habe ich im Internet gefunden. Habe ihn nur ein bischen abgeändert.
