Creation de sms avec une carte sim

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 212 fois - Téléchargée 29 fois

Contenu du snippet

Ce code vous permets de creer des SMS en modifiant toute les proprietes du message(destination, durée de validité, etc). Pour se faire vous devez disposez d'une carte SIM et d'un lecteur de carte sur votre PC. Attention, certain parametres ne doivent JAMAIS etre modifié! Vous verrez lesquels dans la source.

Source / Exemple :


#Include CARDUTIL.DEF
#Include COMMERR.DEF
ComPort=101
Declare Command &HA0 &HA4
SL(S$,Disable Le)
Declare Command &HA0 &HDC
UREC(S$,Disable Le)
Public L As Single
ST$=Chr$(&H07)
SC$="336890040000"   
SR$=Chr$(&H11)  
REF$=Chr(&HFF)
To$="3368312345"    
PID$=Chr$(&H5F)   
DC$=Chr$(&HF0)
VAL$=Chr$(&H17)
LTX$=Chr$(&H09)
TXT$=Chr$(&HC2)+Chr$(&HB7)+Chr$(&H5B)+Chr$(&HFD)_
+Chr$(&HAE)+Chr$(&HCB)+Chr$(&H41)+Chr$(&HFF)
U$=Chr$(&H91)
L=Len(SC$):L=L/2
IF L <> Len (SC$)2 Then
SC$=SC$+"F"
For F=1 To Len(SC$) Step 2
K$=Mid$(SC$,F,2)
U$=U$+Chr$(ValH(Right$(K$,1)+L
eft$(K$,1)))
Next F
SC$=Chr$(Len(U$))+U$
U$=Chr(&H91)
L=Len(To$):LTO=L:L=L/2
IF L <> Len(To$)/2 Then
To$=To$+"F"
For F=1 To Len(To$) Step 2
K$=Mid$(To$,F,2)
U$=U$+Chr$(ValH(Right$(K$,1)+L
eft$(K$,1)))
Next F
TO$=Chr$(LTO)+U$
SMS$=ST$+SC$+SR$+REf$+To$+PID$+DCS$+Val$+LTX$+TXT$
B=176-Len(SMS$)
SMS$=SMS$+String$(B,&HFF)
Call WaitForCard
ResetCard:Call CheckSW1SW2:
PRINT
S$=Chr$(&H7F)+Chr$(&H10):Call
SL(S$)
S$=Chr$(&H6F)+Chr$(&H3C):Call
Sl(S$)
Call UREC(P1P2=&H0104,SMS$):
Call CheckSW1SW2

Conclusion :


Liste des parametres modifiables :
Valeur des codes :
? SC$ = Numero Du Centre De Messagerie. Numero de l'operateur ayant emis la carte SIM.
Orange = 336890040000
SFR = 33609001390
Bouygues = 3366000300
(Pour les operateurs francais)
Operateurs etrangers :
Suisse = 41794999000
Afrique du Sud = 27830000410
Singapour = 6596500005
Ces listes sont aisement trouvables sur certains sites Web.
? To$ = Numero Du Proprietaire
Vous pouvez mettre votre numero de portable de la carte
Il n'est pas interdit d'envoyer des messages :D
? SR$ = Accusé De Reception
Mettez la valeur 11H pour desactiver l'accusé, et
Entrez la valeur 31H pour activer l'accusé.
? PID$ = Protocole Que L'on Desire Utiliser
La valeur par defaut est 00H
La valeur 5FH suggere au mobile de rapeller le numero
d'expediteur. Normalement reservé aux operateurs,
afin de vous avertir que vous avez un message.
Les valeurs 7FH, 7DH et 7EH pour envoyer des messages destiné au systeme d'exploitation
de la carte SIM, generalement utiliser pour bloquer et debloquer un portable.
La valeur 3F indique au centre de messagerie que vous voulez reconvertir le message
en passant de 7 bits au 8 bits ou inversement.
? DCS$ = Decrit le type de codage utilisé.
La valeur par defaut est 00H
Le codage est assez compliqué pour une bien petite tache ;o)
La valeur F0H indique que le SMS est en 7 bits est de classe 0
Ce qui signifie que le SMS n'as pas besoin d'etre enregistré
La valeur 04H indique que le message est codé en 8 bits
et doit etre sauvegardé automatiquement.
? VAL$ = Precise La durée De Validité Du Message.
C'est a dire le temps pendant lequel le SMS doit essayer
de joindre le numero du destinataire.
05H = essaie pendant 30 minutes
0BH = essaie pendant 1 heure
17H = essaie pendant 2 heures
A7H = essaie pendant 24 heures
ABH = essaie pensant 5 jours
FCH = essaie pendant 60 semaines
? TXT$ = Contenu Utile Du Message
? LXT$ = Longueur Du Message En Caracteres
En codage 8 bits LXT$ indique simplement le nombre d'octets
En codage 7 bits LXT$ indique le nombre de septets
(superieur ou egale a la longueur de TXT$.
Exemple du TXT$ "Salut toi ;)" codé sur 8 bits :

PID$=Chr$(&H3F)
DCS$=Chr$(&H04)
TXT$="Salut toi ;)"
LXT$=Chr$(Len(TXT$))

A voir également

Ajouter un commentaire

Commentaires

soura kassoum
Messages postés
1
Date d'inscription
lundi 12 février 2007
Statut
Membre
Dernière intervention
23 mars 2008
-
Bonjour j'aimerais savoir comment executer ce programme.Merci.Mon email sourkass2010@yahoo.fr
matthieu5978
Messages postés
1
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2006
-
Bonjour

Juste une petite question. Comment faire lorsque l'on possede un lecteur pc/sc mais qui se connecte au pc via un port USB (ACR 38 USB)

merci
perpettte
Messages postés
1
Date d'inscription
mercredi 4 février 2004
Statut
Membre
Dernière intervention
4 février 2004
-
alors comme je suis une handicapée de l'orthographe .Je ne peut pas ecrire???merci de votre pour votre indulgence..
Nort0n
Messages postés
41
Date d'inscription
jeudi 27 novembre 2003
Statut
Membre
Dernière intervention
18 octobre 2010
-
Merci de cette note c'est bien sympa et ca fait plaisir ;) Comme lecteur de carte tu peux prendre un lecteur de type PC/SC ou CyberMouse mais avec cela il faudrat modifier ton ComPort en consequence.J'allais oublier une p'tite remarque ; les SMS ecrit auront besoin d'etre compilé avant envoie.Un logiciel creer a cette effet est dispo sur :
http://www.basiccard.com
cristiandan
Messages postés
52
Date d'inscription
lundi 26 novembre 2001
Statut
Membre
Dernière intervention
4 novembre 2005
-
Très interresante cette source. Ca faisait un bout de temps que j'essayait de trouver une source comme ca! Qu'est ce que tu utilise comme lecteur de carte SIM?
Bien documentée... aller un 10 pour tous les efforts!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.