[Fantastico]

PHP كود :

       Public Function GetMyIP() As List(Of IPAddress)

            Dim lst As New List(Of IPAddress)(4)
            Dim IPs As IPAddress() = Dns.GetHostEntry(Dns.GetHostName).AddressList

            For Each ip As IPAddress In IPs
                If IsIPv4(ip.ToString) Then lst.Add(ip)
            Next

            Return lst
        End Function


        Public Function IsIPv4(ByVal IP As String) As Boolean

            If IP.Length > 15 Then Return False
            If IP.Contains(":") Then Return False

            Dim s() As String = IP.Split(".")
            If Not UBound(s) = 3 Then Return False
            For i = 0 To UBound(s)
                If s(i).Length > 3 Or s(i).Length = 0 Then Return False
                For j = 0 To s(i).Length - 1
                    If Not s(i).Chars(j) Like "#" Then Return False
                Next
            Next

            Return True
        End Function 


---

تحتاج إلى إستيراد مكتبة System.Net أولا