以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  openQQ错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186479)
--  作者：tld
--  发布时间：2023/5/6 11:29:00
--  openQQ错误
老师好。openQQ出现错误，您给指点一下是哪里产生的？谢谢

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.5.29.8
错误所在事件：启动IMServer
详细错误信息：
通常每个套接字地址(协议/网络地址/端口)只允许使用一次。
--  作者：有点蓝
--  发布时间：2023/5/6 11:30:00
--  
重复启动了服务。或者使用的端口已经被其它程序用了，换一个端口
--  作者：tld
--  发布时间：2023/5/6 14:17:00
--  
蓝老师，我用您以前的代码判断52177是否占用，结果没有占用，同时我也没有重复启动服务
Dim t As String = "TCP" \'协议
Dim port As Integer = 52177 \'需要判断的端口
Dim flag 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 = port Then
        flag = True
        Exit For
    End If
Next

ipendpoints = Nothing
properties = Nothing
if flag then
msgbox( "端口使用中")
endif
--  作者：有点蓝
--  发布时间：2023/5/6 14:21:00
--  
openqq使用的是udp，不是tcp，这种方法判断不了了。

udp好像没有办法判断，最简单的判断就是换其它端口测试
--  作者：tld
--  发布时间：2023/5/6 14:32:00
--  
老师好，重新启动服务器就好了。谢谢。