第一次提交至Git

2024-03-11 16:32:52 +08:00
commit 3f6c4d62b9
2865 changed files with 2172317 additions and 0 deletions
--- a/AUTS_ServiceControler/Registry.vb
+++ b/AUTS_ServiceControler/Registry.vb
@@ -0,0 +1,216 @@
+Imports Microsoft.Win32.Registry
+
+Public Class Registry
+
+    ''' <summary>
+    ''' 注册表存放根路径配置信息
+    ''' </summary>
+    Public Shared ReadOnly AutsRootDirPath As String = $"software\AUTS"
+
+
+    Enum DirNameEnum
+        AUTS_DataService
+
+        AUTS_UpdateService
+
+        License
+
+        LocalDb
+    End Enum
+
+
+    ''' <summary>
+    ''' 获取注册表是否存在
+    ''' </summary>
+    ''' <returns></returns>
+    Public Shared Function RootDirExists() As Boolean
+        Return LocalMachine.OpenSubKey(AutsRootDirPath) IsNot Nothing
+    End Function
+
+
+    ''' <summary>
+    ''' 获取和设置Root根文件路径
+    ''' </summary>
+    ''' <returns></returns>
+    Public Shared Property RootPath() As String
+        Get
+            Return LocalMachine.OpenSubKey($"{AutsRootDirPath}").GetValue("Path", "").ToString()
+        End Get
+
+        Set(value As String)
+            LocalMachine.CreateSubKey($"{AutsRootDirPath}").SetValue("Path", value, Microsoft.Win32.RegistryValueKind.String)
+        End Set
+    End Property
+
+
+    ''' <summary>
+    ''' 获取和设置License路径
+    ''' </summary>
+    ''' <returns></returns>
+    Public Shared Property LicensePath() As String
+        Get
+            Return LocalMachine.OpenSubKey($"{AutsRootDirPath}\{DirNameEnum.License}").GetValue("Path", "").ToString()
+        End Get
+
+        Set(value As String)
+            LocalMachine.CreateSubKey($"{AutsRootDirPath}\{DirNameEnum.License}").SetValue("Path", value, Microsoft.Win32.RegistryValueKind.String)
+        End Set
+    End Property
+
+
+    ''' <summary>
+    ''' 获取和设置LocalDb路径
+    ''' </summary>
+    ''' <returns></returns>
+    Public Shared Property LocalDb() As String
+        Get
+            Return LocalMachine.OpenSubKey($"{AutsRootDirPath}\{DirNameEnum.LocalDb}").GetValue("Path", "").ToString()
+        End Get
+
+        Set(value As String)
+            LocalMachine.CreateSubKey($"{AutsRootDirPath}\{DirNameEnum.LocalDb}").SetValue("Path", value, Microsoft.Win32.RegistryValueKind.String)
+        End Set
+    End Property
+
+
+    ''' <summary>
+    ''' 获取和设置DataService名称
+    ''' </summary>
+    ''' <returns></returns>
+    Public Shared Property DataServiceName() As String
+        Get
+            Return LocalMachine.OpenSubKey($"{AutsRootDirPath}\{DirNameEnum.AUTS_DataService}").GetValue("Name", "").ToString()
+
+        End Get
+
+        Set(value As String)
+            LocalMachine.CreateSubKey($"{AutsRootDirPath}\{DirNameEnum.AUTS_DataService}").SetValue("Name", value, Microsoft.Win32.RegistryValueKind.String)
+        End Set
+    End Property
+
+
+    ''' <summary>
+    ''' 获取和设置DataService版本信息
+    ''' </summary>
+    ''' <returns></returns>
+    Public Shared Property DataServiceVersion() As String
+        Get
+            Return LocalMachine.OpenSubKey($"{AutsRootDirPath}\{DirNameEnum.AUTS_DataService}").GetValue("Version", "").ToString()
+        End Get
+        Set(value As String)
+            LocalMachine.CreateSubKey($"{AutsRootDirPath}\{DirNameEnum.AUTS_DataService}").SetValue("Version", value, Microsoft.Win32.RegistryValueKind.String)
+
+        End Set
+    End Property
+
+    ''' <summary>
+    ''' 获取和设置DataService文件路径
+    ''' </summary>
+    ''' <returns></returns>
+    Public Shared Property DataServiceDirPath() As String
+        Get
+            Return LocalMachine.OpenSubKey($"{AutsRootDirPath}\{DirNameEnum.AUTS_DataService}").GetValue("DirPath", "").ToString()
+
+        End Get
+
+        Set(value As String)
+            LocalMachine.CreateSubKey($"{AutsRootDirPath}\{DirNameEnum.AUTS_DataService}").SetValue("DirPath", value, Microsoft.Win32.RegistryValueKind.String)
+        End Set
+    End Property
+
+
+    ''' <summary>
+    ''' 
+    ''' </summary>
+    ''' <returns></returns>
+    Public Shared Property DataServiceTcpPort() As String
+        Get
+            Return LocalMachine.OpenSubKey($"{AutsRootDirPath}\{DirNameEnum.AUTS_DataService}").GetValue("Port", "").ToString()
+        End Get
+
+        Set(value As String)
+            LocalMachine.CreateSubKey($"{AutsRootDirPath}\{DirNameEnum.AUTS_DataService}").SetValue("Port", value, Microsoft.Win32.RegistryValueKind.String)
+        End Set
+    End Property
+
+
+    ''' <summary>
+    ''' 获取和设置DataService启动程序名称
+    ''' </summary>
+    ''' <returns></returns>
+    Public Shared Property DataServiceExeName() As String
+        Get
+            Return LocalMachine.OpenSubKey($"{AutsRootDirPath}\{DirNameEnum.AUTS_DataService}").GetValue("ExeName", "").ToString()
+
+        End Get
+
+        Set(value As String)
+            LocalMachine.CreateSubKey($"{AutsRootDirPath}\{DirNameEnum.AUTS_DataService}").SetValue("ExeName", value, Microsoft.Win32.RegistryValueKind.String)
+        End Set
+    End Property
+
+
+
+
+    ''' <summary>
+    ''' 获取和设置UpdateService名称
+    ''' </summary>
+    ''' <returns></returns>
+    Public Shared Property UpdateServiceName() As String
+        Get
+            Return LocalMachine.OpenSubKey($"{AutsRootDirPath}\{DirNameEnum.AUTS_UpdateService}").GetValue("Name", "").ToString()
+        End Get
+        Set(value As String)
+            LocalMachine.CreateSubKey($"{AutsRootDirPath}\{DirNameEnum.AUTS_UpdateService}").SetValue("Name", value, Microsoft.Win32.RegistryValueKind.String)
+        End Set
+    End Property
+
+
+    ''' <summary>
+    ''' 获取和设置UpdateService版本信息
+    ''' </summary>
+    ''' <returns></returns>
+    Public Shared Property UpdateServiceVersion() As String
+        Get
+            Return LocalMachine.OpenSubKey($"{AutsRootDirPath}\{DirNameEnum.AUTS_UpdateService}").GetValue("Version", "").ToString()
+        End Get
+        Set(value As String)
+            LocalMachine.CreateSubKey($"{AutsRootDirPath}\{DirNameEnum.AUTS_UpdateService}").SetValue("Version", value, Microsoft.Win32.RegistryValueKind.String)
+
+        End Set
+    End Property
+
+
+    ''' <summary>
+    ''' 获取和设置UpdateService文件路径
+    ''' </summary>
+    ''' <returns></returns>
+    Public Shared Property UpdateServiceDirPath() As String
+        Get
+            Return LocalMachine.OpenSubKey($"{AutsRootDirPath}\{DirNameEnum.AUTS_UpdateService}").GetValue("DirPath", "").ToString()
+
+        End Get
+
+        Set(value As String)
+            LocalMachine.CreateSubKey($"{AutsRootDirPath}\{DirNameEnum.AUTS_UpdateService}").SetValue("DirPath", value, Microsoft.Win32.RegistryValueKind.String)
+        End Set
+    End Property
+
+
+    ''' <summary>
+    ''' 获取和设置UpdateService启动程序名称
+    ''' </summary>
+    ''' <returns></returns>
+    Public Shared Property UpdateServiceExeName() As String
+        Get
+            Return LocalMachine.OpenSubKey($"{AutsRootDirPath}\{DirNameEnum.AUTS_UpdateService}").GetValue("ExeName", "").ToString()
+        End Get
+
+        Set(value As String)
+            LocalMachine.CreateSubKey($"{AutsRootDirPath}\{DirNameEnum.AUTS_UpdateService}").SetValue("ExeName", value, Microsoft.Win32.RegistryValueKind.String)
+        End Set
+    End Property
+
+
+End Class
+