[windev] //On teste le modem sEcrit(NumPort, "AT" + Caract(1) //On laisse au moden le temps de répondre Temporisation(500) nNbreOctet = sDansFileEntrée(NumPort) sMess = sLit(NumPort, nNbreOctet) //Si la réponse (qui est en fonction du modem) est différente Entrée_OK_Entrée... SI Contient(Majuscule(sMess), "AT"+Caract(1+ "OK") = Vrai ALORS Info("Communication avec le terminal impossible !" + RC + " Réseau mauvais ou revérifiez les branchements du modem et sa configuration !") sFerme(NumPort) SINON SI Taille(SAI_Tel) = 0 ALORS Info("Numéro de Téléphone érronné ! Vérifier le SVP !") sFerme(NumPort) SINON Temporisation(100) //Pour les commandes AT chercher la syntaxe sur le net sEcrit ( NumPort , "AT" ) sEcrit ( NumPort , "AT+CMGF=1"+ Caract(1 ) //"AT+CMGF=? sEcrit ( NumPort , "AT+CSCA=""+243996100416"""+ Caract(1 ) //"AT+CMGF=? sEcrit ( NumPort , "AT+CMGS="+ SAI_Tel + Caract(10)+Caract(1 ) //"AT+CMGF=? Temporisation(100) nNbreOctet = sDansFileEntrée(NumPort) sMess = sLit(NumPort, nNbreOctet) SI Majuscule(sMess) <> Caract(1 + Caract(10) + "OK" ALORS Erreur(Majuscule(sMess) +"<>" +Caract(1 + Caract(10) + "> ") Info("Mauvaise initialisation du Modem !") sFerme(NumPort) SINON Temporisation(100) sEcrit(NumPort, ChaîneVersUTF8(SAI_message+ Caract(26))) Info("Message envoyer avec succès !") FIN FIN FIN //On ferme le port sFerme(NumPort) SINON Erreur("Erreur d'ouverture du COM"+NumPort+" :"+ ErreurInfo(errComplet)) FIN [/windev]