如何在vb.net中打开端口和关闭端口 [英] how to open port and close port in vb.net

问题描述

如何在vb.net中查找开放端口列表和关闭开放端口。

来阻止开放端口攻击。

解决方案

从这里你得到所有开放端口： -

 对于 port  As  整数 =  1    maxPorts 
  Dim  host  As   String  =   192.168.1.25 
  Dim  hostadd  As  Net.IPAddress = Net.Dns.GetHostEntry（host）.AddressList（ 0 ）
  Dim  EPhost  As  新 Net.IPEndPoint（hostadd，port） 
  Dim  s  As  新 Net.Sockets.Socket（Net.Sockets.AddressFamily.InterNetwork，Net.Sockets.SocketType.Stream，Net.Sockets.ProtocolType.Tcp）
 
 尝试 
 s.Connect（EPhost）
  Catch  
 结束 尝试 
 如果 s.Connected 然后 
 ' 端口已打开 
 其他 
 ' 端口关闭 
 结束 如果 
 < span class =code-keyword>下一页 

如需更多参考，请参阅： - VB端口扫描仪 [ ^ ]

< blockquote>

 对于 port 作为 整数 =  1    maxPorts 
  Dim  host  As   String  =    192.168.1.25 
  Dim  hostadd  As  Net.IPAddress = Net.Dns.GetHostEntry（host）.AddressList（ 0 ）
  Dim  EPhost  As  新 Net.IPEndPoint（hostadd，port）
  Dim  s  As  新 Net.Sockets.Socket（Net.Sockets.AddressFamily.InterNetwork，Net.Sockets.SocketType.Stream，Net.Sockets.ProtocolType.Tcp）
 
 尝试 
 s.Connect（EPhost）
  Catch  
 < span class =code-keyword>结束 尝试 
 如果 s。已连接然后 
 ' 端口已打开 
 其他 
 ' 端口已关闭 
 结束 如果 
 下一步 

如何关闭开放端口。

how to find list of open port and close open port in vb.net.
to stop open port attack.

解决方案

From this you get all open ports:-

For port As Integer = 1 to maxPorts
    Dim host As String = "192.168.1.25"
    Dim hostadd As Net.IPAddress = Net.Dns.GetHostEntry(host).AddressList(0)
    Dim EPhost As New Net.IPEndPoint(hostadd, port)
    Dim s As New Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp)

    Try
        s.Connect(EPhost)
    Catch
    End Try
    If s.Connected Then
        'Port opened
    Else
        'Port closed
    End If
Next

For more reference refer this:-VB Port Scanner[^]

For port As Integer = 1 to maxPorts
    Dim host As String = "192.168.1.25"
    Dim hostadd As Net.IPAddress = Net.Dns.GetHostEntry(host).AddressList(0)
    Dim EPhost As New Net.IPEndPoint(hostadd, port)
    Dim s As New Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp)

    Try
        s.Connect(EPhost)
    Catch
    End Try
    If s.Connected Then
        'Port opened
    Else
        'Port closed
    End If
Next

how to close open port.

这篇关于如何在vb.net中打开端口和关闭端口的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！