ShiftOS-TheRevival-Old/ShiftOS-TheRevival/MainForms/ShiftOSUpdater.vb

Imports System.IO
Imports System.Net

Public Class ShiftOSUpdater
    Public HasChecked As Boolean
    Public NewVersion As String
    Public WithEvents Download As WebClient
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Close()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If Button2.Text = "Download" Then
            Dim FilePut As New SaveFileDialog
            FilePut.Filter = "ShiftOS Program|*.exe"
            FilePut.Title = "Save an updated ShiftOS version"
            FilePut.ShowDialog()
            If Not FilePut.FileName = "" Then
                Button1.Enabled = False
                Button2.Enabled = False
                Dim PutTo As String = "http://148.251.124.62:8080/ShiftOS/versions/ShiftOS-TheRevival.v" & NewVersion & ".exe"
                'Dim GetTo As New Uri(PutTo)
                My.Computer.Network.DownloadFile(PutTo, FilePut.FileName)
                'Revisit this later
                'Download.DownloadFileAsync(GetTo, FilePut.FileName)
                Button1.Enabled = True
                Button2.Enabled = True
                ShiftOSMenu.btn_Aboot.Enabled = True
                ShiftOSMenu.btn_Exit.Enabled = True
                ShiftOSMenu.btn_FreeRoam.Enabled = True
                ShiftOSMenu.btn_StoryMode.Enabled = True
                Button2.Text = "Saved"
            End If
        Else

        End If
    End Sub
    Private Sub ShiftOSUpdate_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Download_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles Download.DownloadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
    End Sub
End Class