VB.NET - FUNZIONE CHE LEGGE IL VALORE DELLA CHIAVE DI REGISTRO (CODICE)
Oggi vi voglio mettere a disposizione due metodi di Lettura dei valori della chiave di Registro, sfruttando la Funzione My.Computer.Registry .
Esempio di richiamo della funzione :
LeggiChiaveDiRegistro("HKEY_LOCAL_MACHINE\SOFTWARE\programalpha", "Gioco")
LeggiChiaveDiRegistroNew(ValoriChiaveRegistro.LocalMachine, "SOFTWARE\programalpha", "Fesso")
CODICE VISUAL STUDIO 2010 - VISUAL BASIC .NET - VB.NET:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox(LeggiChiaveDiRegistro("HKEY_LOCAL_MACHINE\SOFTWARE\programalpha", "Gioco"))
MsgBox(LeggiChiaveDiRegistroNew(ValoriChiaveRegistro.LocalMachine, "SOFTWARE\programalpha", "Fesso"))
End Sub
Private Enum ValoriChiaveRegistro As Integer
ClassesRoot = 0
CurrentUser = 1
LocalMachine = 2
Users = 3
CurrentConfig = 4
PerformanceData = 5
End Enum
Private Function LeggiChiaveDiRegistro(ByVal PercorsoChiave As String, ByVal NomeChiave As String) As String
Try
'Leggi Valore Registro
Dim readValue As String
readValue = My.Computer.Registry.GetValue(PercorsoChiave, NomeChiave, Nothing)
Return readValue
Catch ex As Exception
Return Nothing
End Try
End Function
Private Function LeggiChiaveDiRegistroNew(ByVal CartellaRoot As ValoriChiaveRegistro, ByVal PercorsoChiaveRegistro As String, ByVal NomeChiave As String)
Dim StringChiaveRegistro As String = Nothing
Try
Select Case CartellaRoot
Case 0
StringChiaveRegistro = My.Computer.Registry.ClassesRoot.OpenSubKey(PercorsoChiaveRegistro, True).GetValue(NomeChiave)
Case 1
StringChiaveRegistro = My.Computer.Registry.CurrentUser.OpenSubKey(PercorsoChiaveRegistro, True).GetValue(NomeChiave)
Case 2
StringChiaveRegistro = My.Computer.Registry.LocalMachine.OpenSubKey(PercorsoChiaveRegistro, True).GetValue(NomeChiave)
Case 3
StringChiaveRegistro = My.Computer.Registry.Users.OpenSubKey(PercorsoChiaveRegistro, True).GetValue(NomeChiave)
Case 4
StringChiaveRegistro = My.Computer.Registry.CurrentConfig.OpenSubKey(PercorsoChiaveRegistro, True).GetValue(NomeChiave)
Case 5
StringChiaveRegistro = My.Computer.Registry.PerformanceData.OpenSubKey(PercorsoChiaveRegistro, True).GetValue(NomeChiave)
Case Else
StringChiaveRegistro = My.Computer.Registry.LocalMachine.OpenSubKey(PercorsoChiaveRegistro, True).GetValue(NomeChiave)
End Select
Return StringChiaveRegistro
Catch ex As Exception
Return StringChiaveRegistro
End Try
End Function
End Class
By ImaginSystems & Queen Gin