Hallo Liebe Community,
ich hab ne Frage wegen des Regitry.CurrentUser.SetValue Events
ICh versuche schon seit geraumer Zeit eine Value zu Setzten aber Es kommt immer nur ´der Fehler raus Keine Rechte... etc... Auch wenn ich es Mit Admin rechten gestartet habe (das Programm...)
Der Code der die Registry setzt
Please HElp, Danke im Voraus
Max
ich hab ne Frage wegen des Regitry.CurrentUser.SetValue Events
ICh versuche schon seit geraumer Zeit eine Value zu Setzten aber Es kommt immer nur ´der Fehler raus Keine Rechte... etc... Auch wenn ich es Mit Admin rechten gestartet habe (das Programm...)
Der Code der die Registry setzt
VB.NET-Quellcode
- Try
- Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT")
- Dim TypSelected As String = Strings.Left(cbxZVTLizenzTyp.SelectedItem, 2).Replace(":", "")
- ZVTKey.SetValue("Typ", CDbl(TypSelected))
- ZVTKey.SetValue("KasseNr", tbZVTKassenNr.Text)
- ZVTKey.SetValue("COM", cbxZVTCOM.SelectedItem)
- ZVTKey.SetValue("IP", tbZVTIP.Text)
- ZVTKey.SetValue("Port", CInt(tbZVTPort.Text))
- ZVTKey.SetValue("ComSpeed", CInt(cbxZVTCOMSpeed.SelectedItem))
- ZVTKey.SetValue("ComStop", CInt(cbxZVTCOMStop.SelectedItem))
- ZVTKey.SetValue("Lizenz", tbZVTLizenz.Text)
- ZVTKey.SetValue("Passwort", tbZVTPasswort.Text)
- If cbZVTKassendruck.Checked = True Then
- ZVTKey.SetValue("Kassedruck", 1)
- Else
- ZVTKey.SetValue("Kassedruck", 0)
- End If
- Catch ex As Exception
- MsgBox("Fehler beim Speichern der EasyZVT Einstellungen!" & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.ToString())
- End Try
Please HElp, Danke im Voraus
Max