Imaginsystems


Tecniche di Programmazione - Codici Sorgenti - News Informatiche
Archivio Posts
Anno 2014

Anno 2013

Anno 2012
Statistiche
  • Views Home Page: 54.271
  • Views Posts: 412.457
  • Views Gallerie: 0
  • n° Posts: 210
  • n° Commenti: 224

VB.NET - FUNZIONE CHE CREA UNA CHIAVE DI REGISTRO (CODICE)

VB.NET - FUNZIONE CHE CREA UNA CHIAVE DI REGISTRO (CODICE)

 

Oggi vi voglio mettere a disposizione due metodi di Creazione delle chiavi di Registro, sfruttando la Funzione My.Computer.Registry .

Esempio di richiamo della funzione :

        CreaChiaveDiRegistro("HKEY_LOCAL_MACHINE\SOFTWARE\programalpha", "Gioco", "Fesso")
        CreaChiaveDiRegistroNew(ValoriChiaveRegistro.LocalMachine, "SOFTWARE\programalpha", "Fesso", "123.00")
   

CODICE VISUAL STUDIO 2010 - VISUAL BASIC .NET - VB.NET:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
        CreaChiaveDiRegistro("HKEY_LOCAL_MACHINE\SOFTWARE\programalpha", "Gioco", "Fesso")
        CreaChiaveDiRegistroNew(ValoriChiaveRegistro.LocalMachine, "SOFTWARE\programalpha", "Fesso", "123.00")
   
    End Sub

   Private Enum ValoriChiaveRegistro As Integer
        ClassesRoot = 0
        CurrentUser = 1
        LocalMachine = 2
        Users = 3
        CurrentConfig = 4
        PerformanceData = 5
    End Enum

 Private Function CreaChiaveDiRegistro(ByVal PercorsoChiaveRegistro As String, ByVal NomeChiave As String, ByVal ValoreChiave As String)
        Try
            'Modifica Valore Registro
            My.Computer.Registry.SetValue(PercorsoChiaveRegistro, NomeChiave, ValoreChiave)
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function

    Private Function CreaChiaveDiRegistroNew(ByVal CartellaRoot As ValoriChiaveRegistro, ByVal PercorsoChiaveRegistro As String, ByVal NomeChiave As String, ByVal ValoreChiave As String)
        Try
            Select Case CartellaRoot
                Case 0
                    My.Computer.Registry.ClassesRoot.OpenSubKey(PercorsoChiaveRegistro, True).SetValue(NomeChiave, ValoreChiave)
                Case 1
                    My.Computer.Registry.CurrentUser.OpenSubKey(PercorsoChiaveRegistro, True).SetValue(NomeChiave, ValoreChiave)
                Case 2
                    My.Computer.Registry.LocalMachine.OpenSubKey(PercorsoChiaveRegistro, True).SetValue(NomeChiave, ValoreChiave)
                Case 3
                    My.Computer.Registry.Users.OpenSubKey(PercorsoChiaveRegistro, True).SetValue(NomeChiave, ValoreChiave)
                Case 4
                    My.Computer.Registry.CurrentConfig.OpenSubKey(PercorsoChiaveRegistro, True).SetValue(NomeChiave, ValoreChiave)
                Case 5
                    My.Computer.Registry.PerformanceData.OpenSubKey(PercorsoChiaveRegistro, True).SetValue(NomeChiave, ValoreChiave)
                Case Else
                    My.Computer.Registry.LocalMachine.OpenSubKey(PercorsoChiaveRegistro, True).SetValue(NomeChiave, ValoreChiave)
            End Select
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function

End Class

By ImaginSystems & Queen Gin
Categoria: VB.NET
martedì, 17 lug 2012 Ore. 15.02

Messaggi collegati


Ora e Data
Mappa
Blogs Amici
    Copyright © 2002-2007 - Blogs 2.0
    dotNetHell.it | Home Page Blogs
    ASP.NET 2.0 Windows 2003