以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  捕获错误无效  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174746)

--  作者:BG小白
--  发布时间:2022/1/29 6:42:00
--  捕获错误无效
Dim dk As String = "http://*:" & e.Form.Controls("TextBox1").Value & "/"

Try
    HttpServer.Prefixes.Add(dk)
    HttpServer.WebPath = "d:\\web"  \'指定静态文件存储位置
    HttpServer.Start()
Catch ex As Exception
   MessageBox.Show("端口已被占用,请更换端口")
End Try
MessageBox.Show("网络服务已打开")

这样即使端口被占用了,也不提示,还是系统原本提示错误,这是什么原因?

--  作者:BG小白
--  发布时间:2022/1/29 6:49:00
--  
上面的代码是放在窗口的按钮click里面的
--  作者:有点蓝
--  发布时间:2022/1/29 9:05:00
--  
捕捉不了。内部处理掉异常了,没有抛出来