Automatisation industrielle | Support Technique France
Comment envoyer un SMS depuis un GSM connecté au PC ?
Éléments de réponses
Il faut pour cela utiliser le VBScript suivant:
Dim AtString
Dim guillemet
'configure et ouvre le port de com sur lequel est connecté le modem GSM
SetupCOMPort 6, "256000,N,8,1", 0, 13, TRUE, 3
OpenCOMPort 6
'message au format texte
AtString = "AT+CMGF=1"
OutputCOMPort 6, AtString
'n° du GSM destinataire du SMS
guillemet= Chr(34)
AtString= "AT+CMGS=" + guillemet + "0607080900" + guillemet
OutputCOMPort 6, AtString
'Envoi du SMS
AtString = SMSMessage
OutputCOMPort 6, AtString
'Fin de message et fermeture du port de com
AtString = Chr(26)
OutputCOMPort 6, AtString
CloseCOMPort 6
Informations complémentaires
Catégorie :
Cx-Supervisor
Langage :
Français
Ajouté le :
31/07/2017
Auteur :
Jean-Pierre Viskovic
