Evento DataReceived vb.net

[emilio_alac05]

la idea es si se recibe un sms +CMTI en el evento datareceived entonces

se liste el sms recibido y se divida en partes, ya intente hacerlo pero no me esta quedando, cual creen que sea mi error , ayuda porfa lo necesito, saludos.

este es mi codigo

Código:

Private Sub SerialPort1_DataReceived(sender As Object, e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

        Dim buffer As String
        Dim partir As String()
 	buffer = SerialPort1.ReadExisting
        EventsReceived.Text = ("Recivido:" & buffer & vbCrLf)

If InStr(EventsReceived.Text, "+CMTI") Then
            
            SerialPort1.WriteLine("AT+CMGF=1" & Chr(13))
            SerialPort1.Write("AT+CMGL=" & Chr(34) & "ALL" & Chr(34) & Chr(13))
            partir = EventsReceived.Text.Split(",")

            For i = LBound(partir) To UBound(partir)
        
                 MsgBox(partir(i))

            Next
        End If
 End Sub

[lucasmoadr]

hola.
primero que nada se escribe recibido.
2. haces esto: partir = EventsReceived.Text.Split(",")
estas seguro que viene dividido por "," el mensaje?? podes pasar lo que te llega?

[emilio_alac05]

Asi llega el sms
+CMTI:"SM",1
luego lo que quiero es leer el sms que llego en este caso seria 1 y los comandos serian asi

SerialPort1.WriteLine("AT+CMGF=1" & Chr(13))
SerialPort1.Write("AT+CMGR=1" & Chr(34) & Chr(13))

Y de aqui me mostraria esta cadena

+CMGL: 1, "REC READ","2345678941",,"14/09/04,23:21:53-20"
Aqui el mensaje de texto que recibi
OK

[lucasmoadr]

desconozco estos comandos:

SerialPort1.WriteLine("AT+CMGF=1" & Chr(13))
SerialPort1.Write("AT+CMGR=1" & Chr(34) & Chr(13))

pero si tu cadena es esta:

"+CMGL: 1, REC READ,2345678941,,14/09/04,23:21:53-20"

el split tiene que funcionar.
fijate bien el tema de las comillas dobles como las pone, recorda que tiene que ser todo un string largo. Esto falla o no hace nada??

[emilio_alac05]

Si funciona, pero no asi como lo estoy esperando lo que me gustaria hacer es que cuado reciba este +CMTI:"SM",1 yo puedo leer el Sms x en este caso seria 1 y luego listar ese SMS con estos comando

SerialPort1.WriteLine("AT+CMGF=1" & Chr(13))
SerialPort1.Write("AT+CMGR=1" & Chr(34) & Chr(13))

y de ahi ir dividiendo la cadena recibida, Saludos. Conoces alguna forma de hacer????