以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何判断端口被占用？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175194)
--  作者：BG小白
--  发布时间：2022/2/23 15:55:00
--  如何判断端口被占用？
比如想在开启前判断8080端口是否被占用
[此贴子已经被作者于2022/2/23 16:25:41编辑过]
--  作者：BG小白
--  发布时间：2022/2/23 15:57:00
--  
。。
[此贴子已经被作者于2022/2/23 16:25:54编辑过]
--  作者：有点蓝
--  发布时间：2022/2/23 16:53:00
--  
需要添加引用：system.dll

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
--  作者：tld
--  发布时间：2023/5/6 14:31:00
--  
。。
[此贴子已经被作者于2023/5/6 14:31:05编辑过]