Waka
Jul 29th, 2009, 04:11 AM
HI, how can i read out the message from the GSM modem. The follow code only manage to show "at+cmgl=all" which is not the mesage i want. anyone know how to solve it ?
With serialport
.PortName = "COM6"
.BaudRate = "115200"
.StopBits = IO.Ports.StopBits.One
.DataBits = 8
.Parity = IO.Ports.Parity.None
.ReadBufferSize = 10000
.ReadTimeout = 1000
.WriteBufferSize = 10000
.WriteTimeout = 10000
.RtsEnable = True
.Open()
.DiscardOutBuffer()
'for reading sms
atcCommand = "AT+CMGL=all" 'to read from inbox
.Write(atcCommand + vbCrLf) 'execute command on buffer
'code manage to get out what it wrote in the atcCommand
TextBox1.Text = .ReadExisting
End With
With serialport
.PortName = "COM6"
.BaudRate = "115200"
.StopBits = IO.Ports.StopBits.One
.DataBits = 8
.Parity = IO.Ports.Parity.None
.ReadBufferSize = 10000
.ReadTimeout = 1000
.WriteBufferSize = 10000
.WriteTimeout = 10000
.RtsEnable = True
.Open()
.DiscardOutBuffer()
'for reading sms
atcCommand = "AT+CMGL=all" 'to read from inbox
.Write(atcCommand + vbCrLf) 'execute command on buffer
'code manage to get out what it wrote in the atcCommand
TextBox1.Text = .ReadExisting
End With