problème application sms en vb.net - VB/VBA/VBS - Programmation
Marsh Posté le 24-10-2014 à 03:45:58
Bonjour, je travail sur une application en Vb.net qui doit envoyer des sms à plusieurs personnes. mais voilà que je suis un peu coincé au niveau du code. quelques problèmes se présentent à moi tels que: 1- problème d'envoi de sms multiple, je sais vraiment pas comment faire quand je lance mon code ce n'est que le premier message qui est envoyé les autres ne vont pas. pourquoi? 2- je souhaiterais changer le numero de l'expéditeur en une chaine de caractère, mais comment faire? (ex: au lieu que s'affiche "+22508xxxxxx" sur le téléphone du destinataire je veux que s'affiche "Groupe Kalo" ) voici mon code 'config du port serie With SerialPort1 .PortName = "COM9" .BaudRate = 9600 .Parity = IO.Ports.Parity.None .DataBits = 8 .StopBits = IO.Ports.StopBits.One .Handshake = IO.Ports.Handshake.None .RtsEnable = True .ReceivedBytesThreshold = 1 .NewLine = vbCr .ReadTimeout = 10000 End With 'Sub sms(message As String, numero As String) SerialPort1.Open() SerialPort1.Write("AT" & vbCrLf) SerialPort1.Write("AT+CMGF=1" & vbCrLf) SerialPort1.Write("AT+CMGS=" & Chr(34) & numero & Chr(34) & vbCrLf) SerialPort1.Write(message & Chr(26)) End Sub 'les 10 messages sont composé ailleurs For i = 0 To 10 Call sms(msg(i), num(i)) Next stp aidez moi, je ne sais pas comment m'y prendre? Merci d'avance
Make sure you enter the(*)required information where indicate.HTML code is not allowed
Marsh Posté le 24-10-2014 à 03:45:58
Bonjour,
je travail sur une application en Vb.net qui
doit envoyer des sms à plusieurs personnes.
mais voilà que je suis un peu coincé au niveau
du code. quelques problèmes se présentent à
moi tels que:
1- problème d'envoi de sms multiple, je sais
vraiment pas comment faire
quand je lance mon code ce n'est que le
premier message qui est envoyé les autres ne
vont pas. pourquoi?
2- je souhaiterais changer le numero de
l'expéditeur en une chaine de caractère, mais
comment faire? (ex: au lieu que s'affiche
"+22508xxxxxx" sur le téléphone du
destinataire je veux que s'affiche "Groupe
Kalo" )
voici mon code
'config du port serie
With SerialPort1
.PortName = "COM9"
.BaudRate = 9600
.Parity = IO.Ports.Parity.None
.DataBits = 8
.StopBits = IO.Ports.StopBits.One
.Handshake = IO.Ports.Handshake.None
.RtsEnable = True
.ReceivedBytesThreshold = 1
.NewLine = vbCr
.ReadTimeout = 10000
End With
'Sub sms(message As String, numero As String)
SerialPort1.Open()
SerialPort1.Write("AT" & vbCrLf)
SerialPort1.Write("AT+CMGF=1" & vbCrLf)
SerialPort1.Write("AT+CMGS=" & Chr(34) &
numero & Chr(34) & vbCrLf)
SerialPort1.Write(message & Chr(26))
End Sub
'les 10 messages sont composé ailleurs
For i = 0 To 10
Call sms(msg(i), num(i))
Next
stp aidez moi, je ne sais pas comment m'y
prendre?
Merci d'avance