[求助]HttpServer如何获取服务端口 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

启动HttpServer服务如何判断该端口是否已启动，避免报错？

2022-04-25 09:44:45.2756

在前缀“http://*:8809/”上侦听失败，因为它与计算机上的现有注册冲突。

在 System.Net.HttpListener.AddPrefix(String uriPrefix)

在 System.Net.HttpListenerPrefixCollection.Add(String uriPrefix)

在 UserCode.AIoKhem6dKAJF6BtN(ControlEventArgs e)

如何批量判断指定的几个端口？

这个代码怎么优化一下

Dim t As String = "TCP" '协议

Dim port0 As Boolean = False

Dim port1 As Boolean = False

Dim port2 As Boolean = False

Dim port3 As Boolean = False

Dim properties As System.Net.NetworkInformation.IPGlobalProperties = System.Net.NetworkInformation.IPGlobalProperties.GetIPGlobalProperties()

Dim ipendpoints() As System.Net.IPEndPoint

If t = "TCP" Then

ipendpoints = properties.GetActiveTcpListeners()

Else

ipendpoints = properties.GetActiveUdpListeners()

End If

For Each ipendpoint As System.Net.IPEndPoint In ipendpoints

If ipendpoint.Port = 8880 Then

port0 = True

Output.Show( "8880端口使用中")

ElseIf ipendpoint.Port = 8881 Then

port1 = True

Output.Show( "8881端口使用中")

ElseIf ipendpoint.Port = 8882 Then

port2 = True

Output.Show( "8882端口使用中")

ElseIf ipendpoint.Port = 8883 Then

port3 = True

Output.Show( "8883端口使用中")

End If

ipendpoints = Nothing

properties = Nothing

If port0 = False Then

Output.Show( "8880端口启动成功")

HttpServer.Prefixes.Add("http://*:8880/")

HttpServer.Start()

PopMessage("8880端口启动成功,感谢您的使用!","温馨提示",,5)

ElseIf port1 = False Then

Output.Show( "8881端口启动成功")

HttpServer.Prefixes.Add("http://*:8881/")

HttpServer.Start()

PopMessage("8881端口启动成功,感谢您的使用!","温馨提示",,5)

ElseIf port2 = False Then

Output.Show( "8882端口启动成功")

HttpServer.Prefixes.Add("http://*:8882/")

HttpServer.Start()

PopMessage("8882端口启动成功,感谢您的使用!","温馨提示",,5)

ElseIf port3 = False Then

Output.Show( "8883端口启动成功")

HttpServer.Prefixes.Add("http://*:8883/")

HttpServer.Start()

PopMessage("8883端口启动成功,感谢您的使用!","温馨提示",,5)

End If

Dim t As String = "TCP" '协议

dim lst as new list(of integer)

lst.addrangd({8880,8881,8882,8883})

Dim properties As System.Net.NetworkInformation.IPGlobalProperties = System.Net.NetworkInformation.IPGlobalProperties.GetIPGlobalProperties()

Dim ipendpoints() As System.Net.IPEndPoint

If t = "TCP" Then

ipendpoints = properties.GetActiveTcpListeners()

Else

ipendpoints = properties.GetActiveUdpListeners()

End If

For Each ipendpoint As System.Net.IPEndPoint In ipendpoints

lst.remove(ipendpoint.Port)

Output.Show(ipendpoint.Port & "端口使用中")

if lst.count> 0 then

HttpServer.Prefixes.Add("http://*:" & lst(0) & "/")

HttpServer.Start()

end if

lst.addrangd({8880,8881,8882,8883})

显示异常

此主题相关图片如下：qq截图20220425123246.png

主题：[求助]HttpServer如何获取服务端口