Procedure Pinging(nIcmp est un entier, sAdrip est une chaîne, ntimeout est un entier)

ICMP_ECHO est composé de
ipadr est un entier
status est un entier
RoundTripTime est un entier
DataSize est un entier sur 2 octets
Reserved est un entier sur 2 octets
Data est un entier
ttl est une chaîne sur 2
tos est une chaîne sur 2
flag est une chaîne sur 16
opsize est une chaîne sur 2
opdata est un entier
datat est une chaîne sur 250
FIN

ipad est un entier = AppelDLL32("ws2_32","inet_addr",sAdrip)
cretour est un entier

SI AppelDLL32("icmp.dll","IcmpSendEcho",nIcmp, ipad ,"Test Ping Echo", 32 , Null, &ICMP_ECHO , Dimension(ICMP_ECHO)+8, ntimeout )<>0 ALORS
cretour = ICMP_ECHO.RoundTripTime
SINON
cretour = -1
FIN

RENVOYER cretour

Procedure EcritSocket(nomSocket, messageAEnvoyer)

icmp est un entier = AppelDLL32("icmp.dll","IcmpCreateFile")
adresseip est une chaîne = INILit("Connexion", "AdresseIP", "", cheminFichierIni)

nDelaims est un entier = Pinging (icmp,adresseip,1000)

sMessage est une chaîne = Taille(SansEspace(messageAEnvoyer)+"#")+RC+SansEspace(messageAEnvoyer)+"#"

SI nDelaims<>-1 ALORS
Info("Ordinateur trouvé ! Ping de "+nDelaims+" ms")
SI EnModeTest() ALORS
//Si je suis en mode test (via l'ordinateur) j'envoie le message normalement avec SocketEcrit
SI SocketEcrit(nomSocket, sMessage) ALORS
Multitâche(100)
SINON
gsMsgErreurPopUp = "Erreur écriture socket"
Ouvre(Popup_Erreur)
RENVOYER 0
FIN
SINON
//Si je suis en mode pocket PC j'envoie le message avec SocketEcrit mais je fais un UnicodeVersAnsi pour que le serveur comprenne ce que j'envoie
SISocketEcrit(csNomSocket, UnicodeVersAnsi(sMessage)) ALORS
Multitâche(100)
SINON
gsMsgErreurPopUp = "Erreur écriture socket"
Ouvre(Popup_Erreur)
RENVOYER 0
FIN
FIN
SINON
gsMsgErreurPopUp = "Problème connexion internet"
Ouvre(Popup_Erreur)
FIN