Registry In Listbox Auflisten

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von TVX.

    Registry In Listbox Auflisten

    Moyn miteinand :)

    Ich habe folgende Frage wie kann ich die Registy So auflisten !

    HKEY_CURRENT_USER
    HKEY_CLASSES_ROOT

    Dann listbiox selectet item =

    HKEY_CURRENT_USER\AZ_Key
    HKEY_CURRENT_USER\Console

    Dann listbiox selectet item =

    REG_SZ ... ... ...


    Wie sprech ich das an um es so in die listbox zu griegen ?


    Folgendes hab ich auf w7 64 bit gelöst: Auser (( ' Autostart Programme löschen )) -Der geht nicht !

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports Microsoft.Win32
    4. Public Class Form1
    5. 'Declaration
    6. Dim Merker As Integer = 1
    8. '32 oder 64 bit?
    9. Public Shared Function GenerateArchitecture() As Object
    10. If Registry.LocalMachine.OpenSubKey("Hardware\Description\System\CentralProcessor\0").GetValue("Identifier").ToString.Contains("x86") Then : Return "32"
    11. Else : Return "64" : End If
    12. End Function
    14. 'Start Form
    15. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    16. TextBox1.Text = My.Settings.Ordnername
    17. TextBox2.Text = My.Settings.Dateiname
    18. My.Settings.Reload()
    19. Label7.Text = CStr(GenerateArchitecture()) & " BIT SYSTEM"
    20. End Sub
    22. 'Schreiben
    23. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    24. If TextBox1.Text = "" And TextBox2.Text = "" Then
    25. Label6.Text = "SIE HABEN KEINEN ORDNERNAMEN / DATEINAMEN ANGEGEBEN !"
    26. Label6.BackColor = Color.Orange
    27. Else
    28. Try
    29. My.Computer.Registry.SetValue(Label1.Text & TextBox1.Text, TextBox2.Text, TextBox3.Text)
    30. Label6.Text = "SCHREIBEN OK"
    31. Label6.BackColor = Color.Lime
    32. Catch ex As Exception
    33. Label6.Text = "DER EINTRAG KONNTE NICHT ERSTELLT WERDEN !"
    34. Label6.BackColor = Color.Orange
    35. End Try
    36. End If
    37. End Sub
    39. 'Lesen
    40. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    41. If My.Computer.Registry.GetValue(Label1.Text & TextBox1.Text, TextBox2.Text, Nothing) Is Nothing Then
    42. TextBox3.Text = ""
    43. Label6.Text = "DER EINTRAG KONNTE NICHT GELESEN WERDEN !"
    44. Label6.BackColor = Color.Orange
    45. Else
    46. If TextBox1.Text = "" And TextBox2.Text = "" Then
    47. Label6.Text = "SIE HABEN KEINEN ORDNERNAMEN / DATEINAMEN ANGEGEBEN !"
    48. Label6.BackColor = Color.Orange
    49. Else
    50. Try
    51. TextBox3.Text = ""
    52. TextBox3.Text = CStr(My.Computer.Registry.GetValue(Label1.Text & TextBox1.Text, TextBox2.Text, Nothing))
    53. Label6.Text = "LESEN OK"
    54. Label6.BackColor = Color.Lime
    55. Catch ex As Exception
    56. Label6.Text = "DER EINTRAG KONNTE NICHT ERSTELLT WERDEN !"
    57. Label6.BackColor = Color.Orange
    58. End Try
    59. End If
    60. End If
    61. End Sub
    63. 'Prüfen ob vorhanden
    64. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    65. If TextBox1.Text = "" And TextBox2.Text = "" Then
    66. Label6.Text = "SIE HABEN KEINEN ORDNERNAMEN / DATEINAMEN ANGEGEBEN !"
    67. Label6.BackColor = Color.Orange
    68. Else
    69. If My.Computer.Registry.GetValue(Label1.Text & TextBox1.Text, TextBox2.Text, Nothing) Is Nothing Then
    71. Label6.Text = "KEIN SCHLÜSSEL !"
    72. Label6.BackColor = Color.Orange
    73. Else
    74. Label6.Text = "SCHLÜSSEL GEFUNDEN !"
    75. Label6.BackColor = Color.Lime
    76. End If
    77. End If
    78. End Sub
    80. 'Löschen
    81. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    82. If TextBox2.Text = "" Then
    83. Label6.Text = "SIE HABEN KEINEN ORDNERNAMEN ANGEGEBEN !"
    84. Label6.BackColor = Color.Orange
    85. Else
    86. Try
    87. My.Computer.Registry.CurrentUser.DeleteSubKey(TextBox1.Text)
    88. Label6.Text = "LÖSCHEN OK"
    89. Label6.BackColor = Color.Lime
    90. TextBox3.Text = ""
    91. Catch ex As Exception
    92. Label6.Text = "FEHLER BEIM LÖSCHEN ODER DER EINTRAG IST NICHT VORHANDEN !"
    93. Label6.BackColor = Color.Orange
    94. End Try
    95. End If
    96. End Sub
    98. 'Next
    99. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    100. If Merker = 1 Then
    101. Label1.Text = "HKEY_CLASSES_ROOT\"
    102. ElseIf Merker = 2 Then
    103. Label1.Text = "HKEY_LOCAL_MACHINE\"
    104. ElseIf Merker = 3 Then
    105. Label1.Text = "HKEY_CURRENT_CONFIG\"
    106. ElseIf Merker = 4 Then
    107. Label1.Text = "HKEY_USERS\"
    108. ElseIf Merker = 5 Then
    109. Label1.Text = "HKEY_CURRENT_USER\"
    110. End If
    111. Merker += 1
    112. If Merker = 6 Then Merker = 1
    113. End Sub
    115. 'Close Form
    116. Private Sub Form1_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
    117. My.Settings.Ordnername = TextBox1.Text
    118. My.Settings.Dateiname = TextBox2.Text
    119. My.Settings.Save()
    120. End Sub
    122. 'RESET ALL
    123. Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    124. My.Settings.Reset()
    125. TextBox1.Text = ""
    126. TextBox2.Text = ""
    127. TextBox3.Text = ""
    128. End Sub
    129. 'Textbox Löschen
    130. Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    131. TextBox3.Text = ""
    132. End Sub
    134. Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    135. Try
    136. Process.Start("regedit")
    137. Catch ex As Exception
    138. End Try
    139. End Sub
    141. Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
    142. 'Zeichen Zählen
    143. Dim eingabe As String
    144. eingabe = TextBox3.Text
    145. Dim numAnzahl As String
    146. numAnzahl = CStr(eingabe.Length)
    147. Label4.Text = "ZEICHEN: " & numAnzahl
    148. Label5.Text = "ZEILEN: " & TextBox1.Lines.Length
    149. End Sub
    150. ' Autostart Programme erstellen
    151. Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
    152. Dim MeinKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
    153. MeinKey.SetValue("programmname", TextBox4.Text)
    154. End Sub
    155. ' Autostart Programme löschen
    156. Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
    157. My.Computer.Registry.CurrentUser.OpenSubKey(TextBox4.Text, True).DeleteValue("Value")
    158. End Sub
    159. End Class



    LG Andre............................. :rolleyes:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „TVX“ ()

    1. Mach mal um Deinen Code einen Expander.
    2. Irre ich mich oder hast Du nicht in den letzten 3 Tagen allen Forum-lern, die in / mit der Registry was machen wollten, ihre Aufgaben gelöst?
    Du musst die Task für jeden Main-Key einzeln abarbeiten, Du kannst das natürlich For Each machen, wenn Du die Mein-Keys in ein Array packst.
    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!

    Nein das war ich leider nicht ;( dafür hab ich von Registry zu wenig Ahnung - ist absolutes neuland für mich !

    So ich geh mal in keller kucken ob ich en Expander find ;)


    LG Andre................................................................... :D

    TVX schrieb:

    Nein das war ich leider nicht
    Dann such doch einfach mal nach Registry, da solltest Du alles finden.
    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!

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim Meinkey As RegistryKey = Registry.CurrentUser
    For Each s As String In Meinkey.GetSubKeyNames
    ListBox1.Items.Add(s)
    Next
    Meinkey.Close()
    End Sub

    Und dann das ganze noch etwas variabel machen dann sollte es gehn :rolleyes:

    So muss noch ausfahren biss später....

    LG

Facebook
Telefonspende