mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-23 02:12:14 +00:00
69 lines
3.9 KiB
VB.net
69 lines
3.9 KiB
VB.net
|
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
|