Envoi de SMS à partir d'un modem GSM ou d'un modem exécutant les commandes AT

[bruce207]

Bonjour,
Voici le code pour envoyer des sms à partir d'un modem GSM ou d'un modem exécutant les commandes AT. Les paramètres et certains élémnts peuvent changer:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
bMonPort est un booléen
nNbreOctet est un entier
sMess est une chaîne

//Ouverture du port COM
bMonPort = sOuvre(1, 1024, 1024, sTimeoutDéfaut)
SI bMonPort = Vrai ALORS
	//On renseigne les paramètres du modem
	sFixeParamètre(1, 9600, 0, 8, 1, Vrai, Vrai, Faux)
	//On teste le modem
	sEcrit(1, "AT" + Caract(13))
	//On laisse au moden le temps de répondre
	Temporisation(100)
	nNbreOctet = sDansFileEntrée(1)
	sMess = sLit(1, nNbreOctet)
	//Si la réponse (qui est en fonction du modem) est différente Entrée_OK_Entrée...
	SI Majuscule(sMess) <> Caract(13) + Caract(10) + "OK" + Caract(13) + Caract(10) ALORS
		Info("Communication avec le terminal impossible !" + RC + " Réseau mauvais ou revérifiez les branchements du modem et sa configuration !")
	SINON
		//Selon le pays le nombre de chiffre pour composer un numéro
		//Pour moi c'est 8, pour la France c'est supérieur dont à changeren fonction
		//du pays (ici SAI_N_Téléphone est le champ qui contient le N° de tél
		SI Taille(SAI_N_Téléphone) <> 8 ALORS
			Info("Numéro de Téléphone érronné ! Vérifier le SVP !")
		SINON
			Temporisation(100)
			//Pour les commandes AT chercher la syntaxe sur le net
			sEcrit(1, "AT+CMGS=" + Caract(34) + Droite(SAI_N_Téléphone, 8) + Caract(34) + Caract(13))
			Temporisation(100)
			nNbreOctet = sDansFileEntrée(1)
			sMess = sLit(1, nNbreOctet)
			SI Majuscule(sMess) <> Caract(13) + Caract(10) + "> " ALORS
				Info("Mauvaise initialisation du Modem !")
			SINON
				Temporisation(100)
				sEcrit(1, SAI_Message + Caract(26))
//				Temporisation(100)
				Info("Message envoyer avec succès !")
			FIN
		FIN
	FIN
	//On ferme le port
	sFerme(1)
SINON
	Erreur("Erreur d'ouverture du COM1")
FIN

Merci

[njulio2000]

Salut Bruce,

J'aimerais savoir si ce code fonctionne quelque soit le modem gsm. Merci

[bruce207]

Bonjour,
je l'ai testé avec un modem wavecom fastrack et je crois que pour tous les modems du genre ça marche. Essaye et tu me diras

[Badman]

Bon, je voudrais juste ajouté que j'ai fait le test avec un modem GSM TM2... et que sa fonctionne parfaitement.... et surtout un grand merci au forum et aux participant, parce que j'ai un bouquin Interface GSM 2eme edition qui a oublier de préciser qu'il faut des guillemets qui encadre le numero de tel....

[bruce207]

Envoyé par marie eva

lorsque j'exécute le code voici le message d'erreur : Communication avec le terminal impossible!Réseau mauvais ou revérifiez les branchements du modem et sa configuration!

Il faut d'abord tester le modem pour savoir si ta machine le reconnait pour ce faire sous XP tu vas as Démarrer--Tous les programmes--Accéssoires--Communications--HyperTerminal. Pour des OS superieures c-a-d Vista ou Seven faudra chercher. Donc après avoir lancer HyperTerminal et paramétrer avac les informations demandées, une console s'affiche et là après le prompt du curseur tu tapes AT et si le modem est bien connecté et reconnu par la machine tu auras comme reponse OK. Fais déjà ceci et tiens moi informer