Problem beim erstellen eines Registry-Key

  • VB.NET
  • .NET (FX) 4.0

Es gibt 21 Antworten in diesem Thema. Der letzte Beitrag () ist von Krogjan.

    Problem beim erstellen eines Registry-Key

    Hallo,

    Ich habe ein Problem bei folgendem Code:

    VB.NET-Quellcode

    1. Dim MeinKey As Microsoft.Win32.RegistryKey
    3. MeinKey = Microsoft.Win32.Registry.LocalMachine.CreateSubKey("Software\Wow6432Node\Codemasters\GRID", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree)
    5. MeinKey.SetValue("LANGUAGE", "ger")


    Wenn ich das ausführe legt er das so ab: HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Wow6432Node\Codemasters\GRID

    Wenn ich den Programmcode abändere:

    VB.NET-Quellcode

    1. [vbnet]
    2. Dim MeinKey As Microsoft.Win32.RegistryKey
    4. MeinKey = Microsoft.Win32.Registry.LocalMachine.CreateSubKey("Software\Codemasters\GRID", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree)
    6. MeinKey.SetValue("LANGUAGE", "ger")


    also ohne Wow6432Node legt er den Schlüssel trotzden noch in "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Codemasters\GRID" ab

    Wie kann ich einen Schlüssel direkt in SOFTWARE ablegen?
    Wisst ihr vielleicht warum er das so ablegt?

    Danke schonmal für eure Hilfe :)

    Schon das mal Probiert?

    VB.NET-Quellcode

    1. 'Erstellt einfachen Schlüssel
    2. My.Computer.Registry.CurrentUser.CreateSubKey("Key")
    4. 'Erstellt Schlüssel in Gruppe
    5. My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Codemasters\GRID",
    6. "WERT", "WERT")


    LG

    Ich habe das mal eben mit My.Computer.Registry.SetValue("Key", "Value-Name", "Value") getestet, und bei mir hat das tadellos funktioniert, hast du deine Registry auch mit 'F5' neu geladen?
    Funzt genauso gut mit Microsoft.Win32.Registry.LocalMachine.CreateSubKey("Software\Test-Key", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree)

    Edit: Oh, tut mir Leid... habe das mit Current_User getestet, bei Local_Machine geht's tatsächlich nicht, auch nicht als Admin :/

    Hi,

    natürlich geht es mit beidem. Der Grund ist: Der My-Namespace wrappt nur das Zeugs und zwar ziemlich ranzig. -> Gleich das richtige nutzen und den My-Namespace außer Acht lassen.
    Und ja: Man braucht Adminrechte.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports Microsoft.Win32
    4. Public Class Form1
    6. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    7. Dim regKey As RegistryKey
    8. regKey = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings", RegistryKeyPermissionCheck.Default)
    9. regKey.SetValue("ProxyServer", "1", RegistryValueKind.String)
    10. regKey.Close()
    11. End Sub
    12. End Class
    13. '+ Admin Rechte


    Z.b:
    .SetValue("QuadWordValue", 42, RegistryValueKind.QWord)
    .SetValue("DWordValue", 42, RegistryValueKind.DWord)
    .SetValue("MultipleStringValue", New String() {"One", "Two", "Three"}, RegistryValueKind.MultiString)
    .SetValue("BinaryValue", New Byte() {10, 43, 44, 45, 14, 255}, RegistryValueKind.Binary)
    .SetValue("StringValue", "The path is %PATH%", RegistryValueKind.String)
    usw...

    LG Andre...

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

    ich habs jetzt nicht getestet, aber könnte so gehen.

    Generell ist vom Registry-Manipulieren abzuraten:
    1. manche Keys kannste garnet ändern
    2. man kann ein Windows damit instabil machen
    3. in jeder Windows-Version können die Schlüssel anders liegen, also was bei dir vlt. den gewünschten Effekt zeigt, mag ein anneres Windows destabilisieren
    4. Mehr Möglichkeiten hat man, wenn das Prog als Admin läuft - es ist aber ein prinzipielles Sicherheitsrisiko, den User zu zwingen, sich als Admin einzuloggen.

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports Microsoft.Win32
    4. Public Class Form1
    6. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    8. If Registry.LocalMachine.OpenSubKey("Hardware\Description\System\CentralProcessor\0").GetValue("Identifier").ToString.Contains("32") Then
    9. Dim regKey As RegistryKey
    10. regKey = Registry.LocalMachine.CreateSubKey("SOFTWARE\Codemasters\GRID", RegistryKeyPermissionCheck.Default)
    11. regKey.SetValue("LANGUAGE", "ger", RegistryValueKind.String)
    12. regKey.Close()
    13. ElseIf Registry.LocalMachine.OpenSubKey("Hardware\Description\System\CentralProcessor\0").GetValue("Identifier").ToString.Contains("64") Then
    14. Dim regKey As RegistryKey
    15. regKey = Registry.LocalMachine.CreateSubKey("SOFTWARE\Wow6432Node\Codemasters\GRID", RegistryKeyPermissionCheck.Default)
    16. regKey.SetValue("LANGUAGE", "ger", RegistryValueKind.String)
    17. regKey.Close()
    18. Else
    19. ' KA
    20. End If
    24. End Sub
    26. End Class
    27. '+ Admin Rechte !!! GETESTET = GEHT 32 & 64 BIT !!!


    @ErfinderDesRades ( in jeder Windows-Version können die Schlüssel anders liegen ) = Ja kann sein .
    Pfad auf Existenz prüfen .

    If Key IsNot Nothing Then

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

    @Dksksm

    Warum wohl ??? !!!

    .GetValue("Identifier").ToString.Contains("32") Then

    .GetValue("Identifier").ToString.Contains("64") Then

    Weil es so gemacht ist das es erkennt ob du 64 oder 32 bit hast und es dann passend ablegt !


    Hier nur 32 Bit :

    VB.NET-Quellcode

    1. Dim regKey As RegistryKey
    2. regKey = Registry.LocalMachine.CreateSubKey("SOFTWARE\Codemasters\GRID", RegistryKeyPermissionCheck.Default)
    3. regKey.SetValue("LANGUAGE", "ger", RegistryValueKind.String)
    4. regKey.Close()


    Hier nur 64 Bit :

    VB.NET-Quellcode

    1. Dim regKey As RegistryKey
    2. regKey = Registry.LocalMachine.CreateSubKey("SOFTWARE\Wow6432Node\Codemasters\GRID", RegistryKeyPermissionCheck.Default)
    3. regKey.SetValue("LANGUAGE", "ger", RegistryValueKind.String)
    4. regKey.Close()


    LG

    Bei folgendem Code:

    VB.NET-Quellcode

    1. Dim regKey As RegistryKey
    2. regKey = Registry.LocalMachine.CreateSubKey("SOFTWARE\Codemasters\GRID", RegistryKeyPermissionCheck.Default)
    3. regKey.SetValue("LANGUAGE", "ger", RegistryValueKind.String)
    4. regKey.Close()

    legt er den Schlüssel unter : "SOFTWARE\Wow6432Node\Codemasters\GRID" ab.
    Aber z.B. 64 Bit Anwendungen liegen doch einfach nur unter Software oder nicht?
    Wie kann ich den Schlüssel direkt in SOFTWARE ablegen?

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

    Deine Antwort bedeutet, dass der von @Krogjan gepostete Code bei Dir den Eintrag in der Registry unter HKLM\SOFTWARE\Codemasters\GRID macht und das glaube ich nicht.
    Es geht darum, dass der Code bei einem 32-bit System tatsächlich den Eintrag wie gewünscht schreibt, der selbe Code auf einem 64-bit-System den Eintrag unter HKLM\SOFTWARE\Wow6432Node\Codemasters\GRID erstellt, obwohl das so gar nicht gewollt ist.

    Von daher macht der Code von Dir im Post #9 gezeigte Code zwar nichts falsch, aber auch keinen Sinn. Das selbe ergebnis erreichst du einfach mit dem Code von @Krogjan, also ein Code, der selbst nicht differenziert auf was für ein System er läuft.

    War das jetzt verständlich? Test den Code doch einfach mal auf deinen beiden Systemen. Es ist jedenfalls auf einem 64-bit-System mit deinem Code nicht möglich, einen Eintrsag unter HKLM\SOFTWARE\Codemasters\ zu erzeugen. Warum nicht ist die Frage, denn dort stehen ja zumindest auf meinen 3 64-bit-Systemen Einträge anderer Softwaren. Es muss also gehen dort Einträge zu erzeugen, dass wollen wir.

    TVX schrieb:



    Okay das sieht soweit sehr gut aus nur wo ist bei mir das Problem?
    Ich habe deinen Code in Windows 8.1 (64 bit) und 7 (64 bit) getestet und bei beiden hat er das falsch abgelegt.
    Die erstellten Test-Eintrage habe ich immer wieder gelöscht.
    Das eizige was mir auffällt, was anders ist, ist:

    VB.NET-Quellcode

    1. Imports Microsoft.Win32
    3. Public Class Form1
    5. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    6. Dim regKey As RegistryKey
    7. regKey = Registry.LocalMachine.CreateSubKey("SOFTWARE\Codemasters\GRID", RegistryKeyPermissionCheck.Default)
    8. regKey.SetValue("LANGUAGE", "ger", RegistryValueKind.String)
    9. regKey.Close()
    10. End Sub
    11. End Class


    Ich muss erst

    VB.NET-Quellcode

    1. Imports Microsoft.Win32
    schreiben damit die roten kringel um RegistryKey weg gehen.
    Sonst ist alles identisch.

    @Dksksm
    Das Video zeigt das ich w7 64 bit verwende - Siehe Anblick Systemsteuerung !

    Und ich erstelle den Schlüssel unter - "SOFTWARE\Codemasters\GRID" - und zwar nur dort !

    @Krogjan
    Imports Microsoft.Win32

    Schau mal Post 7 - 9 = OK 8|

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

    So hab euch en kleinen Test erstellt !
    Hiermit könnt ihr den Schlüssel ( Pfad ) beliebig unter 32 oder 64 bit erstellen + lesen + Pfad prüfen + löschen !!!

    Logischer weise ist wen ihr nen 32bit erstellt kein Eintrag unter 64 bit zu finden !
    Tut mir en gefallen und drückt zuerst löschen 64 & 32 bit um euere Reg-Leichen zu entfernen und Fehlausgaben zu vermeiden !
    VIEL SPAß ...


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Schlüßel_32bit_erstellen()
    2. Using regKey As RegistryKey = Registry.LocalMachine.CreateSubKey("SOFTWARE\Codemasters\GRID", RegistryKeyPermissionCheck.Default)
    3. regKey.SetValue("LANGUAGE", "ger", RegistryValueKind.String)
    4. regKey.Close()
    5. End Using
    6. End Sub
    8. Private Sub Schlüßel_64bit_erstellen()
    9. Using regKey As RegistryKey = Registry.LocalMachine.CreateSubKey("SOFTWARE\Wow6432Node\Codemasters\GRID", RegistryKeyPermissionCheck.Default)
    10. regKey.SetValue("LANGUAGE", "ger", RegistryValueKind.String)
    11. regKey.Close()
    12. End Using
    13. End Sub
    15. Private Sub Schlüßel_lesen_32bit()
    16. Dim sregKey As String = ""
    17. Using regKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Codemasters\GRID", False)
    18. If regKey IsNot Nothing Then
    19. sregKey = regKey.GetValue("LANGUAGE", False).ToString
    20. End If
    21. End Using
    22. MessageBox.Show(sregKey)
    23. End Sub
    25. Private Sub Schlüßel_lesen_64bit()
    26. Dim sregKey As String = ""
    27. Using regKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Wow6432Node\Codemasters\GRID", False)
    28. If regKey IsNot Nothing Then
    29. sregKey = regKey.GetValue("LANGUAGE", False).ToString
    30. End If
    31. End Using
    32. MessageBox.Show(sregKey)
    33. End Sub
    35. Private Sub Schlüßel_Pfad_löschen_32bit()
    36. Using key As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
    37. key.DeleteSubKeyTree("Codemasters", False)
    38. key.Close()
    39. End Using
    40. End Sub
    42. Private Sub Schlüßel_Pfad_löschen_64bit()
    43. Using key As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Wow6432Node", True)
    44. key.DeleteSubKeyTree("Codemasters", False)
    45. key.Close()
    46. End Using
    47. End Sub
    49. Private Sub Pfade_32bit_prüfen()
    50. Using key32 As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Codemasters\GRID", False)
    51. If key32 IsNot Nothing Then
    52. MessageBox.Show("Der Pfad ( SOFTWARE\Codemasters\GRID ) wurde gefunden ! ", "Pfad gefunden !", MessageBoxButtons.OK, MessageBoxIcon.Information)
    53. Else
    54. MessageBox.Show("Der Pfad ( SOFTWARE\Codemasters\GRID ) wurde nicht gefunden ! ", "Pfad nicht gefunden !", MessageBoxButtons.OK, MessageBoxIcon.Error)
    55. End If
    56. End Using
    57. End Sub
    59. Private Sub Pfade_64bit_prüfen()
    60. Using key64 As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Wow6432Node\Codemasters\GRID", False)
    61. If key64 IsNot Nothing Then
    62. MessageBox.Show("Der Pfad ( SOFTWARE\Wow6432Node\Codemasters\GRID ) wurde gefunden ! ", "Pfad gefunden !", MessageBoxButtons.OK, MessageBoxIcon.Information)
    63. Else
    64. MessageBox.Show("Der Pfad ( SOFTWARE\Wow6432Node\Codemasters\GRID ) wurde nicht gefunden ! ", "Pfad nicht gefunden !", MessageBoxButtons.OK, MessageBoxIcon.Error)
    65. End If
    66. End Using
    67. End Sub


    Da - Versuch es :
    www48.zippyshare.com/v/76021687/file.html

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

    ErfinderDesRades: Unfreundlichkeit entfernt

    Ich habe selbstredend nicht vergessen die Registry immer sofort wieder zu säubern und zu aktualisieren.
    Ich habe dein Programm getestet, es funktioniert tatsächlich. Noch ist mir schleierhaft warum, denn der hier gezeigte Code funktioniert immer noch genau so wie ich es Dir versuchen zu erklären.
    Warum fordert deine EXE keine Adminrechte an? Das ist gefährlich!

    Ich habe Deine Funktionen sogar komplett nachgebaut und das auch mit ILSpy nachgeprüft. Die Funktionen, die Schaltflächen, alles ist genau so wie es hier steht und Du im Programm hast. Trotzdem findet sich in Deinem Programm noch mehr Code, den ich noch nicht kenne: Private Shared __ENCList As List(Of WeakReference) = New List(Of WeakReference)().
    Was ist das und was macht das? Ich habe zwar dazu etwas gefunden, aber nicht verstanden was das nun wirklich macht.

    Ich habe dennoch ein wenig weiter getestet, ohne dahinter zu kommen warum dein Programm funktioniert und meines mit dem selben Code, nicht. Nun legt mein Programm sogar ohne Adminrechte die geforderten Keys an, aber wie gehabt immer im Wow6432Node-Zweig, an. Nur nicht mehr unter HKLM\Software sondern unter
    Computer\HKEY_CLASSES_ROOT\WirtualStore\MACHINE\SOFTWARE\Wow6432Node\Codemasters

    Ich weiß nicht,leider immer noch nicht, was der eigentliche Trick ist, der Code allein funktioniert so wie hier ständig gezeigt jedenfalls nicht so flexibel, wie wir es wollen. Das Ergebnis ist immer:
    1. Es soll ein 32bit-Schlüsselangelegt werden, es wird aber ein 64bit-Pfad geschrieben.
    2. Der Test gibt an einen 32bit-Schlüssel gefunden zu haben, was nicht stimmt.
    3. Lösche 32bit-Schlüssel löscht den 64bit-Schlüssel.

    Ja mit Deinem Programm geht es wie Du behauptest, mit dem angeblich identischen Code (soweit ich es konnte mit ILSpy geprüft) klappt es hingegen nicht.
    Deine EXE ist übrigens 39,5 KB groß, mein angeblich identisches Programm nur 34,0 KB.
    Deine EXE funktioniert ohne explizit als Admin ausgeführt worden zu sein, meines bringt mir nur Zugriffsverletzungen, es sei denn ich starte es als Admin.
    Solange uns Du hier nicht Dein Projekt zeigst brauchen wir gar nicht erst weiterzumachen.

    Zum Überprüfen uns Testen habe ich das Projekt (ohne Müll) angehängt. Mein System ist ebenfalls Windows 7 Ultimate - 64 Bit.

    Nachtrag: Auf einem Notebook mit Windows 8.1 - 64 Bit (Vorinstalliertes Windows) funktioniert der Code auch aus meinem Projekt heraus wie er soll, allerdings auch nur wenn ich es mit Admin-Rechten starte (wie es sich gehört).
    Dateien

    • RegistryVB.zip

      (14,8 kB, 185 mal heruntergeladen, zuletzt: )

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

Facebook
Telefonspende