Private Sub shutdown() If receiveRT.Text = "Shutdown" Or "shutdown" Then SendRT.Text = "Shutting Down" end if If SendRT.Text = "Shutting Down" Then With srPort .Write("AT") .Write("AT+CMGF=1" & vbCrLf) .Write("AT+CMGS=" & Chr(34) & CNtbox.Text & Chr(34) & vbCrLf) .Write(SendRT.Text & Chr(26)) MsgBox("Message sent") End With End If End If End Sub
If receiveRT.Text = "Shutdown" Or "shutdown" Then If SendRT.Text = "Shutting Down" Then
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)