|
|
|
|
|
|
|
|
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.
|
|
|
|
|
