Con esta función API podemos determinar si un PC o servidor esta ON LINE.
Declare Integer GetRTTAndHopCountIn Iphlpapi;
INTEGER DestIpAddress, Long @HopCount,;
INTEGER MaxHops, Long
@RTT
Declare Integer inet_addr In ws2_32 String cp
Local nDst, nHop, nRTT
Store 0 To nHop, nRTT
nDst = inet_addr("192.168.0.5")
If GetRTTAndHopCount(nDst, @nHop, 50, @nRTT) <> 0
? "# de intentos de contactar el destino:", nHop
? "Tiempo de respuesta, en millisegundos:", nRTT
Else
? "Error
Destino no se encuentra"
EndIf
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com