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>"
et c ok
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)
ensuite j'ai commencé à faire les essai pour la lesture des SMS en utilisant ce code :
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 "
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
Que faire ?
Partager