تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن مساعدة في ارسال رسالة بي لغة العربية
#1
عند ارسال رسالة الي الجوال تظهر  علي شكل ؟؟؟؟؟؟؟؟؟؟؟
كود :
       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
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
ممكن مساعدة في ارسال رسالة بي لغة العربية - بواسطة الزوي - 10-08-18, 03:09 PM


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم