با تغییرات زیر اس ام اس ارسال شد اما یک مشکل داره !
1 - استفاده از گوشی 7610
2 - تغییر کد به کد زیر :
SerialPort1.PortName = "COM92"
SerialPort1.Open()
SerialPort1.WriteLine("AT" & vbCrLf)
SerialPort1.WriteLine("AT+CMGF=1" & vbCrLf)
SerialPort1.WriteLine("AT+CSCA=""+9891100500""" & vbCrLf)
SerialPort1.WriteLine("AT+CMGS=""+989171255391""" & vbCrLf)
SerialPort1.WriteLine("test" & vbCrLf & Chr(26))
SerialPort1.ReadLine()
RichTextBox1.Text = SerialPort1.ReadExisting
SerialPort1.Close()
اما مشکلی که وجود داره متن ارسال شده هست !
که به شکل
AT+CMGF=1
AT+CSCA=""+9891100500
AT+CMGS=""+989171255391""
test
ارسال می شه !!!