Verificação e extraçao
Preciso de ajuda para que esse script verifique a versão em um arquivo .txt que esta presente no mesmo diretório que o programa. E preciso que o programa baixe e extraia um arquivo, e caso preciso substitua arquivos existentes. E no final renincie o programa podendo fazer uma nova atualização se necessário.
Segue abaixo oque eu consegui fazer, favor verificar e me ajuda com download e extração:
Imports System.IO
Imports System.IO.Compression
Public Class Form1
Dim up As New WebClient
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim client As String = up.DownloadString("version.txt")
Dim update As String = up.DownloadString("http://patch.???.com/version.txt")
If client = update Then
Timer1.Start()
End If
If client = update Then
ProgressBar1.Value = "100"
Form2.Show()
Me.Close()
End If
If update = "0.0.0.0" Then
Timer1.Start()
End If
If update = "0.0.0.0" Then
ProgressBar1.Value = "100"
MsgBox("Servidor em Manutençao.")
Me.Close()
End If
If client = "1.0.0.1" Then
Timer1.Start()
End If
If client = "1.0.0.1" Then
Dim wc As New System.Net.WebClient()
wc.DownloadFile("http://patch.???.com/att/1.0.0.1.zip", "")
ProgressBar1.Value = "100"
End IfDiscussão (1)
Carregando comentários...