diff options
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb index bd1edb2..82af7be 100644 --- a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb +++ b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb @@ -23,6 +23,7 @@ Public Class ShiftOSMenu Catch ex As Exception MsgBox("Why? Because of " & ex.Message) End Try + CheckUpdate() End Sub Private Sub btn_Exit_Click(sender As Object, e As EventArgs) Handles btn_Exit.Click @@ -73,4 +74,19 @@ Public Class ShiftOSMenu btn_Exit.Visible = True End Select End Sub + + Private Sub CheckUpdate() + If File.Exists("C:\SOS_NewVer.txt") = True Then + File.Delete("C:\SOS_NewVer.txt") + End If + My.Computer.Network.DownloadFile("http://148.251.124.62:8080/ShiftOS/data/NewVer.txt", "C:\SOS_NewVer.txt") + Dim CurrentVersion As String = My.Resources.CurrentVersion + Dim NewVersion As String = File.ReadAllText("C:\SOS_NewVer.txt") + If CurrentVersion = NewVersion Then + + Else + ShiftOSUpdater.Show() + ShiftOSUpdater.Label2.Text = "A new version, " & NewVersion & " is available." & Environment.NewLine & "Your version is " & CurrentVersion + End If + End Sub End Class |