跳过错误提示
将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
End If