IP ATRAVES DO HOSTNAME
Pessoal, estou fazendo um projeto e estou com dificuldades para conseguir pegar o Ip de uma maquina na rede utilizando o hostname.
Minha ideia é um textbox para digitar o hostname, um botão para executar e uma label para mostrar o IP, alguem tem ideia de como posso fazer? Estou utilizando o VB¨6.
Minha ideia é um textbox para digitar o hostname, um botão para executar e uma label para mostrar o IP, alguem tem ideia de como posso fazer? Estou utilizando o VB¨6.
ping -a xxx.xxx.xxx.xxx
onde xxx é o ip...
rode isso no prompt do dos
onde xxx é o ip...
rode isso no prompt do dos
Ops...VB.NET...
Imports System.Net.Dns
Imports System.Net.IPAddress
Imports System.Net.NetworkInformation
[ô]DESCOBRE IP REMOTO
Private Function GetIPv4Address(strEstacao As String) As String
GetIPv4Address = String.Empty
Dim iphe As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(strEstacao)
For Each ipheal As System.Net.IPAddress In iphe.AddressList
If ipheal.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then
msgbox (ipheal.ToString())
[ô]lblIp.Text = ipheal.ToString()
End If
Next
End Function
Imports System.Net.Dns
Imports System.Net.IPAddress
Imports System.Net.NetworkInformation
[ô]DESCOBRE IP REMOTO
Private Function GetIPv4Address(strEstacao As String) As String
GetIPv4Address = String.Empty
Dim iphe As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(strEstacao)
For Each ipheal As System.Net.IPAddress In iphe.AddressList
If ipheal.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then
msgbox (ipheal.ToString())
[ô]lblIp.Text = ipheal.ToString()
End If
Next
End Function
manda um e-mail pra que te encaminho um exemplinho que tenho..
Meu email: rogerioatigre@gmail.com
Tópico encerrado , respostas não são mais permitidas