1:  Public Class Registry

   2:   

   3:      Public Event FirstStart()

   4:      Public Event Err(Msg As String)

   5:      Public ReadOnly Property SoftwareName As String 'LawInfo

   6:   

   7:      Public Sub New(SoftwareName1 As String)

   8:          SoftwareName = SoftwareName1

   9:          Try

  10:              Using CurrentKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\" & SoftwareName, True)

  11:                  If CurrentKey Is Nothing Then

  12:                      Using SOFTWARE As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE", True)

  13:                          Using MyKey As Microsoft.Win32.RegistryKey = SOFTWARE.CreateSubKey(SoftwareName)

  14:                              RaiseEvent FirstStart()

  15:                          End Using

  16:                      End Using

  17:                  End If

  18:              End Using

  19:          Catch ex As Exception

  20:              RaiseEvent Err(ex.Message)

  21:          End Try

  22:      End Sub

  23:   

  24:      Public Sub SetValue(Name As String, Value As Object, RegistryValueKind As Microsoft.Win32.RegistryValueKind)

  25:          Using CurrentKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\" & SoftwareName, True)

  26:              If CurrentKey IsNot Nothing Then

  27:                  CurrentKey.SetValue(Name, Value, RegistryValueKind)

  28:              Else

  29:                  RaiseEvent Err("RegistryKey SOFTWARE\" & SoftwareName & " missing")

  30:              End If

  31:          End Using

  32:      End Sub

  33:   

  34:      Public Sub SetValue(Name As String, Value As String)

  35:          Using CurrentKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\" & SoftwareName, True)

  36:              If CurrentKey IsNot Nothing Then

  37:                  CurrentKey.SetValue(Name, Value)

  38:              Else

  39:                  RaiseEvent Err("RegistryKey SOFTWARE\" & SoftwareName & " missing")

  40:              End If

  41:          End Using

  42:      End Sub

  43:   

  44:      Public Sub SetValue(Name As String, Value As Byte())

  45:          Using CurrentKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\" & SoftwareName, True)

  46:              If CurrentKey IsNot Nothing Then

  47:                  CurrentKey.SetValue(Name, Value, Microsoft.Win32.RegistryValueKind.Binary)

  48:              Else

  49:                  RaiseEvent Err("RegistryKey SOFTWARE\" & SoftwareName & " missing")

  50:              End If

  51:          End Using

  52:      End Sub

  53:   

  54:      Public Sub SetValue(Name As String, Value As UInteger)

  55:          Using CurrentKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\" & SoftwareName, True)

  56:              If CurrentKey IsNot Nothing Then

  57:                  CurrentKey.SetValue(Name, Value, Microsoft.Win32.RegistryValueKind.DWord)

  58:              Else

  59:                  RaiseEvent Err("RegistryKey SOFTWARE\" & SoftwareName & " missing")

  60:              End If

  61:          End Using

  62:      End Sub

  63:   

  64:      Public Sub SetValue(Name As String, Value As ULong)

  65:          Using CurrentKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\" & SoftwareName, True)

  66:              If CurrentKey IsNot Nothing Then

  67:                  CurrentKey.SetValue(Name, Value, Microsoft.Win32.RegistryValueKind.QWord)

  68:              Else

  69:                  RaiseEvent Err("RegistryKey SOFTWARE\" & SoftwareName & " missing")

  70:              End If

  71:          End Using

  72:      End Sub

  73:   

  74:      Public Sub SetValue(Name As String, Value As Date)

  75:          Using CurrentKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\" & SoftwareName, True)

  76:              If CurrentKey IsNot Nothing Then

  77:                  CurrentKey.SetValue(Name, Value.ToString, Microsoft.Win32.RegistryValueKind.String)

  78:              Else

  79:                  RaiseEvent Err("RegistryKey SOFTWARE\" & SoftwareName & " missing")

  80:              End If

  81:          End Using

  82:      End Sub

  83:   

  84:      Public Sub SetValue(Name As String, Value As Boolean)

  85:          Using CurrentKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\" & SoftwareName, True)

  86:              If CurrentKey IsNot Nothing Then

  87:                  CurrentKey.SetValue(Name, Value.ToString, Microsoft.Win32.RegistryValueKind.String)

  88:              Else

  89:                  RaiseEvent Err("RegistryKey SOFTWARE\" & SoftwareName & " missing")

  90:              End If

  91:          End Using

  92:      End Sub

  93:   

  94:      Public Sub SetValue(Name As String, Value As Decimal)

  95:          Using CurrentKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\" & SoftwareName, True)

  96:              If CurrentKey IsNot Nothing Then

  97:                  CurrentKey.SetValue(Name, Value.ToString, Microsoft.Win32.RegistryValueKind.String)

  98:              Else

  99:                  RaiseEvent Err("RegistryKey SOFTWARE\" & SoftwareName & " missing")

 100:              End If

 101:          End Using

 102:      End Sub

 103:   

 104:      Public Function GetValue(Of T)(Name As String) As Object

 105:          Using CurrentKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\" & SoftwareName, True)

 106:              If CurrentKey IsNot Nothing Then

 107:                  Dim ValueType As Microsoft.Win32.RegistryValueKind

 108:                  Dim Ret As Object = CurrentKey.GetValue(Name, Nothing, ValueType)

 109:                  If Ret IsNot Nothing Then

 110:                      If GetType(T) = GetType(String) Then

 111:                          Return Ret.ToString

 112:                      ElseIf GetType(T) = GetType(Decimal) Then

 113:                          Return Decimal.Parse(Ret.ToString)

 114:                      ElseIf GetType(T) = GetType(Boolean) Then

 115:                          Return Boolean.Parse(Ret.ToString)

 116:                      ElseIf GetType(T) = GetType(Date) Then

 117:                          Return Date.Parse(Ret.ToString)

 118:                      ElseIf GetType(T) = GetType(Byte()) Then

 119:                          Return TryCast(Ret, Byte())

 120:                      ElseIf GetType(T) = GetType(UInteger) Then

 121:                          Return DirectCast(Ret, UInteger)

 122:                      ElseIf GetType(T) = GetType(ULong) Then

 123:                          Return Convert.ToUInt64(Ret)
 124:                      Else
 125:                          Return Ret
 126:                      End If
 127:                  End If
 128:              End If
 129:          End Using
 130:      End Function
 131:   
 132:  End Class