C_SMS est une Classe
PUBLIQUE
m_sMessage est une chaîne
// m_sMessage est une chaine sur 160
m_sExpediteur est une chaine sur 11
m_nCodeRetour est un entier
m_sMessageRetour est une chaîne
m_sDestinataire est une chaine sur 10
m_sRequeteEnvoyee est une chaîne, Sérialise = Faux

PRIVÉE
m_sApiKey est une chaîne
m_sLogin est une chaîne


CONSTANT
// sFlux = "<DATA><MESSAGE><![CDATA[%1]]></MESSAGE><TPOA>%2</TPOA><SMS><MOBILEPHONE>%3</MOBILEPHONE></SMS></DATA>"
sFlux = [
{
"DATA": {
"MESSAGE": "%1",
"TPOA": "%2",
"SMS" : [
{
"MOBILEPHONE" : "%3"
}]
}
}

]

sParametres = "login=%1&apiKey=%2&smsData=%3"
sUrl = "https://api.allmysms.com/http/9.0/sendSms/"
FIN
FIN



// CONSTRUCTEUR
Procedure Constructeur(sApiKey est une chaîne, sLogin est une chaîne)
m_sApiKey = sApiKey
m_sLogin = sLogin


//////////////////////////////////////////////////////////////////////////////////////////////////////////////
Procedure Envoyer()
SI CheckDataFirst() ALORS
sTel est une chaîne = CheckTelFormat(m_sDestinataire)
SI VérifieExpressionRégulière(sTel, "0[6-7][0-9]{8,8}") ALORS
sRequete est une chaîne = ChaîneConstruit(sFlux,URLEncode(m_sMessage),m_sExpediteur,sTel)
sRequete = Remplace(sRequete,"&","%26")
sRequete = Remplace(sRequete,"?","%3F")
sParametrePost est une chaîne = ChaîneConstruit("login=%1&apiKey=%2&smsData=%3",m_sLogin, m_sApiKey, sRequete)
m_sRequeteEnvoyee = sParametrePost
SI httpRequête(sUrl, "", "",sParametrePost)=Vrai ALORS
m_nCodeRetour = 1
m_sMessageRetour = HTTPDonneRésultat()
//AddLogs("EnvoyerSMS","Envoi SMS",m_sMessageRetour)
RENVOYER Vrai
SINON
m_nCodeRetour = 0
m_sMessageRetour = ErreurInfo()
RENVOYER Faux
FIN

SINON
m_nCodeRetour = -1
m_sMessageRetour = "N° de téléphone incorrect "+sTel
RENVOYER Faux
FIN
SINON
m_nCodeRetour = -1
m_sMessageRetour = "Informations fournies incorrectes"
RENVOYER Faux
FIN



//////////////////////////////////////////////////////////////////////////////////////////////////////////////
Procedure PROTÉGÉE CheckDataFirst() : booléen
bRretour est un booléen = Vrai

RENVOYER bRretour


//////////////////////////////////////////////////////////////////////////////////////////////////////////////
Procedure CheckTelFormat(LOCAL sTel) : chaîne
sTel = Remplace(sTel," ","")
sTel = Remplace(sTel,"/","")
sTel = Remplace(sTel,".","")
sTel = Remplace(sTel,"_","")
sTel = Remplace(sTel,"+33","0")

RENVOYER sTel

sNumTel est une chaîne = "0607080901"
sMessageAEnvoyer = "Test SMS"
sAPIKey = "MaCleAPI"
sMotDePasse = "MotDePasseAllMySMS"

ClSMS est un C_SMS(sAPIKey ,sMotDePasse )
clSMS.m_sDestinataire = sNumTel
clSMS.m_sMessage = sMessageAEnvoyer
SI clSMS.envoyer() ALORS
// Traiter envoi OK
SINON
// Traiter envoi NO OK (Erreur stockée dans clSMS.m_sMessageRetour)
FIN