VB.net

[Chrisx123456]

Szukam kodu który pobiera plik rar albo zip z internetu z paskiem postępu a po pobraniu unpackuje ten plik.

[somanyidiots]

Gotowce... ja ci go nie dam ale nakieruje Cię jak zrobić. 
Download + progress bar

Imports System.Net
Public Class Form1
  Dim WithEvents WC As New WebClient
  Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    WC.DownloadFileAsync(New Uri("http://johnweinhold.com/Documents/DSVideoEditor.zip"), "DownloadedFile.zip")
  End Sub
  Private Sub WC_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles WC.DownloadProgressChanged
    ProgressBar1.Value = e.ProgressPercentage
  End Sub
End Class

 

Unzip: 

 

DotNetZip lib : http://dotnetzip.codeplex.com/

 

 

Dim ZipToUnpack As String = "C1P3SML.zip"
Dim TargetDir As String = "C1P3SML"
Console.WriteLine("Extracting file {0} to {1}", ZipToUnpack, TargetDir)
Using zip1 As ZipFile = ZipFile.Read(ZipToUnpack)
Dim e As ZipEntry
For Each e In zip1
e.Extract(TargetDir, ExtractExistingFileAction.OverwriteSilently)
Next
End Using

 

[Chrisx123456]

Pobieranie działa ale unzip niestety nie działa. To mój kod:

 

Imports System.Net
Imports Ionic.Zip
Public Class Form1
    Dim WithEvents WC As New WebClient

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        WC.DownloadFileAsync(New Uri("http://download1979.mediafire.com/5u9bns82odug/6i7ohxnnkiwd7hq/Quiz.zip"), "Quiz.rar")

    End Sub
    Private Sub WC_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles WC.DownloadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim ZipToUnpack As String = "Quiz.zip"
        Dim TargetDir As String = "Quiz"
        Console.WriteLine("Extracting file {0} to {1}", ZipToUnpack, TargetDir)
        Using zip1 As ZipFile = ZipFile.Read(ZipToUnpack)
            Dim e As ZipEntry
            For Each e In zip1
                e.Extract(TargetDir, ExtractExistingFileAction.OverwriteSilently)
            Next
        End Using

    End Sub

    Private Sub ProgressBar1_Click(sender As Object, e As EventArgs) Handles ProgressBar1.Click

    End Sub
End Class
 

[somanyidiots]

Pobierasz plik Quiz.rar a próbujesz unzipnąć Quiz.zip.. Pomyśl trochę co jest źle.

[Chrisx123456]

Mam jescze jedno małe pytanie czy da sie zrobić takie coś że jak plik się odpakuje to np wyświetla się msgbox ?????

[somanyidiots]

Po "end using" w drugim buttonie gdzie masz wypakowanie wstaw msgbox-a. Wyświetli się po wypakowaniu pliku. 
edit: Posta zasada czytania kodu przez komputer, to jest akurat prosty kod więc będzie w tym buttonie wykonywał się z góry na dół więc gdy program wypakuje pokaże się msgbox. Wystarczy dać go tylko pod kodem wypakowania.