at command cmgl

Read SMS.sln

Form1.Designer.vb

Form1.resx

Form1.vb

Read SMS.vbproj

Read SMS.vbproj.user

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If SerialPort1.IsOpen Then
            SerialPort1.Close()
            Button1.Text = "Connect"
        Else
            Try
                With SerialPort1
                    .PortName = Trim(Mid(ComboBox1.Text, 1, 5))
                    .BaudRate = 9600
                    .Parity = IO.Ports.Parity.None
                    .DataBits = 8
                    .RtsEnable = True
                    .DtrEnable = True
                    .Open()
                    .WriteLine("AT+CNMI=1,2,0,0,0" & vbCrLf) 'send whatever data that it receives to serial port  
                End With
                Button1.Text = "Disconnect"
            Catch ex As Exception
                Button1.Text = "Connect"
                MsgBox(ex.Message)
            End Try
        End If
    End Sub
    Private Sub serialport1_datareceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        'Pause while all data is read

        
        Invoke(Sub() RichTextBox1.Text = SerialPort1.ReadExisting())

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Port1
        ComboBox1.Items.Clear()
        For Each a As String In My.Computer.Ports.SerialPortNames
            'collecting available port
            ComboBox1.Items.Add(a)
        Next
        'Port2
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            SerialPort1.WriteLine("AT" & vbCrLf) 'is modem okay?
            Threading.Thread.Sleep(1000)

            SerialPort1.WriteLine("AT+CMGF=1" & vbCrLf) 'To format SMS as a TEXT message
            Threading.Thread.Sleep(1000)

            SerialPort1.WriteLine("AT+CPMS=""SM""" & vbCrLf) ' Select SIM storage
            Threading.Thread.Sleep(1000)

            SerialPort1.WriteLine("AT+CMGL=""REC UNREAD""" & vbCrLf) 'read unread messages
            Threading.Thread.Sleep(1000)

            SerialPort1.WriteLine("AT+CMGL=""ALL""" & vbCrLf) 'print all message
            Threading.Thread.Sleep(1000)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class