Из выполнения этого кода
- Код: Выделить всё
Imports System.IO
Imports System.Net
Imports System.Threading
Module All
Public Sub Main()
Dim Buf(16383) As Byte, Len As Integer
Dim Request As HttpWebRequest = WebRequest.Create("http://www.gaudeamus.omskcity.com/lib-pdf/sciences/Lavrov_-_Programmirovanie_-_OsnovySredstvaTeoriya_-_314_PDF.zip")
With Request
.Method = WebRequestMethods.Http.Get
.AddRange(1048576, 2097152)
End With
Dim Response As HttpWebResponse = Request.GetResponse()
Dim Stream As Stream = Response.GetResponseStream()
For Q As Integer = 0 To 8
Len = Stream.Read(Buf, 0, 3)
Thread.Sleep(6000)
Next Q
Response.Close()
End Sub
End Module