émettre et lire msg

marriouma Messages postés 2 Statut Membre -  
marriouma Messages postés 2 Statut Membre -
J'ai un code vb pour émettre un msg via un module gsm
Private Sub Command1_Click()
MSComm1.CommPort = 3 ' Com4 Port
MSComm1.Settings = "115200,n,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
MSComm1.Output = "AT" & Chr$(13) & Chr(10)
MSComm1.Output = "AT+CMGF=1" & Chr$(13) & Chr(10)
MSComm1.Output = "AT+CMGS=" & Chr$(34) & "+50683999999" & Chr$(34) & Chr(13) & Chr(10)
MSComm1.Output = "My testing message" & Chr(26)

MSComm1.PortOpen = False

End Sub

ce que j'arrive pas à le résoudre comment je fais pour lire la réponse de MSComm1 de savoir si le message a été envoyé avec succès?
Merci d'avance :)
A voir également:

1 réponse

tuxboy Messages postés 1083 Statut Membre 190
 
Bonjour,

Si le module gsm est bien branché sur le port com, alors il renvoit un 'ack' que tu peux lire avec un programme tel que : telnet...
0
marriouma Messages postés 2 Statut Membre
 
Bonjour
j'utilise a virtual port com et il fonctionne correctement, est ce que je peux visualiser un acquisé sur l'hyperterminal? merci bien :)
0