VB.Net/Network Remote/IP Address

Материал из VB Эксперт
Версия от 12:45, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Get your IP address

  
Public Class MainClass
    Public Shared Sub Main()
        Dim objEntry As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName)
        Dim strIP As String = CType(objEntry.AddressList.GetValue(0), System.Net.IPAddress).ToString
        System.Console.WriteLine(strIP)
    End Sub
End Class