跳过错误提示

将HttpClient的SkipError属性设置为True，可以跳过错误提示，例如下面的代码：

　

Dim hc As New HttpClient("https://www.baidu.com/img/abc.jpg")

If hc.GetFile("c:\data\123.png") Then

    MessageBox.show("文件下载成功","提示")

Else

    MessageBox.show("文件下载失败","提示")

End If

由于文件不存在，系统会先出现404的错误提示，然后才会提示下载失败。

如果希望文件不存在时，跳过错误提示，而是直接提示下载失败，可将SkipError属性设置为True:

Dim hc As New HttpClient("https://www.baidu.com/img/abc.jpg")

hc.SkipError = True

If hc.GetFile("c:\data\123.png") Then

    MessageBox.show("文件下载成功","提示")

Else

    MessageBox.show("文件下载失败","提示")

End If

其他错误也可以跳过。

我们可以通过StatusCode属性，进一步细分错误原因，例如：

Dim hc As New HttpClient("https://www.baidu.com/img/abc.jpg")

hc.SkipError = True

If hc.GetFile("c:\data\123.png") Then

    MessageBox.show("文件下载成功","提示")

Else

    If hc.StatusCode = 0 Then

        MessageBox.show("无法连接到服务器!")

    ElseIf  hc.StatusCode = 404 Then

        MessageBox.show("要访问的资源不存在!")

    Else

        MessageBox.show("文件下载失败，StatuCode:" & hc.StatusCode,"提示!")

    End If