diff options
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/TheUpdater.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/TheUpdater.vb | 69 |
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 |