Public Shared Function IPToLong(ByVal ipAddress As String) As Long Try Dim ip As System.Net.IPAddress = Net.IPAddress.Parse(ipAddress) Return (CLng(ip.GetAddressBytes(0)) << 24) Or (CInt(ip.GetAddressBytes(1)) << 16) Or (CInt(ip.GetAddressBytes(2)) << 8) Or ip.GetAddressBytes(3) Catch ex As Exception Return 0 End Try End Function Public Shared Function LongToIP(ByVal ipAddress As Long) As String Try Dim tmpIP As New Net.IPAddress(ipAddress) Dim bytes() As Byte = tmpIP.GetAddressBytes() Array.Reverse(bytes) Dim addr As Long = CLng(BitConverter.ToUInt32(bytes, 0)) Return New Net.IPAddress(addr).ToString() Catch ex As Exception Return ex.Message End Try End Function 'Exemple d'utilisation Dim IPFromLong As Long = IPToLong("127.0.0.1") ' Retournera 2130706433 Dim IPFromString As String = LongToIP(2130706433) ' Retournera "127.0.0.1"
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.