Ganze Registry auflisten (TreeView, Like Regedit)

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von _PASCAL_.

    Ganze Registry auflisten (TreeView, Like Regedit)

    Hallo,

    ich würde gerne sowas ähnliches wie regedit basteln.

    wie ich ein TreeView bastle weis ich ... auch wie ich RegistryKeys auslesen.


    Das problem liegt darin dass ich nicht weis wie ich die schleifen verschachteln soll, da ich ja nicht weis wie tief die OrdnerStruktur der Registry ist. Bzw des aktuellen Knotens.

    will ja nicht von vorn herein sagen ich verschachtle 10 schleifen fix ... das ist ja doof und dann gibts 11 ^^

    habt ihr da ne idee?

    also alle HKEYS

    UPDATE

    So hab das ganze jetzt zum laufen gebracht ... aber es dauert ewig bis das ganze angezeigt wird ...
    wenn ich aus VisualStudio heraus das ding startet steht nacht 5min noch nichts da ... als Standalone .exe ohne Debug kommt das ganze mal nach 1,5min ... absolut inakzeptabel ... da is der windows eigene "regedit" viel schneller ... warum ?

    VB.NET-Quellcode

    1. Imports Microsoft.Win32
    3. Public Class frm_main
    5. Private counter As Integer = 0
    7. Private Sub frm_main_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    8. Dim imageList As New ImageList
    9. imageList.Images.Add(My.Resources.folder)
    10. regTree.ImageList = imageList
    12. Dim rootnode As TreeNode
    14. rootnode = getnodes(My.Computer.Registry.ClassesRoot)
    15. rootnode.ImageIndex = 0
    16. regTree.Nodes.Add(rootnode)
    18. rootnode = getnodes(My.Computer.Registry.CurrentUser)
    19. rootnode.ImageIndex = 0
    20. regTree.Nodes.Add(rootnode)
    22. rootnode = getnodes(My.Computer.Registry.LocalMachine)
    23. rootnode.ImageIndex = 0
    24. regTree.Nodes.Add(rootnode)
    26. rootnode = getnodes(My.Computer.Registry.Users)
    27. rootnode.ImageIndex = 0
    28. regTree.Nodes.Add(rootnode)
    30. rootnode = getnodes(My.Computer.Registry.CurrentConfig)
    31. rootnode.ImageIndex = 0
    32. regTree.Nodes.Add(rootnode)
    34. End Sub
    36. Private Function getnodes(ByVal regkey As RegistryKey) As TreeNode
    37. Dim parts() As String = regkey.Name.Split("\")
    38. Dim temp As New TreeNode(parts.Last)
    39. Dim subkey As RegistryKey
    41. temp.ImageIndex = 0
    43. If regkey.SubKeyCount > 0 Then
    44. For Each keyName As String In regkey.GetSubKeyNames
    45. Try
    46. subkey = regkey.OpenSubKey(keyName)
    47. temp.Nodes.Add(getnodes(subkey))
    48. Catch ex As Exception
    49. counter += 1
    50. End Try
    51. Next
    52. End If
    54. Return temp
    56. End Function
    58. Private Sub frm_main_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
    60. regTree.Height = Me.Height - 60
    62. End Sub
    63. End Class


    -----------------------------------------------------------------------------------------------------------------------------------
    OLD

    Moin,

    ich dachte auch schon in diese Richtung wusste aber nicht wie ich es angehen soll ... iwie kann ichs mir nicht vorstellen

    hab mal das gebastelt ... denke das geht in die Richtung aber will nicht ganz

    VB.NET-Quellcode

    1. Imports Microsoft.Win32
    3. Public Class frm_main
    5. Private Sub frm_main_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    7. getnodes(My.Computer.Registry.CurrentUser)
    9. End Sub
    11. Private Sub getnodes(ByVal regkey As RegistryKey)
    12. Dim temp As New TreeNode(regkey.Name)
    13. Dim subkey As RegistryKey
    15. If regkey.SubKeyCount > 0 Then
    16. For Each keyName As String In regkey.GetSubKeyNames
    17. subkey = regkey.OpenSubKey(keyName)
    18. getnodes(subkey)
    19. Next
    20. End If
    22. regTree.Nodes.Add(temp)
    24. End Sub
    26. End Class



    UPDATE ^^

    VB.NET-Quellcode

    1. Imports Microsoft.Win32
    3. Public Class frm_main
    5. Private Sub frm_main_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    6. Dim rootnode As TreeNode
    8. rootnode = getnodes(My.Computer.Registry.CurrentUser)
    10. regTree.Nodes.Add(rootnode)
    12. End Sub
    14. Private Function getnodes(ByVal regkey As RegistryKey) As TreeNode
    15. Dim temp As New TreeNode(regkey.Name)
    16. Dim subkey As RegistryKey
    18. If regkey.SubKeyCount > 0 Then
    19. For Each keyName As String In regkey.GetSubKeyNames
    20. subkey = regkey.OpenSubKey(keyName)
    21. temp.Nodes.Add(getnodes(subkey))
    22. Next
    23. End If
    25. Return temp
    27. End Function
    29. End Class


    so jetzt läuft die geschichte ^^ danke ;) ... manche haben einen fehler produziert deshalb hab ich Try eingebaut ...

    VB.NET-Quellcode

    1. Imports Microsoft.Win32
    3. Public Class frm_main
    5. Private Sub frm_main_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    6. Dim rootnode As TreeNode
    8. rootnode = getnodes(My.Computer.Registry.CurrentUser)
    10. regTree.Nodes.Add(rootnode)
    12. End Sub
    14. Private Function getnodes(ByVal regkey As RegistryKey) As TreeNode
    15. Dim parts() As String = regkey.Name.Split("\")
    16. Dim temp As New TreeNode(parts.Last)
    17. Dim subkey As RegistryKey
    19. If regkey.SubKeyCount > 0 Then
    20. For Each keyName As String In regkey.GetSubKeyNames
    21. Try
    22. subkey = regkey.OpenSubKey(keyName)
    23. temp.Nodes.Add(getnodes(subkey))
    24. Catch ex As Exception
    26. End Try
    27. Next
    28. End If
    30. Return temp
    32. End Function
    34. Private Sub frm_main_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
    36. regTree.Height = Me.Height - 60
    38. End Sub
    39. End Class
    Bilder

    • tree.JPG

      34,98 kB, 1.023×728, 268 mal angesehen

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „_PASCAL_“ ()

Facebook
Telefonspende