异步下载多个文件 VB.net

Question

我正在为我的 Minecraft 服务器上的模组创建安装程序/更新程序。我已经将它设置为有两个文件，每行一个 mod，代码比较这两个文件，如果它们不匹配，则下载最新的 mod。目前我有这样的下载设置：

        For x = 2 To latestModCount - 1
            If currentModList(x) <> latestModList(x) Then
                IO.File.Delete(applicationLocation & "multimc\instances\Dan's Server\minecraft\mods\" & currentModList(x))
                My.Computer.Network.DownloadFile(OnlineFiles & "mods/" & latestModList(x), _
                        applicationLocation & "multimc\instances\Dan's Server\minecraft\mods\" & latestModList(x))
            End If

            'Updates currentModList to = latestModList
            objWriter.Write(latestModList(x))
        Next

使用这种方法，表格在文件下载时完全冻结。

我想要的是随着每个下载一个进度条移动，每次完成一个新的时重置为零。我知道使用this 方法我可以下载一个文件，并且进度条会很好地移动。但问题在于，因为它使用异步下载，所以上述代码下方的任何代码都会在下载完成之前执行，这在尝试解压缩不存在的 zip 文件时会成为问题。

如果有人有解决方案，请提供代码示例，因为我实际上是我的第一个任何语言的程序，除了教程之外。

Answer 1

使用WebClient.DownloadFileAsync 并在client_DownloadCompleted 中处理完成的下载。

伪代码：

Private i as Integer = -1

Private Sub StartNextDownload()
    Do
        i++
    Loop Until currentModList(i) <> latestModList(i)
    If i < latestModCount Then
        IO.File.Delete(applicationLocation & "multimc\instances\Dan's Server\minecraft\mods\" & currentModList(i))
        Dim client As WebClient = New WebClient
        AddHandler client.DownloadProgressChanged, AddressOf client_ProgressChanged
        AddHandler client.DownloadFileCompleted, AddressOf client_DownloadCompleted
        client.DownloadFileAsync(New Uri(OnlineFiles & "mods/" & latestModList(i)), applicationLocation & "multimc\instances\Dan's Server\minecraft\mods\" & latestModList(i))
    End If
End Sub

Private Sub client_ProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
    Dim bytesIn As Double = Double.Parse(e.BytesReceived.ToString())
    Dim totalBytes As Double = Double.Parse(e.TotalBytesToReceive.ToString())
    Dim percentage As Double = bytesIn / totalBytes * 100
    progressBar.Value = Int32.Parse(Math.Truncate(percentage).ToString())
End Sub

Private Sub client_DownloadCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
    HandleCompletedDownload() 'unzip and other stuffs there
    StartNextDownload()
End Sub

另一种方法是一次触发所有下载，类似于您当前的下载（同样，在 client_DownloadCompleted 中处理已完成的下载）。但是，在这种方法中，您要么根本不使用进度条，要么进行一些对初学者不友好的编程来跟踪单个/总下载的进度。