Создание 7 значений реестра под ключ реестра без повторения

Question

Я разрабатываю приложение Windows с помощью vb.net. Теперь я хочу добавить 7 значений в реестр HKEY_CURRENT_USER\SOFTWARE\MYAPP.

Каждое значение (из 7) следует добавлять только в том случае, если оно не существует в подразделе.

В конце концов я хочу увидеть только 7 под MYAPP SUBKEY. Как мне это сделать? Мне нужна ваша помощь.

Answer 1

Вы можете использовать GetValue объекта RegistryKey и проверить результат, если Nothing тогда значение не существует.

Вот полный пример, который должен заставить вас работать. Обратите внимание, что может нужны права администратора для создания ключей и значений в зависимости от прав доступа машины:

Dim myAppKey = Microsoft.Win32.RegistryKey.OpenBaseKey(Microsoft.Win32.RegistryHive.CurrentUser, Microsoft.Win32.RegistryView.Default) 
    If myAppKey Is Nothing Then Throw New Exception("Failed to open registry") 

    Dim subKeyName = "SOFTWARE\MYAPP" 

    'attempt to open the subkey with write acces because we need this if we are creating values 
    Dim subKey = myAppKey.OpenSubKey(subKeyName, True) 
    If subKey Is Nothing Then 
     'create the sub key because it doesn't exist 
     myAppKey.CreateSubKey(subKeyName) 
     're open the new key 
     subKey = myAppKey.OpenSubKey(subKeyName, True) 
    End If 

    'create values in a loop for testing 
    For i = 0 To 6 
     If subKey.GetValue("Value" & i) Is Nothing Then 
      'value does not exist so create it 
      subKey.SetValue("Value" & i, i) 
     End If 
    Next