how to create a program that receives messages using at commands in vb 2010?

[123miguel123]

hey guys i really need some help.

i tried this codes below that i created but it cant receive messages. and if it can i like to read it directly in Richtextbox.

here is the code:

Public Sub receive()
If srPort.IsOpen = True Then
Try

With srPort
.WriteLine("AT")
.WriteLine("AT+CMGF=1" & Chr(34) & vbCrLf)
.WriteLine("AT+CSCS=""PCCP437""" & Chr(34) & vbCrLf)
.WriteLine("AT+CPMS=""SM""" & Chr(34) & vbCrLf)
.WriteLine("AT+CMGL=""REC UNREAD""" & receiveRT.Text & vbCrLf)


End With
Catch ex As Exception

End Try

End If
End Sub

[Niya]

You're trying to read yet....:-

.WriteLine("AT+CSCS=""PCCP437""" & Chr(34) & vbCrLf)

You seriously don't expect a function named "WriteLine" to do any thing like reading, do you ?

[dbasnett]

A couple of suggestions.

1) Don't use WriteLine. Use Write. For example
.WriteLine("AT+CMGF=1" & Chr(34) & vbCrLf)
would be
.Write("AT+CMGF=1" & Chr(34) & ControlChars.Cr)

Note that the string is concatenated with CR because this is the default modem end-of-command character. Sending linefeeds is not required.

2) After each write put a readline to read the results.

I'd not use the With style. Try it like this

        Dim s As String
        srPort.Write("AT" & ControlChars.Cr)
        s = srPort.ReadLine
        Debug.WriteLine(s)

        srPort.Write("AT+CMGF=1" & Chr(34) & ControlChars.Cr)
        s = srPort.ReadLine
        Debug.WriteLine(s)

If the command returns more that one line you will need multiple readlines to get the results.

Use code tags when you post code.

[123miguel123]

A couple of suggestions.

1) Don't use WriteLine. Use Write. For example
.WriteLine("AT+CMGF=1" & Chr(34) & vbCrLf)
would be
.Write("AT+CMGF=1" & Chr(34) & ControlChars.Cr)

Note that the string is concatenated with CR because this is the default modem end-of-command character. Sending linefeeds is not required.

2) After each write put a readline to read the results.

I'd not use the With style. Try it like this

        Dim s As String
        srPort.Write("AT" & ControlChars.Cr)
        s = srPort.ReadLine
        Debug.WriteLine(s)

        srPort.Write("AT+CMGF=1" & Chr(34) & ControlChars.Cr)
        s = srPort.ReadLine
        Debug.WriteLine(s)

If the command returns more that one line you will need multiple readlines to get the results.

Use code tags when you post code.

sir will i be able to read my sms directly in textbox?

[dbasnett]

Start with the code I posted. Do the debug statements show the output? If they do then 's' will contain the responses and since a TextBox.Text is a string you should be able to set the .Text with variable 's'. If you have multiple strings set the MultLine property of the textbox to true and use AppendText.