Obtendo o nome do computador o endereço IP.

Eu já disse que o VB.NET possui um arsenal de classes e métodos que facilitam muito a vida do desenvolvedor. Nesta dica vou usar as Classes IPAddres e DNS do namespace System.Net para obter o nome do host e o seu endereço IP. Lembra como fazíamos isto em versões do VB ??? 

1 - Inicie um novo projeto no Visual Studio.NET com as seguintes características (sinta-se a vontade para alterar a seu gosto.)

  1. Project Types : Visual Basic Projects
  2. Templates : Windows Application
  3. Name : ObtemIP
  4. Location : c:\vbnet\ObtemIP

2- No formulário padrão insira duas caixas de texto : TextBox1 e textBox2 , duas Labels e um botão de comando.

3- Vamos definir a classe ObtemIP cuja função ObtemEnderecoIP irá retornar o endereço IP do computador. Veja código abaixo.

Public Class ObtemIP

 

Shared Function ObtemEnderecoIP() As String

   Dim oEndereco As System.Net.IPAddress

     Dim sEndereco As String

 

   With GetHostByName(GetHostName)

      oEndereco = New System.Net.IPAddress(.AddressList(0).Address)

      sEndereco = oEndereco.ToString

    End With

   ObtemEnderecoIP = sEndereco

End Function

 

End Class

4- Agora no evento Click do botão de comando vamos atribuir a cada caixa de texto o nome do  host e o seu endereço IP.

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

 

   TextBox1.Text = GetHostName()

   TextBox2.Text = ObtemIP.ObtemEnderecoIP

 

End Sub

5- Executando o projeto teremos : (como eu estou testando o projeto na minha máquina local os valores serão os exibidos abaixo)

Até a próxima dica VB.NET..


Veja os Destaques e novidades do SUPER DVD VB (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Veja mais sistemas completos para a plataforma .NET no Super DVD .NET , confira...

Quer aprender C# ??

Chegou o Super DVD C# com exclusivo material de suporte e vídeo aulas com curso básico sobre C#
 

   Gostou ?   Compartilhe no Facebook    Compartilhe no Twitter

Referências:

José Carlos Macoratti