v0.2.10.2.1

1 files changed, 34 insertions, 0 deletions

diff --git a/ShiftOS-TheRevival/MainForms/ShiftOSUpdater.vb b/ShiftOS-TheRevival/MainForms/ShiftOSUpdater.vb
index d264230..5878577 100644
--- a/ShiftOS-TheRevival/MainForms/ShiftOSUpdater.vb
+++ b/ShiftOS-TheRevival/MainForms/ShiftOSUpdater.vb
@@ -1,11 +1,45 @@
 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
\ No newline at end of file