10-08-18, 03:09 PM
عند ارسال رسالة الي الجوال تظهر علي شكل ؟؟؟؟؟؟؟؟؟؟؟
كود :
Dim message As String
message = RichTextBox1.Text
SerialPort1.Open()
If SerialPort1.IsOpen() Then
SerialPort1.Write("AT" & vbCrLf)
SerialPort1.Write("AT+CMGF=1" & vbCrLf)
SerialPort1.Write("AT+CMGS=" & Chr(34) & TextBox1.Text & Chr(34) & vbCrLf)
SerialPort1.Write(message & Chr(26))
MsgBox("يتم الارسال")
Else
MsgBox("لم يتم")
End If