Private Declare Function inet_addr Lib "wsock32.dll" (ByVal addr As String) As Long Private Declare Function inet_ntoa Lib "wsock32.dll" (ByVal addr As Long) As Long Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As Long) As Long 'Transforme une IP en long Dim i As Long i = inet_addr("127.0.0.1") Debug.Print i 'Transforme un long en IP Dim p As String * 32 lstrcpy p, inet_ntoa(i) Debug.Print p
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.