USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic.Net    (Redes/Comunicações)

Título da Dica:  Pegue o nome do computador e seu IP
Postada em 26/1/2004 por Ozzys            
Um dos muitos namespaces no Base Class Framework é o System.Net. Ele fornece uma interface simples para vários protocolos encontrados hoje em dia. Uma das classes deste namespace é a DNS, que provê a funcionalidade de resolução de nomes de domínio.

O exemplo abaixo demonstra o uso do System.NET.DNS namespace para apanhar o nome do computador e seu endereço IP:

Option Strict Off
Imports system
Imports System.Net.DNS
  Public Class GetIP

    Shared Function GetIPAddress() As String
      Dim oAddr As  System.Net.IPAddress
      Dim sAddr As String
      With system.Net.DNS.GetHostByName(system.Net.DNS.GetHostName())
         oAddr = New System.Net.IPAddress(.AddressList(0).Address)
         sAddr = oAddr.ToString
      End With
      GetIPAddress = sAddr
    End Function

    Shared Sub main()
      Dim shostname As String
      shostname = system.Net.DNS.GetHostName
      console.writeline("Your Machine Name = " & shostname)
      'Call Get IPAddress
      console.writeline("Your IP = " & GetIPAddress)
    End Sub

End Class

Compile o arquivo como: vbc getip.vb /r:system.net.dll. Execute o getip.exe e o nome do computador e seu endereço IP será mostrado no console.
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página