Private Declare Function GetRTTAndHopCount Lib "iphlpapi.dll" _
        (ByVal lDestIPAddr As Long, _
         ByRef lHopCount As Long, _
         ByVal lMaxHops As Long, _
         ByRef lRTT As Long) As Long
 
Private Declare Function inet_addr Lib "wsock32.dll" _
        (ByVal cp As String) As Long
 
Public Function PingMe(IPadresse) As Boolean
Dim lIPadr      As Long
Dim lHopsCount  As Long
Dim lRTT        As Long
Dim lMaxHops    As Long
Dim lResult     As Long
Const SUCCESS = 1
lMaxHops = 20
lIPadr = inet_addr(IPadresse)
PingMe = (GetRTTAndHopCount(lIPadr, lHopsCount, lMaxHops, lRTT) = SUCCESS)
End Function
 
If PingMe(ip_addr(x)) = True Then
Msgbox "Online"
Else
Msgbox "Offline"
End If

-------
--] Who do you want to hack today? [--