Форум программистов [Powered by Invision Power Board]

Код

Private Sub BtStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtStart.Click
        Label2.Text = "Идет закачка файла."       
        Call DownloadTest()
    End Sub

Private Sub BtCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtCancel.Click
        ' Отменить закачку файла
    End Sub

Sub DownloadTest()
        Try
            Dim myClient As New WebClient()

            AddHandler myClient.DownloadProgressChanged, AddressOf DownloadProgressCallback
            AddHandler myClient.DownloadFileCompleted, AddressOf DownloadFileUnzip

            Dim url As New Uri("http://127.0.0.1/test.zip")
            Dim file As String = My.Application.Info.DirectoryPath & "\update\test.zip"

            myClient.DownloadFileAsync(url, file)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Private Sub DownloadProgressCallback(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
        ProgressBar1.Value = e.ProgressPercentage
        Label1.Text = (e.ProgressPercentage.ToString & "%")
    End Sub

Private Sub DownloadFileUnzip()
            ' Распаковка файла
        Try
            Label2.Text = "Идет распаковка файла."
            File.Exists("update\test.zip")
            zipfile.ExtractZip("update\test.zip", ".", "")
            Label2.Text = "Файл успешно распакован."
            File.Delete("update\test.zip")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub