blob: 5878577e4f7f50381fb58bbf3be039850ca1e89f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
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
|
