如何捕捉网络响应超时错误,代码如下:
try
Dim path, rpath As String
path = Application.StartupPath & "\" & "tmp.txt"
rpath = "http://www.123.com/tmp.txt"
Dim gh As HttpWebRequest = HttpWebRequest.Create(rpath)
Dim wp As HttpWebResponse = gh.GetResponse
gh.Timeout = 5000
'其它操作代码,例如下载这个文件后处理
Catch ex As WebException
msgbox(ex.ToString()) '捕捉到超时错误后显示
end try
问题:
当响应超时时,程序出错崩溃,但没有设定的出错对话框出现——就是说并没有捕捉到出错。
请各位指教!
------解决方法--------------------------------------------------------
你把WebException改为Exception看看。。。
------解决方法--------------------------------------------------------
改成Catch ex As Exception
我测试能够正常捕获异常,你把你没贴出来的其它代码注释掉看看,我估计跟你其它的代码有关系。
------解决方法--------------------------------------------------------
Try
‘代码....
Catch ex As Exception
MsgBox(ex.ToString)
Exit Sub '加这句
End Try