émettre et lire msg
marriouma
Messages postés
2
Statut
Membre
-
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 :)
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 :)
