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
Pte Claire Quebec - Canada
de la société MCRG Software
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é 6841 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


Publicité

Les pubs en cours :


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