Store Windows version in database

ocdtrekkie · Jun 17, 2024 · 620a363 · 620a363
1 parent c49dfbc
commit 620a363
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 4 deletions.
diff --git a/modComputer.vb b/modComputer.vb
@@ -128,14 +128,16 @@ Module modComputer
     End Function
 
     Function GetOSVersion() As String
-        Dim strBuild1, strBuild2, strBuild3, strBuild4 As String
+        Dim strBuild1, strBuild2, strBuild3, strBuild4, strWinVer As String
         Dim regKey As Microsoft.Win32.RegistryKey
         regKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion")
         strBuild1 = regKey.GetValue("CurrentMajorVersionNumber")
         strBuild2 = regKey.GetValue("CurrentMinorVersionNumber")
         strBuild3 = regKey.GetValue("CurrentBuild")
         strBuild4 = regKey.GetValue("UBR")
-        Return strBuild1 & "." & strBuild2 & "." & strBuild3 & "." & strBuild4
+        strWinVer = strBuild1 & "." & strBuild2 & "." & strBuild3 & "." & strBuild4
+        modDatabase.Execute("INSERT INTO CONFIG (Key, Value) VALUES('System_LastKnownWindowsVersion', '" & strWinVer & "') ON CONFLICT(Key) DO UPDATE SET Value=excluded.Value")
+        Return strWinVer
     End Function
 
     Function GetProcessList() As String

diff --git a/modDatabase.vb b/modDatabase.vb
@@ -6,6 +6,7 @@ Module modDatabase
     Public conn As SQLiteConnection = New SQLiteConnection
 
     Sub CreateDb()
+        Execute("CREATE TABLE If Not EXISTS ""CONFIG"" (""Key"" varchar(100) primary key not null ,""Value"" varchar )")
         Execute("CREATE TABLE IF NOT EXISTS DEVICES(Id INTEGER PRIMARY KEY, Name TEXT, Type TEXT, Model TEXT, Location TEXT, Address TEXT UNIQUE)")
         Execute("CREATE TABLE IF NOT EXISTS ENVIRONMENT(Id INTEGER PRIMARY KEY, Date TEXT, Source TEXT, Location TEXT, Temperature INTEGER, Humidity INTEGER, Condition TEXT)")
         Execute("CREATE TABLE IF NOT EXISTS LOCATION(Id INTEGER PRIMARY KEY, Date TEXT, Latitude REAL, Longitude REAL, Speed REAL)")

diff --git a/modGlobal.vb b/modGlobal.vb
@@ -21,17 +21,17 @@ Public Module modGlobal
             LoadModuleTasks.Add(Task.Run(Function() modDreamCheeky.Load())) 'Dependencies: None
             LoadModuleTasks.Add(Task.Run(Function() modStreamDeck.Load())) 'Dependencies: None
             LoadModuleTasks.Add(Task.Run(Function() modMusic.Load())) 'Dependencies: None
-            LoadModuleTasks.Add(Task.Run(Function() modComputer.Load())) 'Dependencies: None
             LoadModuleTasks.Add(Task.Run(Function() modPihole.Load())) 'Dependencies: None
             LoadModuleTasks.Add(Task.Run(Function() modLibrary.Load())) 'Dependencies: None
-            LoadModuleTasks.Add(Task.Run(Function() modSync.Load())) 'Dependencies: None
 
             Task.WaitAll(LoadModuleTasks.ToArray())
 
+            LoadModuleTasks.Add(Task.Run(Function() modComputer.Load())) 'Dependencies: Database
             LoadModuleTasks.Add(Task.Run(Function() modMail.Load())) 'Dependencies: Database
             LoadModuleTasks.Add(Task.Run(Function() modOpenWeatherMap.Load())) 'Dependencies: Database
             LoadModuleTasks.Add(Task.Run(Function() modMatrixLCD.Load())) 'Dependencies: Speech
             LoadModuleTasks.Add(Task.Run(Function() modGPS.Load())) 'Dependencies: Database
+            LoadModuleTasks.Add(Task.Run(Function() modSync.Load())) 'Dependencies: Database
 
             Task.WaitAll(LoadModuleTasks.ToArray())