msmqqueue.Path = "FormatName:Direct=TCP:127.0.0.1\Private$\queuename"

Delegate Sub zipProgressSafe(ByVal text As String, ByVal percent As Integer)
    Delegate Sub zipCompleteSafe(ByVal cancelled As Boolean)
 
    Dim extractDir As String = Application.StartupPath & "\extracted\"
 
    Private Sub bckZip_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bckZip.DoWork
        Dim zipFilename As String = Me.whereToSave
 
        If File.Exists(zipFilename) Then
 
            Dim safedelegate As New zipProgressSafe(AddressOf zipProgress)
            Me.Invoke(safedelegate, "Start Unzipping Process...", 0) 'Invoke the TreadsafeDelegate
 
            Dim Redo As Integer = 1
            Dim MyZipInputStream As ZipInputStream
            Dim MyFileStream As FileStream
            MyZipInputStream = New ZipInputStream(New FileStream(zipFilename, FileMode.Open, FileAccess.Read))
 
            Dim MyZipEntry As ZipEntry = MyZipInputStream.GetNextEntry
            Directory.CreateDirectory(extractDir)
 
            Dim nRead, total As Integer
            Dim percent As Integer
 
            While Not MyZipEntry Is Nothing
                Me.Invoke(safedelegate, "Calculating ZIP File Size...", 0)
                total += 1
                MyZipEntry = MyZipInputStream.GetNextEntry
            End While
 
            Me.Invoke(safedelegate, "Resetting ZIP File...", 0)
            MyZipInputStream = New ZipInputStream(New FileStream(zipFilename, FileMode.Open, FileAccess.Read))
            MyZipEntry = MyZipInputStream.GetNextEntry
 
            Me.Invoke(safedelegate, "Start Unzipping file 1 of " & total.ToString, 0)
            While Not MyZipEntry Is Nothing
 
                If bckZip.CancellationPending Then 'If user abort download
                    Exit While
                End If
 
                If (MyZipEntry.IsDirectory) Then
                    Directory.CreateDirectory(extractDir & "\" & MyZipEntry.Name)
                Else
                    If Not Directory.Exists(extractDir & "\" & Path.GetDirectoryName(MyZipEntry.Name)) Then
                        Directory.CreateDirectory(extractDir & "\" & Path.GetDirectoryName(MyZipEntry.Name))
                    End If
                    MyFileStream = New FileStream(extractDir & "\" & MyZipEntry.Name, FileMode.OpenOrCreate, FileAccess.Write)
 
                    Dim count As Integer
                    Dim buffer(4096) As Byte
                    count = MyZipInputStream.Read(buffer, 0, 4096)
 
                    While count > 0
                        MyFileStream.Write(buffer, 0, count)
                        count = MyZipInputStream.Read(buffer, 0, 4096)
                    End While
 
                    MyFileStream.Close()
                End If
 
                nRead += 1
                percent = ((nRead / total) * 100)
                Me.Invoke(safedelegate, "Start Unzipping file " & nRead.ToString & " of " & total.ToString, percent)
 
                Try
                    MyZipEntry = MyZipInputStream.GetNextEntry
                Catch ex As Exception
                    MyZipEntry = Nothing
                End Try
            End While
 
            If Not (MyZipInputStream Is Nothing) Then MyZipInputStream.Close()
            If Not (MyFileStream Is Nothing) Then MyFileStream.Close()
 
            If Me.bckZip.CancellationPending Then
 
                Dim cancelDelegate As New zipCompleteSafe(AddressOf zipComplete)
 
                Me.Invoke(cancelDelegate, True)
 
                Exit Sub
 
            End If
 
            Dim completeDelegate As New zipCompleteSafe(AddressOf zipComplete)
 
            Me.Invoke(completeDelegate, False)
        Else
            Dim cancelDelegate As New zipCompleteSafe(AddressOf zipComplete)
 
            Me.Invoke(cancelDelegate, True)
 
            Exit Sub
        End If
    End Sub
 
    Public Sub zipProgress(ByVal text As String, ByVal percent As Integer)
        Me.Label4.Text = text
        Me.ProgressBar1.Value = percent
    End Sub
 
    Public Sub zipComplete(ByVal cancelled As Boolean)
        If cancelled Then
            Me.Label4.Text = "Cancelled"
        Else
            Me.Label4.Text = "Successfully Unzipped"
        End If
        Me.ProgressBar1.Value = 0
 
    End Sub

Dim whereToSave As String 'Where the program save the file
 
    Delegate Sub ChangeTextsSafe(ByVal length As Long, ByVal position As Integer, ByVal percent As Integer, ByVal speed As Double)
    Delegate Sub DownloadCompleteSafe(ByVal cancelled As Boolean)
 
    Public Sub DownloadComplete(ByVal cancelled As Boolean)
        Me.txtFileName.Enabled = True
        Me.btnDownload.Enabled = True
        Me.btnCancel.Enabled = False
 
        If cancelled Then
 
            Me.Label4.Text = "Cancelled"
 
            'MessageBox.Show("Download aborted", "Aborted", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
 
        Else
            Me.Label4.Text = "Successfully downloaded"
 
            'MessageBox.Show("Successfully downloaded!", "All OK", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
        End If
 
        Me.ProgressBar1.Value = 0
        Me.Label5.Text = "Downloading: "
        Me.Label6.Text = "Save to: "
        Me.Label3.Text = "File size: "
        Me.Label2.Text = "Download speed: "
        Me.Label4.Text = ""
 
    End Sub
 
    Public Sub ChangeTexts(ByVal length As Long, ByVal position As Integer, ByVal percent As Integer, ByVal speed As Double)
 
        Me.Label3.Text = "File size: " & Math.Round((length / 1024), 2) & " KB"
 
        Me.Label5.Text = "Downloading: " & Me.txtFileName.Text
 
        Me.Label4.Text = "Downloaded " & Math.Round((position / 1024), 2) & " KB of " & Math.Round((length / 1024), 2) & "KB (" & Me.ProgressBar1.Value & "%)"
 
        If speed = -1 Then
            Me.Label2.Text = "Download speed: calculating..."
        Else
            Me.Label2.Text = "Download speed: " & Math.Round((speed / 1024), 2) & " KB/s"
        End If
 
        Me.ProgressBar1.Value = percent
 
 
    End Sub
 
    Private Sub btnDownload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDownload.Click
        If Me.txtFileName.Text <> "" AndAlso Me.txtFileName.Text.StartsWith("http://") Then
 
 
            Me.SaveFileDialog1.FileName = Me.txtFileName.Text.Split("/"c)(Me.txtFileName.Text.Split("/"c).Length - 1)
 
            If Me.SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
 
                Me.whereToSave = Me.SaveFileDialog1.FileName
 
                Me.SaveFileDialog1.FileName = ""
 
                Me.Label6.Text = "Save to: " & Me.whereToSave
 
                Me.txtFileName.Enabled = False
                Me.btnDownload.Enabled = False
                Me.btnCancel.Enabled = True
 
                Me.BackgroundWorker1.RunWorkerAsync() 'Start download
 
            End If
 
        Else
 
            MessageBox.Show("Please insert valid URL for download", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
 
        End If
    End Sub
 
    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Me.BackgroundWorker1.CancelAsync() 'Send cancel request
        Try
            Me.bckZip.CancelAsync()
        Catch ex As Exception
            'Do Nothing
        End Try
    End Sub
 
    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
 
        'Creating the request and getting the response
        Dim theResponse As HttpWebResponse
        Dim theRequest As HttpWebRequest
        Try 'Checks if the file exist
 
            theRequest = WebRequest.Create(Me.txtFileName.Text)
            theResponse = theRequest.GetResponse
            theRequest.Timeout = 10000000
        Catch ex As Exception
 
            MessageBox.Show("An error occurred while downloading file. Possibe causes:" & ControlChars.CrLf & _
                            "1) File doesn't exist" & ControlChars.CrLf & _
                            "2) Remote server error", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
            Dim cancelDelegate As New DownloadCompleteSafe(AddressOf DownloadComplete)
 
            Me.Invoke(cancelDelegate, True)
 
            Exit Sub
        End Try
        Dim length As Long = theResponse.ContentLength 'Size of the response (in bytes)
 
        Dim safedelegate As New ChangeTextsSafe(AddressOf ChangeTexts)
        Me.Invoke(safedelegate, length, 0, 0, 0) 'Invoke the TreadsafeDelegate
 
        Dim writeStream As New IO.FileStream(Me.whereToSave, IO.FileMode.Create)
 
        'Replacement for Stream.Position (webResponse stream doesn't support seek)
        Dim nRead As Integer
 
        'To calculate the download speed
        Dim speedtimer As New Stopwatch
        Dim currentspeed As Double = -1
        Dim readings As Integer = 0
 
        Do
 
            If BackgroundWorker1.CancellationPending Then 'If user abort download
                Exit Do
            End If
 
            speedtimer.Start()
 
            Dim readBytes(4096) As Byte
            Dim bytesread As Integer = theResponse.GetResponseStream.Read(readBytes, 0, 4096)
 
            nRead += bytesread
            Dim percent As Integer = (nRead / length) * 100
 
            Me.Invoke(safedelegate, length, nRead, percent, currentspeed)
 
            If bytesread = 0 Then Exit Do
 
            writeStream.Write(readBytes, 0, bytesread)
 
            speedtimer.Stop()
 
            readings += 1
            If readings >= 5 Then 'For increase precision, the speed it's calculated only every five cicles
                currentspeed = 20480 / (speedtimer.ElapsedMilliseconds / 1000)
                speedtimer.Reset()
                readings = 0
            End If
        Loop
 
        'Close the streams
        theResponse.GetResponseStream.Close()
        writeStream.Close()
 
        If Me.BackgroundWorker1.CancellationPending Then
 
            IO.File.Delete(Me.whereToSave)
 
            Dim cancelDelegate As New DownloadCompleteSafe(AddressOf DownloadComplete)
 
            Me.Invoke(cancelDelegate, True)
 
            Exit Sub
 
        End If
 
        Dim completeDelegate As New DownloadCompleteSafe(AddressOf DownloadComplete)
 
        Me.Invoke(completeDelegate, False)
 
    End Sub