.NET (Core and Framework)

Public Sub CommPortSetup()
 
        If mySerialPort.IsOpen Then
            mySerialPort.Close()
 
        End If
 
        Try
            With mySerialPort
                .PortName = "COM1"
                .BaudRate = 115200
                .DataBits = 8
                .Parity = Parity.None
                .StopBits = StopBits.One
                .Handshake = Handshake.None
                .DtrEnable = True
                .RtsEnable = True
                .NewLine = vbCrLf
            End With
            mySerialPort.Open()
            MessageBox.Show("Connected to COMMPORT1")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
        mySerialPort.WriteLine("AT+CMGF=1" & vbCrLf)
        System.Threading.Thread.Sleep(200)
        mySerialPort.WriteLine("AT+CMGS=+6390720831187" & vbCrLf)
        System.Threading.Thread.Sleep(200)
        mySerialPort.WriteLine("SUCCESS!" & vbCrLf )
        System.Threading.Thread.Sleep(200)
 

 

 

    End Sub
 
End Module