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