Topic: Send and Read SMS using VB.Net 2012 Code

[killersmiles]

Pahelp naman po kung meron kayong code to send and read sms txt in tatoo gamit ay vb.net 2012.

Thanks po!!

[siriusblack]

Hi! used AT commands for sending text using huawei modem. Please see sample below.

Private Sub subSendMessage(ByVal strMobileNo As String, ByVal strMessage As String)
        rsPort.Open()

        With rsPort
            .ReceivedBytesThreshold = 1

            .DtrEnable = True

            .Write("AT" & vbCrLf)

            .Write("AT+CMGF=1" & vbCrLf) 'Modem Text Mode


            .Write("AT+CMGS=" & Chr(34) & strMobileNo & Chr(34) & vbCrLf)

            .Write(strMessage & Chr(26))

            .DtrEnable = False
        End With

        rsPort.Close()


    End Sub