Slt ,

J'essaie de créer un programme pour recevoir les SMS via un modem WaveCom RS232 et j'utilise la MSComm et les commade AT.
j'ai commencé mes tests en faisant un appel vocal à partir du VB via la commande "ATD<2145524455>"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
MsComm1.CommPort=1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen=True
MSComm1.OutPut="ATD<0123255645>" & Chr$(13)
et c ok
ensuite j'ai commencé à faire les essai pour la lesture des SMS en utilisant ce code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
If MSComm1.InBufferCount > 0 then
MSComm1.OutPut="AT+CMGR=1" & Chr$(13)
Dim Buffer
Buffer = Buffer & MSComm1.Input
 
End if
le problème c'est que le "MSComm1.InBufferCount " est toujours à zéros ,c 'est à dire aucune réponse et de même il n'y a aucun évènement avec la "comEvReceive "
Que faire ?