ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Comment envoyer un message SMS avec Foxpro   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pointe Cla H9R 3K8
de la société Carver Technologies Inc.
Fiche personnelle


Note des membres
pas de note

Contributions > 08 - ActiveX - (OLE)

Comment envoyer un message SMS avec Foxpro
# 0000000458
ajouté le 18/07/2007 18:51:17 et modifié le 18/07/2007
consulté 8184 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0

Description

Il faut un modem pour utiliser cette technique.

Ajouter l'activex mscomm32 à une forme. Renommer le comm1

Code source :

thisform.Comm1.CommPort = "Le port qui communique au modem"
thisform.Comm1.Handshaking = 0
thisform.Comm1.RThreshold = 0
thisform.Comm1.RTSEnable = .f.
thisform.Comm1.Settings = "2400,n,8,1"
thisform.Comm1.SThreshold = 0
thisform.Comm1.InputMode = 0
thisform.Comm1.PortOpen = .t.

&& Dans un bouton sur la form, dans le click event.
thisform.comm1.output="ATE1"+chr(13)
thisform.comm1.inbuffercount=0
wait 'Sending . . .' window TIMEOUT 0.2
thisform.comm1.output='AT+CMGF=1'+chr(13)
wait 'Sending . . .' window TIMEOUT 0.2
thisform.comm1.output='AT+CMGS="'+[numéro de téléphone]+'"'+chr(13)
wait 'Sending . . .' window TIMEOUT 0.2
thisform.comm1.output=[message à envoyer]+chr(26)
wait 'Envoi . . .' window TIMEOUT 5
wait 'Message parti!' window
Commentaires
le 19/07/2007, Jean à Grenoble a écrit :
Mais !

Ce sont des commandes HAYES !!

On doit pouvoir faire la même chose en ... DOS !!!!!!

Jean à Grenoble

le 19/07/2007, Mike Gagnon a écrit :
DOS? J'ai perdu ma copie de DOS, mais probablement possible.
le 19/07/2007, Francis Faure a écrit :
Mike,
merci pour cette contrib!
je passais par un activX jusqu'a maintenant appelant un numéro surtaxé,
mais la c'est vraiement trop simple !:
bravo : cela va m'être utile
Cordialement

le 29/08/2007, yoyo31 a écrit :
Salut,

Ca ne marche pas avec mon modem. Faut-il un modem GSM/GPRS ?

Lionel

le 26/11/2019, kikoun a écrit :
Salut
J'ai essayé de mon côté mais ca ne marche pas non plus. Le message part mais pas de reception.
Voici ce que j'ai fait.
Dans Init du formulaier j'ai ecrit :
<VFP>
thisform.Comm1.CommPort = 3 &&"Le port qui communique au modem"
thisform.Comm1.Handshaking = 0
thisform.Comm1.RThreshold = 0
thisform.Comm1.RTSEnable = .f.
thisform.Comm1.Settings = "9600,n,8,1"
thisform.Comm1.SThreshold = 0
thisform.Comm1.InputMode = 0
thisform.comm1.portOpen = .T.
</VFP>

Dans l'evenement Click du bouton :
<VFP>
thisform.comm1.output="ATE1"+chr(13)
thisform.comm1.inbuffercount=0
wait 'Sending . . .' window TIMEOUT 0.2
thisform.comm1.output='AT+CMGF=1'+chr(13)
wait 'Sending . . .' window TIMEOUT 0.2
thisform.comm1.output='AT+CMGS="'+'0022502502258'+'"'+chr(13)
wait 'Sending . . .' window TIMEOUT 0.2
thisform.comm1.output=[message à envoyer]+chr(26)
wait 'Envoi . . .' window TIMEOUT 5
wait 'Message parti!' window
</VFP>

J'ai pris le soin de vérifier que l'équipement de mon GSM Modem ait la port COM3


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2020.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3