Я пытаюсь загрузить файл, используя простые базовые инструкции веб-клиента, однако загрузка файла не завершается. Если я пытаюсь загрузить файл размером 10 МБ/100 МБ, загружается либо файл размером 7 КБ, либо пустой файл. Я просто использую ProgressBar, чтобы показать ход загрузки. Вот код, который я использую.
Imports System.Net
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://cachefly.cachefly.net/100mb.test"), "100mb.test")
End Sub
Private Sub wc_DownloadFileCompleted(sender As Object, e As System.ComponentModel.AsyncCompletedEventArgs) Handles wc.DownloadFileCompleted
ProgressBar1.Visible = False
ProgressBar1.Value = 0
End Sub
Private Sub wc_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles wc.DownloadProgressChanged
ProgressBar1.Visible = True
ProgressBar1.Value = e.ProgressPercentage
End Sub
End Class