Envoi de SMS avec l'api FreeMobile

Je cherche a faire un petit logiciel me permettant d'envoyer un SMS sur ma ligne free via l'api.
J'ai un début de réponse pour encoder les messages SMS ci-dessous :

ls_arg est une chaîne="Je suis très content"
EDT_output est une chaine

m_urlencode is object OLE dynamic
m_urlencode = new object OLE "MSScriptControl.ScriptControl"
m_urlencode>>language = "javascript"
ls_arg = Replace(ls_arg,"'", "\'")
ls_arg = "encodeURIComponent ('" + ls_arg + "')"
EDT_output = m_urlencode>>Eval (ls_arg)
delete m_urlencode

CASE ERROR:
Info("Some unexpected error")
CASE EXCEPTION:
Info("Exception")

Aprés je dois envoyer cette commande via windev, et récupérer le status de l'envoi, mais comment faire?

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

 

OK merci, je vais étudier ça et tester, je posterai mon code après.

 

Voila, j'ai réalisé un bout de code qui permet d'envoyer un SMS sur la ligne FreeMobile depuis un PC.
ça marche nickel. Merci Free !

Code (Text):

sMessage_a_encoder est une chaîne = LigneCommande(1) //Message à transmettre à mettre en parametre de l'application
//sMessage_a_encoder est une chaîne="Ceci est un test & Très facile d'envoyer un sms avec un Ordinateur :)" //Message à transmettre
sMON_NUMERO_CLIENT est une chaîne="99999999"  //Votre numéro de client
sMA_CLEF_DIDENTIFICATION est une chaîne="XXXXXXXXXXXXXX"  //Votre Clé d'authentification
sMessage_a_envoyer est une chaîne
sSTatus_envoi est une chaîne

//Permet d'encoder tous les caractères spéciaux du message même les "&" car UrlEncode ne le fait pas.
m_urlencode est un objet OLE dynamic
m_urlencode = new object OLE "MSScriptControl.ScriptControl"
m_urlencode>>language = "javascript"
sMessage_a_encoder = Replace(sMessage_a_encoder,"'", "\'")
sMessage_a_encoder = "encodeURIComponent ('" + sMessage_a_encoder + "')"
sMessage_a_envoyer = m_urlencode>>Eval (sMessage_a_encoder)
delete m_urlencode

ResStart est un booleen=HTTPRequête("https://smsapi.free-mobile.fr/sendmsg?user="+sMON_NUMERO_CLIENT+"&pass="+sMA_CLEF_DIDENTIFICATION+"&msg="+sMessage_a_envoyer)
SI ResStart=Vrai ALORS
    SELON Left(HTTPGetResult(),12)
        CAS "HTTP/1.1 200"
            Info("Le SMS a été envoyé sur votre mobile.")
        CAS "HTTP/1.1 400"
            Info("Un des paramètres obligatoires est manquant ou erroné")
        CAS "HTTP/1.1 402"
            Info("Trop de SMS ont été envoyés en trop peu de temps.")
        CAS "HTTP/1.1 403"
            Info("Le service n’est pas activé sur l’espace abonné, ou login / clé incorrect.")
        CAS "HTTP/1.1 500"
            Info("Erreur côté serveur. Veuillez réessayez ultérieurement.")
        AUTRE CAS
            sSTatus_envoi="Status inconnu : HTML code: "+HTTPGetResult() + RC
            sSTatus_envoi+="Header: "+HTTPGetResult(httpHeader)
            Info(sSTatus_envoi)
    FIN
 SINON
     Erreur(ErreurInfo())
FIN
Ferme

On peut surement l'améliorer. J'aurai aimé pouvoir envoyer le message de statut en texte car si on lance le programme depuis une fenêtre DOS, la fonction "info" va bloquer la suite des evenements.
Je ne sais pas comment envoyer des messages sur la sortie standard texte. Est-ce possible d'ailleurs?

 

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Merci beaucoup
Connais tu la limitation du nombre de SMS/jour/mois car chez SFR c'est limité à 200 SMS (sur des numéros différents) par mois. Pas assez pour faire un envoi groupé à tous mes prospects...

Cliquez pour agrandir...