aboutsummaryrefslogtreecommitdiff
path: root/ShiftOS-TheRevival/MainForms/TheUpdater.vb
diff options
context:
space:
mode:
authorEverythingWindows <[email protected]>2022-11-09 08:42:46 +0700
committerEverythingWindows <[email protected]>2022-11-09 08:42:46 +0700
commit850353a885d40f15cac96d7f31fdad81fa2093a4 (patch)
treebd378fe08e0b39976a7a6a2a8f8f77777c216110 /ShiftOS-TheRevival/MainForms/TheUpdater.vb
parente2051f44b828b2347be216931377817efb2648d7 (diff)
downloadshiftos-therevival-old-0.2.4.tar.gz
shiftos-therevival-old-0.2.4.tar.bz2
shiftos-therevival-old-0.2.4.zip
0.2.4 final code0.2.4
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/TheUpdater.vb')
-rw-r--r--ShiftOS-TheRevival/MainForms/TheUpdater.vb69
1 files changed, 69 insertions, 0 deletions
diff --git a/ShiftOS-TheRevival/MainForms/TheUpdater.vb b/ShiftOS-TheRevival/MainForms/TheUpdater.vb
new file mode 100644
index 0000000..1ef506a
--- /dev/null
+++ b/ShiftOS-TheRevival/MainForms/TheUpdater.vb
@@ -0,0 +1,69 @@
+Imports System.IO
+
+Module TheUpdater
+
+ Public WhatVersion As String
+ Public Sub UpdateToNew()
+ Dim AvailableFeatureHere As String() = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\AvailableFeature.sos")
+ Dim ComputerInfoHere As String() = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\ComputerInfo.sos")
+ Select Case WhatVersion
+ Case "0.2.3"
+ Strings.AvailableFeature(0) = AvailableFeatureHere(0)
+ Strings.AvailableFeature(1) = AvailableFeatureHere(1)
+ Strings.AvailableFeature(2) = AvailableFeatureHere(2)
+ Strings.AvailableFeature(3) = AvailableFeatureHere(3)
+ Strings.AvailableFeature(4) = AvailableFeatureHere(4)
+ Strings.AvailableFeature(5) = AvailableFeatureHere(5)
+ Strings.AvailableFeature(6) = AvailableFeatureHere(6)
+ Strings.AvailableFeature(7) = AvailableFeatureHere(7)
+ Strings.AvailableFeature(8) = AvailableFeatureHere(8)
+ Strings.AvailableFeature(9) = AvailableFeatureHere(9)
+ Strings.AvailableFeature(10) = AvailableFeatureHere(10)
+ Strings.AvailableFeature(11) = AvailableFeatureHere(11)
+ Strings.AvailableFeature(12) = AvailableFeatureHere(12)
+ Strings.AvailableFeature(13) = AvailableFeatureHere(13)
+ Strings.AvailableFeature(14) = AvailableFeatureHere(14)
+ Strings.AvailableFeature(15) = AvailableFeatureHere(15)
+ Strings.AvailableFeature(16) = "0"
+ Strings.AvailableFeature(17) = "0"
+ Strings.AvailableFeature(18) = "0"
+ Strings.AvailableFeature(19) = "0"
+ Strings.AvailableFeature(20) = "0"
+ Strings.AvailableFeature(21) = "0"
+ Strings.AvailableFeature(22) = "0"
+ If Strings.AvailableFeature(15) = 1 Then
+ Strings.AvailableFeature(16) = "0"
+ Else
+ Strings.AvailableFeature(16) = "2"
+ End If
+ Strings.AvailableFeature(17) = "2"
+ If Strings.AvailableFeature(2) = 1 Then
+ Strings.AvailableFeature(18) = "0"
+ Strings.AvailableFeature(21) = "0"
+ Else
+ Strings.AvailableFeature(18) = "2"
+ Strings.AvailableFeature(21) = "2"
+ End If
+ If Strings.AvailableFeature(0) = 1 Then
+ Strings.AvailableFeature(19) = "0"
+ Strings.AvailableFeature(20) = "0"
+ Else
+ Strings.AvailableFeature(19) = "2"
+ Strings.AvailableFeature(20) = "2"
+ End If
+ Strings.AvailableFeature(22) = "2"
+ Strings.ComputerInfo(0) = ComputerInfoHere(0)
+ Strings.ComputerInfo(1) = ComputerInfoHere(1)
+ Strings.ComputerInfo(2) = ComputerInfoHere(2)
+ Strings.ComputerInfo(3) = ComputerInfoHere(3)
+ Strings.ComputerInfo(4) = ComputerInfoHere(4)
+ Strings.ComputerInfo(5) = "0F"
+ Strings.ComputerInfo(6) = "F0"
+ ShiftOSUpdater.Button2.Text = "Updated!"
+ End Select
+ File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\version.txt", My.Resources.CurrentVersion)
+ File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\AvailableFeature.sos", Strings.AvailableFeature)
+ File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\ComputerInfo.sos", Strings.ComputerInfo)
+ ShiftOSMenu.ShouldUpdate = False
+ End Sub
+End Module \ No newline at end of file