Creation de sms avec une carte sim

Commenter

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

S'inscrire maintenant

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.

Du même auteur (Nort0n)