Procedura dettagliata: creazione di una chiave del Registro di sistema e modifica dei relativi valori

Articolo
09/12/2008

Aggiornamento: novembre 2007

In questa procedura dettagliata viene illustrato come creare un'applicazione che visualizza le chiavi del Registro di sistema sul computer in modo da consentire agli utenti di creare ed eliminare le chiavi. Viene inoltre illustrato come leggere, ottenere, impostare ed eliminare i valori.

Per creare il form principale

Scegliere Nuovo progetto dal menu File, quindi fare clic su Applicazione Windows.
Aggiungere un oggetto TextBox denominato Value al form. Nella finestra Proprietà nell'angolo inferiore destro digitare Valore nel campo (Nome).
Aggiungere un oggetto ListBox denominato History al form. Nella finestra Proprietà nell'angolo inferiore destro digitare History nel campo (Nome).
Creare l'altra variabile e aggiungerla subito dopo la dichiarazione di classe.
```
Dim tempKey As Microsoft.Win32.RegistryKey
```

Per visualizzare le chiavi del Registro di sistema in un controllo ComboBox

Aggiungere al form un oggetto ComboBox denominato selectHive, che visualizzerà gli hive del Registro di sistema per consentire di selezionare uno. Aggiungere il seguente codice all'evento di caricamento del form.

selectHive.Items.Add("ClassesRoot")
selectHive.Items.Add("CurentConfig")
selectHive.Items.Add("CurrentUser")
selectHive.Items.Add("DynData")
selectHive.Items.Add("LocalMachine")
selectHive.Items.Add("PerformanceData")
selectHive.Items.Add("Users")

Inserire il seguente codice dopo la dichiarazione di classe.

Dim registryObject As Microsoft.Win32.RegistryKey = Nothing

Aggiungere il codice seguente all'evento selectHiveSelectedIndexChanged.

Select Case selectHive.Text
  Case "ClassesRoot"
    registryObject = My.Computer.Registry.ClassesRoot
  Case "CurrentConfig"
    registryObject = My.Computer.Registry.CurrentConfig
  Case "CurrentUser"
    registryObject = My.Computer.Registry.CurrentUser
  Case "DynData"
    registryObject = My.Computer.Registry.DynData
  Case "LocalMachine"
    registryObject = My.Computer.Registry.LocalMachine
  Case "PerformanceData"
    registryObject = My.Computer.Registry.PerformanceData
  Case "Users"
    registryObject = My.Computer.Registry.Users
End Select

Per leggere un valore in una chiave del Registro di sistema

Aggiungere al form un pulsante Button denominato ReadValueButton con il testo "Leggi valore".
Aggiungere al form un pulsante TextBox denominato showSubKey con il testo "Enter Subkey".

Aggiungere il seguente codice all'evento ReadValueButtonClick.

tempKey = registryObject
If tempKey Is Nothing Then
  MsgBox("Please select a registry hive.")
  Return
End If
Value.Text = CStr(tempKey.GetValue(ShowSubKey.Text))
History.Items.Add("Read Value " & selectHive.Text & _
                  "\" & ShowSubKey.Text)

Testare l'applicazione immettendo il nome di una sottochiave esistente nella casella di testo showSubKey. Quando si fa clic sul pulsante ReadValueButton, nella casella di testo Value verrà visualizzato il valore.

Per impostare un valore in una chiave del Registro di sistema

Aggiungere al form un pulsante denominato SetValueButton con il testo "Imposta valore".

Aggiungere il seguente codice al relativo evento Click.

tempKey = registryObject
If tempKey Is Nothing Then
  MsgBox("Please select a registry hive.")
  Return
End If
If Value.Text Is Nothing Then
  MsgBox("Please enter a value.")
  Return
End If
tempKey.SetValue(showSubKey.Text, Value.Text)
tempKey.Close()
History.Items.Add("Set Value " & selectHive.Text & _
                  "\" & showSubKey.Text)

Testare l'applicazione immettendo un nuovo valore per una sottochiave nella casella di testo Valore e utilizzando il pulsante ReadValueButtonper verificare che il valore sia stato modificato.

Per creare una chiave del Registro di sistema

Aggiungere al form un pulsante denominato CreateButton con il testo "Create Key".

Aggiungere il seguente codice al relativo evento Click.

registryObject.CreateSubKey(showSubKey.Text)
History.Items.Add("Create Key " & selectHive.Text & _
                  "\" & showSubKey.Text)

Testare l'applicazione immettendo un nuovo nome di chiave nella casella di testo showSubKey e utilizzando l'Editor del Registro di sistema per verificare che la chiave sia stata creata.

Per eliminare una chiave del Registro di sistema

Aggiungere al form un pulsante denominato DeleteButton con il testo "Delete Key".

Aggiungere il seguente codice al relativo evento Click.

tempKey = registryObject
If tempKey Is Nothing Then
  MsgBox("Please select a registry hive.")
  Return
End If
If showSubKey.Text Is Nothing Then
  MsgBox("Please enter a subkey.")
  Return
End If
registryObject.DeleteSubKey(showSubKey.Text)
History.Items.Add("Delete Key " & selectHive.Text & _
                  "\" & showSubKey.Text)