[Null]

محاول أخيره مني، لآن جهازي لا يمكن التعامل من خلال SerialPort

لاحظ أنني أضفت الامر AT+CUSD=2 لأن أغلب المواقع تتكلم عنه بأنه للدلالة على الترميز
جرب التالي بارسال النص مباشرة مع أمر الترميز الذي ذكرته له

كود :

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
   Dim message As String = RichTextBox1.Text
   SerialPort1.Open()
   If SerialPort1.IsOpen() Then
       SerialPort1.Write("AT" & vbCrLf)
       SerialPort1.Write("AT+CUSD=2" & 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
End Sub