problème application sms en vb.net

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

Reply

Marsh Posté le 24-10-2014 à 03:45:58   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed