Verificação e extraçao

[ryuunosuke 1]

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 If

[KhaosDoctor 242]

Você pode usar o https://msdn.microsoft.com/pt-br/library/1say4ws7.aspx para baixar, mas o jeito que você fez está correto.

 

Para extrair:

http://stackoverflow.com/questions/12889044/unzip-file-in-vb-net

https://msdn.microsoft.com/pt-br/library/ms404280(v=vs.110).aspx