SMS COM MAIS DE 160 CARACTERES USANDO MODEM 3G
ESTOU USANDO ESTA FUNÇÃO PARA MANDAR SMS COM UM MODEM 3G:
---------------------------------------------------------------------------------------------------------------------------------
Public Sub EnviarSMS(ByVal Fone As String, ByVal Mensagem As String, ByVal Porta As String)
Try
Dim PortaSerial As New System.IO.Ports.SerialPort(Porta)
PortaSerial.Open()
System.Threading.Thread.Sleep(2000)
PortaSerial.Write([Ô]AT+CMGF=1[Ô] & vbCr)
System.Threading.Thread.Sleep(2000)
PortaSerial.Write([Ô]AT+CMGS=[Ô] & Chr(34) & Fone & Chr(34) & vbCr)
System.Threading.Thread.Sleep(2000)
PortaSerial.Write(Mensagem & Chr(26))
System.Threading.Thread.Sleep(2000)
PortaSerial.Close()
System.Threading.Thread.Sleep(2000)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
---------------------------------------------------------------------------------------------------------------------------------
MAS ELA NÃO FUNCIONA PARA ENVIAR SMS COM MAIS DE 160 CARACTERES.
ALGUEM SABERIA ME DIZER COMO FAZER?
---------------------------------------------------------------------------------------------------------------------------------
Public Sub EnviarSMS(ByVal Fone As String, ByVal Mensagem As String, ByVal Porta As String)
Try
Dim PortaSerial As New System.IO.Ports.SerialPort(Porta)
PortaSerial.Open()
System.Threading.Thread.Sleep(2000)
PortaSerial.Write([Ô]AT+CMGF=1[Ô] & vbCr)
System.Threading.Thread.Sleep(2000)
PortaSerial.Write([Ô]AT+CMGS=[Ô] & Chr(34) & Fone & Chr(34) & vbCr)
System.Threading.Thread.Sleep(2000)
PortaSerial.Write(Mensagem & Chr(26))
System.Threading.Thread.Sleep(2000)
PortaSerial.Close()
System.Threading.Thread.Sleep(2000)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
---------------------------------------------------------------------------------------------------------------------------------
MAS ELA NÃO FUNCIONA PARA ENVIAR SMS COM MAIS DE 160 CARACTERES.
ALGUEM SABERIA ME DIZER COMO FAZER?
Por que o padrão é 160 caracteres.
isso eu sei, mas tb sei q da pra mandar mensagens maiores q isso, e quero saber como...
Não sei dizer exatamente como funciona já que nunca trabalhei com isso, mas pelo que vi você precisa pesquisar sobre como mandar mensagens concatenadas, basicamente você vai ter que dividir as mensagens manualmente no seu programa e adicionar um cabeçalho nelas que informa que as mensagens são partes de uma só.
De uma pesquisada sobre [Ô]concatenated sms[Ô], UDH ou [Ô]User Data Header[Ô], com isso você deve encontrar mais informações na internet sobre o assunto.
De uma pesquisada sobre [Ô]concatenated sms[Ô], UDH ou [Ô]User Data Header[Ô], com isso você deve encontrar mais informações na internet sobre o assunto.
Você tem que ver com o manual do fabricante quais são as limitações sobre o números de caracteres que o seu modem podem enviar em única mensagem. Alguns aparelhos detectam o número de caracteres e envia tudo em um único pacote para a plataforma de mensagens da operadora.
Tópico encerrado , respostas não são mais permitidas