fork download

copy

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
        Catch ex As Exception
 
            MessageBox.Show("An error occurred while downloading file. _
			Possible 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 aborts download
                Exit Do
            End If
 
            speedtimer.Start()
 
            Dim readBytes(4095) As Byte
            Dim bytesread As Integer = theResponse.GetResponseStream.Read_
						(readBytes, 0, 4096)
 
            nRead += bytesread
            Dim percent As Short = (nRead * 100) / length
 
            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 is calculated only every five cycles
                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

Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


/home/7TMJJj/prog.vb (1,13) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (5,12) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (6,12) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (7,12) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (9,23) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (10,24) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (11,14) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (13,23) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (13,73) : Error VBNC90003: End of line found in string constant.
/home/7TMJJj/prog.vb (14,12) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (14,45) : Error VBNC90003: End of line found in string constant.
/home/7TMJJj/prog.vb (15,52) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (19,16) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (21,15) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (23,17) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (24,16) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (25,12) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (27,12) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (28,11) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (30,12) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (33,12) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (36,12) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (37,12) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (38,12) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (40,11) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (42,15) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (43,21) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (44,19) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (46,23) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (48,16) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (49,16) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (50,8) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (52,18) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (53,16) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (55,15) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (57,15) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (59,24) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (61,23) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (63,21) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (64,15) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (66,29) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (67,27) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (68,25) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (69,19) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (70,13) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (73,20) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (74,20) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (76,11) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (78,15) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (80,16) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (82,15) : Error VBNC30203: Not valid as identifier.
/home/7TMJJj/prog.vb (82,15) : Error VBNC30041: Too many errors.
Exception of type 'vbnc.TooManyErrorsException' was thrown.
  at vbnc.Report.ShowMessage (Boolean SaveIt, vbnc.Message Message) [0x00080] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Report.vb:342 
  at vbnc.Report.ShowMessage (Messages Message, Span Location, System.String[] Parameters) [0x00000] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Report.vb:259 
  at vbnc.Report.ShowMessage (Messages Message, System.String[] Parameters) [0x00054] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Report.vb:269 
  at vbnc.Compiler.Compile () [0x005a3] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:651 
  at vbnc.Compiler.Compile (System.String[] CommandLine) [0x00057] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:279 
  at vbnc.Main.Main (System.String[] CmdArgs) [0x0000f] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Main.vb:55 
Failed compilation took 00:00:00.5864950

Standard output is empty