diff options
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/ShiftOSUpdater.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/ShiftOSUpdater.vb | 34 |
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 |