none
Portas Tcp RRS feed

  • Pergunta

  • Oi galera ? Quero saber como posso testar uma porta tcp e verificar se esta aberta ou fechada em vb.net obrigado a todos  
    sexta-feira, 5 de junho de 2015 17:19

Respostas

  • boa tarde,  tente isso

    '' '<Summary> '' 'Verifica se uma porta TCP é aberto em um dispositivo especificado '' '</ Summary> '' '<Param name = "Host"> O nome ou endereço IP do dispositivo para verificar se a porta aberta no </ param> '' '<Param name = "PortNumber"> A porta TCP para testar </ param> Private Function IsPortOpen(ByVal Host As String, ByVal PortNumber As Integer) As Boolean Dim Client As TcpClient = Nothing Try Client = New TcpClient(Host, PortNumber) Return True Catch ex As SocketException Return False Finally If Not Client Is Nothing Then Client.Close() End If End Try End Function Para usá-la você teria apenas que fazer algo como isto: ''Este exemplo verifica se a porta 25 está aberta

    Dim Port As Integer = 25 Dim Hostname As String = "Host_Or_IP_Here"

    ''Chamar a função Dim PortOpen As Boolean = IsPortOpen(Hostname, Port) ''Mostra o resultado MessageBox.Show(Porta Aberta)




    • Editado fatasy sexta-feira, 5 de junho de 2015 17:38
    • Marcado como Resposta João Paulo [] sexta-feira, 5 de junho de 2015 18:23
    sexta-feira, 5 de junho de 2015 17:33

Todas as Respostas

  • boa tarde,  tente isso

    '' '<Summary> '' 'Verifica se uma porta TCP é aberto em um dispositivo especificado '' '</ Summary> '' '<Param name = "Host"> O nome ou endereço IP do dispositivo para verificar se a porta aberta no </ param> '' '<Param name = "PortNumber"> A porta TCP para testar </ param> Private Function IsPortOpen(ByVal Host As String, ByVal PortNumber As Integer) As Boolean Dim Client As TcpClient = Nothing Try Client = New TcpClient(Host, PortNumber) Return True Catch ex As SocketException Return False Finally If Not Client Is Nothing Then Client.Close() End If End Try End Function Para usá-la você teria apenas que fazer algo como isto: ''Este exemplo verifica se a porta 25 está aberta

    Dim Port As Integer = 25 Dim Hostname As String = "Host_Or_IP_Here"

    ''Chamar a função Dim PortOpen As Boolean = IsPortOpen(Hostname, Port) ''Mostra o resultado MessageBox.Show(Porta Aberta)




    • Editado fatasy sexta-feira, 5 de junho de 2015 17:38
    • Marcado como Resposta João Paulo [] sexta-feira, 5 de junho de 2015 18:23
    sexta-feira, 5 de junho de 2015 17:33
  • isso mesmo muito obrigado colei um if else fico 10 vlw like pra tu 
    sexta-feira, 5 de junho de 2015 18:23