VB：从互联网下载 ZIP 文件（并解压）

Question

我需要使用 Visual Basic 从 Internet 以某种方式下载 ZIP 文件。 这是我目前拥有的：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim NewAppData As String
    NewAppData = Environment.ExpandEnvironmentVariables("%AppData%/.minecraft.zip")
    Call DownloadFile("http://blahblahbacksheep.co.cc/.minecraft.zip", NewAppData)
End Sub

当我调试程序时，它给了我以下信息：

Function 'DownloadFile' doesn't return a value on all code paths. A null reference exception could occur at run time when the result is used.

我要做的是下载 ZIP 文件，然后将其解压缩。如果可能的话，用百分比显示标签，例如：

Downloaded: 100%
Extracting: 35%....

谁能给我任何资源或写一些代码来完成部分/所有这些？

谢谢

Answer 1

对于您问题的解压缩部分：7-Zip 是一个非常棒的开源文件归档实用程序，它有一个很好的命令行界面。下面是如何从 VB 调用 7-Zip 的示例（一旦安装）：

Set WshShell = VBA.CreateObject("WScript.Shell")
WshShell.Run "c:\Program Files\7-Zip\7z.exe " & _
    "a -tzip myarchive.zip file.dat file2.txt file3.png", 1, True

此示例将三个文件压缩到一个存档中，而您想从存档中提取文件...只需在文档中查找相应的命令即可。

请注意，在执行 7-Zip 时会弹出一个命令窗口，您会在其中看到一个 % 进度指示器。如果您希望这个指标出现在其他地方，那么您可以通过一些独创性将标准输出通过管道传输到其他相关位置。