Problème application sms en vb.net

serenity - Modifié par Whismeril le 24/10/2014 à 08:58
NHenry
Messages postés
14967
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
11 août 2022
- 25 oct. 2014 à 21:23
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.

1 réponse

NHenry
Messages postés
14967
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
11 août 2022
161
25 oct. 2014 à 21:23
Bonsoir,

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