Disabling local updater

This commit is contained in:
Everything Windows 2024-01-16 20:06:03 +07:00
parent a46bcc0595
commit 540a921883
2 changed files with 20 additions and 20 deletions

View file

@ -148,25 +148,25 @@ Public Class ShiftOSMenu
Private Sub CheckInstall() Private Sub CheckInstall()
If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS") = True Then If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS") = True Then
Dim CurrentVersion As String = My.Resources.CurrentVersion Dim CurrentVersion As String = My.Resources.CurrentVersion
If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\version.txt") = True Then 'If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\version.txt") = True Then
TheUpdater.WhatVersion = File.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\version.txt") ' TheUpdater.WhatVersion = File.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\version.txt")
Else 'Else
TheUpdater.WhatVersion = "0.2.4" ' TheUpdater.WhatVersion = "0.2.4"
End If 'End If
If TheUpdater.WhatVersion = My.Resources.CurrentVersion Then 'If TheUpdater.WhatVersion = My.Resources.CurrentVersion Then
File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\version.txt", My.Resources.CurrentVersion) ' File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\version.txt", My.Resources.CurrentVersion)
'CheckUpdate() ' 'CheckUpdate()
Else 'Else
btn_Aboot.Enabled = False ' btn_Aboot.Enabled = False
btn_Exit.Enabled = False ' btn_Exit.Enabled = False
btn_FreeRoam.Enabled = False ' btn_FreeRoam.Enabled = False
btn_StoryMode.Enabled = False ' btn_StoryMode.Enabled = False
ShouldUpdate = True ' ShouldUpdate = True
ShiftOSUpdater.Show() ' ShiftOSUpdater.Show()
ShiftOSUpdater.Label2.Text = "A new version, " & CurrentVersion & " is available." & Environment.NewLine & "Your version is " & TheUpdater.WhatVersion & Environment.NewLine & "Update now to get more features." 'ShiftOSUpdater.Label2.Text = "A new version, " & CurrentVersion & " is available." & Environment.NewLine & "Your version is " & TheUpdater.WhatVersion & "Update now to get more features." ' ShiftOSUpdater.Label2.Text = "A new version, " & CurrentVersion & " is available." & Environment.NewLine & "Your version is " & TheUpdater.WhatVersion & Environment.NewLine & "Update now to get more features." 'ShiftOSUpdater.Label2.Text = "A new version, " & CurrentVersion & " is available." & Environment.NewLine & "Your version is " & TheUpdater.WhatVersion & "Update now to get more features."
'ShiftOSUpdater.Label2.Text = "Update function is temporarily disabled." & Environment.NewLine & "Click the 'Reset' to reset the save" ' 'ShiftOSUpdater.Label2.Text = "Update function is temporarily disabled." & Environment.NewLine & "Click the 'Reset' to reset the save"
'ShiftOSUpdater.Button2.Text = "Reset" ' 'ShiftOSUpdater.Button2.Text = "Reset"
End If 'End If
Else Else
If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS") = True Then If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS") = True Then
If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS") = True Then If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS") = True Then

View file

@ -1 +1 @@
0.2.8 0.2.9