Swisslinux.org

− Le carrefour GNU/Linux en Suisse −

 

Langue

 

Le Forum

Vous n'êtes pas identifié.

#1 27 Jul 2007 15:49:09

OdyX
Alumni (ex-membre)
Lieu: Vevey
Date d'inscription: 06 Jun 2006
Messages: 490
Site web

[SMS] Envoi de SMS par Xtra-Zone de Swisscom

Salut à tous,

Liste des versions

0.01 - Version originale
0.02 - Messages plus longs

Présentation
cherchant à pouvoir envoyer des SMS depuis Kontact (KDE) en cliquant simplement sur le numéro de téléphone, tout en utilisant mes crédits offerts sur la Xtra-Zone de Swisscom.

J'ai donc cherché le programme me permettant d'y arriver, j'ai nommé : smssend. En gros, c'est un script qui se connecte sur les pages internet des différents portails SMS. Par contre, pas de script pour la Xtra-Zone de Swisscom, je l'ai donc rédigé, en me basant sur ce que j'ai trouvé sur UbuntuUsers.de qui ne marchait pas à l'origine.

Voici donc le script original ~/.smssend/xtrazone.sms :

Code:

## Swisscom Xtra-Zone ##
# Version 0.01
# Author : Didier Raboud <didier@raboud.com>
# Thanks to : Pot and its first essay : http://forum.ubuntuusers.de/viewtopic.php?p=740746
# Usage: 
# 
# smssend xtrazone.sms LOGIN PASSWORD NUMBER "MESSAGE" 

NbParams 4 
%Login Convert : Your login 
%Password Hidden : Your password 
%Tel Convert : GSM number of recipient (090xyyyyyy) 
%Message Size=143 Convert : Your message 

PostURL https://www.swisscom-mobile.ch/youth/sms_senden-fr.aspx
Params login
PostData isiwebuserid=\%Login%&isiwebpasswd=\%Password%&isiwebjavascript=No&isiwebappid=mobile&isiwebmethod=authenticate&isiweburi=/youth/youth/sms_senden-fr.aspx&isiwebargs=login
Referer https://www.swisscom-mobile.ch/youth/youth_zone_home-fr.aspx?login
Search Swisscom Fehlermeldung
ErrorMsg 1 Mauvais numéro et/ou mot de passe.
ElseSearch Ton compte MMS/SMS
PrintMsg Connection OK.
Else
ErrorMsg 9 Erreur inconnue.
GO 

### Sending ###
PostURL https://www.swisscom-mobile.ch/youth/sms_senden-fr.aspx 
PostData __EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE_SCM=1&__VIEWSTATE=&CobYouthSMSSenden:txtMessage=\%Message%&CobYouthSMSSenden:txtNewReceiver=\%Tel%&CobYouthSMSSenden:btnSend=Envoyer
Referer https://www.swisscom-mobile.ch/youth/sms_senden-fr.aspx
Search CobYouthSMSSenden_lblSuccessfully
PrintMsg Envoi du message OK.
ElseSearch CobYouthSMSSenden_lblErrorBox
ErrorMsg 3 Échec de l'envoi du message.
Else
ErrorMsg 9 Erreur inconnue.
GO

### Logout ###
GetURL https://www.swisscom-mobile.ch/youth/youth_zone_home-fr.aspx
Params logout
Go

La ligne de commande pour essayer est la suivante :

Code:

smssend xtrazone.sms 0_mon_numero_0 MonMotDePasse 0_no_destinataire_0 "Texte du message (max 135 charactères)"

Dans Kontact, dans les Contacts, il faut mettre la ligne suivante dans les options :

Code:

smssend xtrazone.sms 0_mon_numero_0 MonMotDePasse %N "`cat %F`"

Voilà voilà, ... Je peux maintenant envoyer des messages directement depuis Kontact (gratuitement qui plus est), c'est pas beau ça ?

Par contre, rien ne garantit ni n'affiche si le message est réellement envoyé dans Kontact. En ligne de commande par contre, on peut voir quelques messages d'erreur.

Enfin voilà, je suis assez content et fier de ce travail...

@+, OdyX

EDIT : Ajout du Version Control. :-)

Dernière modification par OdyX (30 Jul 2007 23:34:57)

Hors ligne

 

#2 27 Jul 2007 22:04:45

fbianco
Membre du comité
Lieu: Suisse
Date d'inscription: 04 Feb 2005
Messages: 1455
Site web

Re: [SMS] Envoi de SMS par Xtra-Zone de Swisscom

Cool, je vais essayer ça ! merci pour le script.


Utilisateur de Debian GNU/Linux, le système d'exploitation universel !

www : https://skadi.ch

Hors ligne

 

#3 29 Jul 2007 00:23:24

fbianco
Membre du comité
Lieu: Suisse
Date d'inscription: 04 Feb 2005
Messages: 1455
Site web

Re: [SMS] Envoi de SMS par Xtra-Zone de Swisscom

Chapeau ! C'est très pratique.

Par contre, faites pas comme moi... lors du copier-coller, des retours à la ligne malencontreux s'étaient glissés dans le code... :-P


Utilisateur de Debian GNU/Linux, le système d'exploitation universel !

www : https://skadi.ch

Hors ligne

 

#4 30 Jul 2007 23:25:17

OdyX
Alumni (ex-membre)
Lieu: Vevey
Date d'inscription: 06 Jun 2006
Messages: 490
Site web

Re: [SMS] Envoi de SMS par Xtra-Zone de Swisscom

[VERSION 0.02] Envoi de longs messages

Il suffit de supprimer la limitation à 135 caractères du fichier original :

Code:

$ diff xtrazone.sms xtrazone.sms.old
2c2
< # Version 0.02
---
> # Version 0.01
13,14c13
< %Message Convert : Your message
< #%Message Size=143 Convert : Your message
---
> %Message Size=143 Convert : Your message

Ce qui donne comme script final :

Code:

## Swisscom Xtra-Zone ##
# Version 0.02
# Author : Didier Raboud <didier@raboud.com>
# Thanks to : Pot and its first essay : http://forum.ubuntuusers.de/viewtopic.php?p=740746
# Usage: 
# 
# smssend xtrazone.sms LOGIN PASSWORD NUMBER "MESSAGE" 

NbParams 4 
%Login Convert : Your login 
%Password Hidden : Your password 
%Tel Convert : GSM number of recipient (090xyyyyyy) 
%Message Convert : Your message

PostURL https://www.swisscom-mobile.ch/youth/sms_senden-fr.aspx
Params login
PostData isiwebuserid=\%Login%&isiwebpasswd=\%Password%&isiwebjavascript=No&isiwebappid=mobile&isiwebmethod=authenticate&isiweburi=/youth/youth/sms_senden-fr.aspx&isiwebargs=login
Referer https://www.swisscom-mobile.ch/youth/youth_zone_home-fr.aspx?login
Search Swisscom Fehlermeldung
ErrorMsg 1 Mauvais numéro et/ou mot de passe.
ElseSearch Ton compte MMS/SMS
PrintMsg Connection OK.
Else
ErrorMsg 9 Erreur inconnue lors de la connexion.
GO 

### Sending ###
PostURL https://www.swisscom-mobile.ch/youth/sms_senden-fr.aspx 
PostData __EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE_SCM=1&__VIEWSTATE=&CobYouthSMSSenden:txtMessage=\%Message%&CobYouthSMSSenden:txtNewReceiver=\%Tel%&CobYouthSMSSenden:btnSend=Envoyer
Referer https://www.swisscom-mobile.ch/youth/sms_senden-fr.aspx
Search CobYouthSMSSenden_lblSuccessfully
PrintMsg Envoi du message OK.
ElseSearch CobYouthSMSSenden_lblErrorBox
ErrorMsg 3 Échec de l'envoi du message.
Else
ErrorMsg 9 Erreur inconnue lors de l'envoi.
GO

### Logout ###
GetURL https://www.swisscom-mobile.ch/youth/youth_zone_home-fr.aspx
Params logout
Go

Pour tout ce que j'ai testé, ça marche et envoie finalement plusieurs messages...

@+, OdyX

Hors ligne

 

#5 31 Jul 2007 08:56:28

a-lex
Modérateur
Lieu: Chamoson
Date d'inscription: 13 May 2005
Messages: 406
Site web

Re: [SMS] Envoi de SMS par Xtra-Zone de Swisscom

ça me semble pas mal, mais dommage que je ne puisse pas en profiter...
snif snif, je suis déjà trop vieux!


Tout ce qui est vraiment grand et inspiré n'a été réalisé que par des individus travaillant librement. (Albert Einstein)

Hors ligne

 

#6 31 Jul 2007 11:21:48

calimarno
Membre du comité
Lieu: VS / AG
Date d'inscription: 10 Sep 2005
Messages: 545
Site web

Re: [SMS] Envoi de SMS par Xtra-Zone de Swisscom

Reste plus qu'à transférer sur le wiki big_smile


Les Chroniques de Calimarno
Alors que tous les autres ont des problèmes, les chimistes ont des solutions.

Hors ligne

 

#7 03 Aug 2007 13:13:05

SkY`
Citoyen(ne)
Lieu: Bellinzona, TI
Date d'inscription: 06 Oct 2006
Messages: 27
Site web

Re: [SMS] Envoi de SMS par Xtra-Zone de Swisscom

Un très bon travail! Merci bien smile

Hors ligne

 

#8 24 Aug 2007 12:26:52

baby-tux
Affranchi(e)
 
Date d'inscription: 24 Aug 2007
Messages: 4

Re: [SMS] Envoi de SMS par Xtra-Zone de Swisscom

Hello,
c'est mon premier post donc soyez indulgent svp:-$

avez vous essayé d'ajouter à la fin de la commande dans kontact ceci

Code:

> ${HOME}/.smssend/status 2>&1  ; kdialog --title "etat de l'envois" --passivepopup "$(cat ${HOME}/.smssend/status)"

pour obtenir un affichage en cas d'erreur?

edit:je vien d'essayer et sa fonctionne. Parcontre le popup est en haut de l'écrant...:-s

@+
ps désolé des nombreuses fautes d'ortho:-$

Dernière modification par baby-tux (24 Aug 2007 15:38:45)

Hors ligne

 

Pied de page des forums

Powered by FluxBB