PROCEDURE SmartPing(_AdresseIP,_Port=80 )
//Simulation d'un Ping sous Windows Mobile.
//On en profite pour proposer un port spécifique.
//Ouverture d'une socket sur le port spécifié.

SI _AdresseIP<>"" ALORS RENVOYER "Pas d'adresse IP"

//Test de connexion
SI PAS SocketConnecte("Ping",_Port,_AdresseIP) ALORS
     RENVOYER ErreurInfo()
FIN

//Fermeture de la socket si elle a réussit.
SocketFerme("Ping")

RENVOYER "OK"