none
Tcp RRS feed

  • Pergunta

  • oi amigos tudo bem com vcs ? eu so novato e tenho uma duvida eu gosto muito de programa em vb.net estol aprendendo cada dia mais eu tenho uma duvida como ja falei a minha duvida e como posso ver todos os conexões TCP do meu computador (ex) Skype porta 80 e assim por diante so que em vb.net podem me ajudar ?? muito obrigado a todos  
    sábado, 7 de março de 2015 23:18

Respostas

  • Nesse caso, analisando aqui, podes usar o comando que usamos em "CMD", "NETSTAT" pelo VB com este código:

    Insira um button para exibir:


    Imports System.Net
    Imports System.Net.NetworkInformation
    Public Class Form1

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

            Dim ipProps As System.Net.NetworkInformation.IPGlobalProperties = System.Net.NetworkInformation.IPGlobalProperties.GetIPGlobalProperties()
            For Each connection As System.Net.NetworkInformation.TcpConnectionInformation In ipProps.GetActiveTcpConnections

                Dim builder As New System.Text.StringBuilder
                builder.AppendFormat("{0} -> {1} - {2}{3}", connection.LocalEndPoint, connection.RemoteEndPoint, connection.State, Environment.NewLine)

                ListBox1.Items.Add(builder.ToString())

            Next
        End Sub

    End Class

    Ilustração: ( No meu não tem nada, praticamente a mostrar! Rsrs... mas verá no seu!)

    Depois instalei o Skype e veja que mostra:

    Dê uma olhada neste robusto Código, creio que vai te ajudar e muito!

    http://vbnet.mvps.org/index.html?code/network/gettcpconnectiontable.htm


    MS INFORMATICA





    domingo, 8 de março de 2015 20:57

Todas as Respostas

  • O que precisa esta aqui nesse LINK e para converter de C# para VB.NET tem esse LINK AQUI, é só dar uma estudada nesse código da Thread que conseguira.

    A vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel

    domingo, 8 de março de 2015 01:20
  • Olá!

    Veja se este código pode servir:

    EM VB:

    Imports System.Net.NetworkInformation

    Private Sub btnInfo_Click(sender As Object, e As EventArgs) Handles btnInfo.Click
           ' Somente continua se existir uma rede disponível
     If NetworkInterface.GetIsNetworkAvailable Then
               ' Obtém e define todos os objetos NetworkInterface para a máquina local
     Dim interfaces As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()
               ' Itera sobre as interfaces e exibe as informações
     For Each ni As NetworkInterface In interfaces
              ' Rela a informação da interface
     lbInfo.Items.Add("Interface: " &  ni.Name)
                    lbInfo.Items.Add(" Descrição: " &  ni.Description)
                    lbInfo.Items.Add(" ID: " &  ni.Id)
                    lbInfo.Items.Add(" Tipo: " &  ni.NetworkInterfaceType)
                    lbInfo.Items.Add(" Velocidade: " &  ni.Speed)
                    lbInfo.Items.Add(" Status: " &  ni.OperationalStatus)
                   ' endereço físico
     lbInfo.Items.Add(" Endereço Físico: " &  ni.GetPhysicalAddress().ToString)
                   ' relata estatísticas de rede para a interface
     lbInfo.Items.Add(" Bytes Enviados : " &  ni.GetIPv4Statistics().BytesSent)
                    lbInfo.Items.Add(" Bytes Recebidos: " &  ni.GetIPv4Statistics.BytesReceived)
                   ' Configuração do IP
     lbInfo.Items.Add(" Endereço(s) IP : ")
                    For Each addr As UnicastIPAddressInformation In ni.GetIPProperties.UnicastAddresses()
                        lbInfo.Items.Add(" - > " &  addr.Address.ToString & " - " & DateTime.Now.AddSeconds(addr.DhcpLeaseLifetime))
                    Next
                    lbInfo.Items.Add(Environment.NewLine)
                Next
            Else
                lbInfo.Items.Add("Nenhuma interface de rede localizada.")
            End If
            lbInfo.Items.Add(Environment.NewLine)
            lbInfo.Items.Add("Operação concluída.")
        End Sub

    Outra forma:

    Imports System.Net.NetworkInformation

    Private Sub btnInfo_Click(sender As Object, e As EventArgs) Handles btnInfo.Click
            ' Somente continua se existir uma rede disponível
            If NetworkInterface.GetIsNetworkAvailable Then
                ' Obtém e define todos os objetos NetworkInterface para a máquina local
                Dim interfaces As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()
                ' Itera sobre as interfaces e exibe as informações
                For Each ni As NetworkInterface In interfaces
                    ' Rela a informação da interface
                    lbInfo.Items.Add("Interface: " &  ni.Name)
                    lbInfo.Items.Add(" Descrição: " &  ni.Description)
                    lbInfo.Items.Add(" ID: " &  ni.Id)
                    lbInfo.Items.Add(" Tipo: " &  ni.NetworkInterfaceType)
                    lbInfo.Items.Add(" Velocidade: " &  ni.Speed)
                    lbInfo.Items.Add(" Status: " &  ni.OperationalStatus)
                    ' endereço físico
                    lbInfo.Items.Add(" Endereço Físico: " &  ni.GetPhysicalAddress().ToString)
                    ' relata estatísticas de rede para a interface
                    lbInfo.Items.Add(" Bytes Enviados : " &  ni.GetIPv4Statistics().BytesSent)
                    lbInfo.Items.Add(" Bytes Recebidos: " &  ni.GetIPv4Statistics.BytesReceived)
                    ' Configuração do IP
                    lbInfo.Items.Add(" Endereço(s) IP : ")
                    For Each addr As UnicastIPAddressInformation In ni.GetIPProperties.UnicastAddresses()
                        lbInfo.Items.Add(" - > " &  addr.Address.ToString & " - " & DateTime.Now.AddSeconds(addr.DhcpLeaseLifetime))
                    Next
                    lbInfo.Items.Add(Environment.NewLine)
                Next
            Else
                lbInfo.Items.Add("Nenhuma interface de rede localizada.")
            End If
            lbInfo.Items.Add(Environment.NewLine)
            lbInfo.Items.Add("Operação concluída.")
        End Sub

    E, se trabalhas em "C#" então deixou um bom conversor Online: http://converter.telerik.com/

    Fonte: Macoratti


    MS INFORMATICA

    domingo, 8 de março de 2015 01:20
  • oi amigo gostei muito do seu codigo muito obrigado por me ajudar mais infelizmente este codigo possui erros tem como me ajudar ?
    domingo, 8 de março de 2015 02:21
  • sim amigo muito obrigado vou tentar fazer para vb.net pois seu conversor nao pego deu erro ao converter o codigo 
    domingo, 8 de março de 2015 02:26
  • Onde foram os erros, amigo?

    Vou te ajudar, postando  em C# "funfando" perfeitamente.


    MS INFORMATICA


    domingo, 8 de março de 2015 04:13
  • Fala, GVGVGV!
    Corrigi os erros no Código!
    Segue o exemplo:

    A Referência "Namespace:  System.Net.NetworkInformation" já está no código!

    Adicione  no Form:

    1 listbox com nome "ListBox1"

    1 Button com nome "button1"

    DICA:
    Você pode também, ao invés de um "button" colocar um "Timer" com o tempo desejado, a vantagem do timer é que ele dará a você as informações atualizadas a cada tempo programado por você.

    Vamos ao Código em "C#"

    using System;
    using System.Collections.Generic;
    using System.ComponentModel;
    using System.Data;
    using System.Drawing;
    using System.Linq;
    using System.Text;
    using System.Threading.Tasks;
    using System.Windows.Forms;
    using System.Net.NetworkInformation;

    namespace RedesInfor
    {
        public partial class Form1 : Form
        {
            public Form1()
            {
                InitializeComponent();
            }

            private void button1_Click(object sender, EventArgs e)
            {
                if (NetworkInterface.GetIsNetworkAvailable())
            {
                // Obtém e define todos os objetos NetworkInterface para a máquina local
                NetworkInterface[] interfaces = NetworkInterface.GetAllNetworkInterfaces();
                // Itera sobre as interfaces e exibe as informações
                foreach (NetworkInterface ni in interfaces)
                {
                    // Rela a informação da interface
                    ListBox1.Items.Add("Interface: " + ni.Name);
                    ListBox1.Items.Add(" Descrição: " + ni.Description);
                    ListBox1.Items.Add(" ID: " + ni.Id);
                    ListBox1.Items.Add(" Tipo: " + ni.NetworkInterfaceType);
                    ListBox1.Items.Add(" Velocidade: " + ni.Speed);
                    ListBox1.Items.Add(" Status: " + ni.OperationalStatus);
                    // endereço físico
                    //ListBox1.Items.Add(" Endereço Físico: " + ni.GetPhysicalAddress().ToString);
                    // relata estatísticas de rede para a interface
                    ListBox1.Items.Add(" Bytes Enviados : " + ni.GetIPv4Statistics().BytesSent);
                    ListBox1.Items.Add(" Bytes Recebidos: " + ni.GetIPv4Statistics().BytesReceived);
                    // Configuração do IP
                    ListBox1.Items.Add(" Endereço(s) IP : ");
                    foreach (UnicastIPAddressInformation addr in ni.GetIPProperties().UnicastAddresses)
                    {
                        ListBox1.Items.Add( DateTime.Now.AddSeconds(addr.DhcpLeaseLifetime));
                    }
                    ListBox1.Items.Add(Environment.NewLine);
                }
            }
            else
            {
                ListBox1.Items.Add("Nenhuma interface de rede localizada.");
            }
            ListBox1.Items.Add(Environment.NewLine);
            ListBox1.Items.Add("Operação concluída.");
        }
    }

            }
       

    Testei e deu certo!

    Espero ter ajudado. Abraço!


    MS INFORMATICA




    domingo, 8 de março de 2015 06:49
  • O que precisa esta aqui nesse LINK e para converter de C# para VB.NET tem esse LINK AQUI, é só dar uma estudada nesse código da Thread que conseguira.

    A vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel


    Amigo,  Mr. GMSOF.

    Foi justamente por este site que está sendo melhor de converter. O outro mais conhecido por nós, programadores,  ultimamente está muito ruim mesmo de converter. Passam-se minutos e minutos e não converte!
    Falo deste: (o ruim!, rsrs...)
    http://www.developerfusion.com/tools/convert/csharp-to-vb/

    Eu então analisei os erros entre as plataformas.

    Abraço e sucesso a todos!


    MS INFORMATICA



    domingo, 8 de março de 2015 06:55
  • Realmente eu usava muito o developerfusion mais do nada uma simples conversão fica uma eternidade.

    A vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel

    domingo, 8 de março de 2015 15:00
  • vc nao entendeu amigo o que eu quero eu quero que apareça as conexoes do meu computador tipo Skype porta 80

    vc esta a mostra um codigo que mostra as redes wi-fi e em C# eu queria um esenplo em VB.net

     
    domingo, 8 de março de 2015 19:31
  • vc nao entendeu amigo o que eu quero eu quero que apareça as conexoes do meu computador tipo Skype porta 80

    vc esta a mostra um codigo que mostra as redes wi-fi e em C# eu queria um esenplo em VB.net

     

    Filhão! Te mostrei em VB e C#, apenas o Listbox estava como nome "lbInfo"
    Desculpe, pensei que tivesse servido, rsrs...  Este em C# é só converter pelo link que te enviei, eu uso ele aqui em VB e tenho em C# (este acima)
    Vamos continuar nossa busca, então!

    Você não teria que ter as APIs dos programas para enxergar suas portas?

    Abraço


    MS INFORMATICA




    domingo, 8 de março de 2015 20:17
  • Nesse caso, analisando aqui, podes usar o comando que usamos em "CMD", "NETSTAT" pelo VB com este código:

    Insira um button para exibir:


    Imports System.Net
    Imports System.Net.NetworkInformation
    Public Class Form1

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

            Dim ipProps As System.Net.NetworkInformation.IPGlobalProperties = System.Net.NetworkInformation.IPGlobalProperties.GetIPGlobalProperties()
            For Each connection As System.Net.NetworkInformation.TcpConnectionInformation In ipProps.GetActiveTcpConnections

                Dim builder As New System.Text.StringBuilder
                builder.AppendFormat("{0} -> {1} - {2}{3}", connection.LocalEndPoint, connection.RemoteEndPoint, connection.State, Environment.NewLine)

                ListBox1.Items.Add(builder.ToString())

            Next
        End Sub

    End Class

    Ilustração: ( No meu não tem nada, praticamente a mostrar! Rsrs... mas verá no seu!)

    Depois instalei o Skype e veja que mostra:

    Dê uma olhada neste robusto Código, creio que vai te ajudar e muito!

    http://vbnet.mvps.org/index.html?code/network/gettcpconnectiontable.htm


    MS INFORMATICA





    domingo, 8 de março de 2015 20:57
  • aeeeeeeeee manooooooo adorei seu codigo isso mesmo que queria os amigos a sima não entenderão bem o que eu queria mais muito obrigado a todos vcs que me ajudarao mais o codigo que queria e o do Márcio Silva Lima muito obrigado 
    domingo, 8 de março de 2015 23:38