Dim iphost As String Dim iphe As IPHostEntry Dim adres() As IPAddress Dim i% iphost = Dns.GetHostName() iphe = Dns.GetHostByName(iphost) adres = iphe.AddressList MsgBox("IP Adres:" & adres(i).ToString)
Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir.