problème application sms en vb.net

Question

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

EDIT: Ajout de la coloration syntaxique.

NHenry · Answer

Bonsoir,

Tu n'a pas une exception qui se déclenche ?
Où fermes-tu ton port entre 2 envois ?

Problème application sms en vb.net

1 réponse

Votre réponse

Discussions similaires