Registry, alle SubKeys durchsuchen

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Registry, alle SubKeys durchsuchen

    Hallo,
    Ich habe ein Problem mit dem Durchsuchen der Registry. Ich möchte den "InstalPath" von "World of Warcraft" herausfinden. Er befindet sich in den Unterordnern "Blizzard Entertaiment\World of Warcraft", aber die Überordner sind nicht bekannt, weil das für einen Launcher ist und die Standorte dieser Ordner in der Registry auf verschiedenen Computern variieren.
    Gibt es eine Möglichkeit die Registry so zu durchsuchen, dass ich den "InstallPath" herausfinde, obwohl nur die letzten beiden Unterordner bekannt sind?

    Mit freundlichen Grüßen,
    Dark_Playmo

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Dark_Playmo“ ()

    Willkommen im Forum. :thumbup:
    Sieh Dir die Registry / deren Inhalt immer zuerst mit RegEdit an, da weißt Du dann auch, welchen Schlüssel Du im Programm auslesen musst.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Woher weis denn das Programm das auf InstallPath zugreift wo der Schlüssel liegt?
    Ansonsten kannst du dir mit

    VB.NET-Quellcode

    1. Registry.ClassesRoot.GetSubKeyNames
    2. Registry.CurrentUser.GetSubKeyNames
    3. Registry.CurrentConfig.GetSubKeyNames
    4. ...

    die Unterschlüssel der entsprechenden Hauptschlüssel ausgeben lassen und dann mittels Schleifen und Rekursion die ganze Registry nach dem entsprechenden Unterpfad durchsuchen.

    Hellmut schrieb:

    und dann mittels Schleifen und Rekursion die ganze Registry nach dem entsprechenden Unterpfad durchsuchen.
    Und was macht wer danach? :D :D :D
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Zu Antwort 1: Der SubKey "Blizzard Entertaiment" hat keine festen Haupschlüssel bzw. "Oberschlüssel". Dieser variiert nämlich von Computer zu Computer.

    Zu Antwort 2: Nachdem ich dann die Namen aller Unterschlüssel von (zB.) HKEY_LOCAL_MACHINE hab. Soll ich dann alle Namen wieder in die Schleife reinpacken, um dann zB. von SOFTWARE die Namen aller Unterschlüssel zu erhalten, um dann bei irgendeinem Unterschlüssel Blizzard Entertaiment zu finden?

    RodFromGermany schrieb:

    Und was macht wer danach? :D :D :D
    ???

    Dark_Playmo schrieb:

    Zu Antwort 2: Nachdem ich dann die Namen aller Unterschlüssel von (zB.) HKEY_LOCAL_MACHINE hab. Soll ich dann alle Namen wieder in die Schleife reinpacken, um dann zB. von SOFTWARE die Namen aller Unterschlüssel zu erhalten, um dann bei irgendeinem Unterschlüssel Blizzard Entertaiment zu finden?
    Ja, genau! Wobei du wahrscheinlich nicht ganz oben anfangen musst, sondern sicherlich das Verzeichnis weiter eingrenzen kannst.

    ich hab hier mal eine BreitenSuche aufgesetzt

    VB.NET-Quellcode

    1. Imports Microsoft.Win32
    2. Imports System.Runtime.CompilerServices
    4. Public Class frmRegistrySearchBreathFirst
    6. Private _RootKey As RegistryKey = Registry.CurrentUser
    8. ''' <summary>
    9. ''' returnt den ersten RegistryKey, der einen SubKey mit dem im Pattern angegebenen Namen enthält
    10. ''' </summary>
    11. Private Function FindRegistryKey(ByVal regKey As RegistryKey, ByVal pattern As String) As RegistryKey
    12. Dim getChilds = Function(rk As RegistryKey) From s In rk.GetSubKeyNames Select New With {.rk = rk.OpenSubKey(s), .subKeyNames = .rk.GetSubKeyNames}
    13. Dim que = NewQueue(getChilds(regKey))
    14. Dim itm = que.Dequeue
    15. Do
    16. If itm.subKeyNames.Contains(pattern) Then
    17. que.ForEach(Sub(x) x.rk.Dispose())
    18. Return itm.rk
    19. End If
    20. getChilds(itm.rk).ForEach(AddressOf que.Enqueue)
    21. itm.rk.Dispose()
    22. itm = que.Dequeue
    23. Loop Until que.Count = 0
    24. Return Nothing
    25. End Function
    27. Private Sub frmRegistrySearchBreathFirst_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    28. Dim rk = Registry.CurrentUser
    29. grpDescription.Text = "Find SubKeyName in: " & _RootKey.ToString
    30. End Sub
    32. Private Sub btSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btSearch.Click
    33. Dim rk = FindRegistryKey(_RootKey, txtPattern.Text)
    34. lbOutput.Text = rk.ToString
    35. End Sub
    37. End Class
    39. Public Module Helpers
    41. Public Function NewQueue(Of T)(ByVal Entries As IEnumerable(Of T)) As Queue(Of T)
    42. Return New Queue(Of T)(Entries)
    43. End Function
    45. <Extension()> _
    46. Public Sub ForEach(Of T)(ByVal Subj As IEnumerable(Of T), ByVal Action As Action(Of T))
    47. For Each itm In Subj
    48. Action(itm)
    49. Next
    50. End Sub
    52. End Module
    Dateien

    Danke für diesen hilfreichen Quellcode. Er funktioniert auch gut solange ich CurrentUser durchsuche. Aber wenn ich einen anderen Hauptschlüssel durchsuche und dort nicht den 2. Subkey suche bekomme ich immer diesen Fehler:




Facebook
Telefonspende