ورود

View Full Version : مشکل در ارسال و دریافت اس ام اس


ak1_2004
دوشنبه 23 فروردین 1389, 08:14 صبح
گوشیم n78 هست !
این هم کدی که نوشتم !

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=" & "09171255391" & vbCrLf)
SerialPort1.WriteLine("> test" & vbCrLf & Chr(26))
SerialPort1.ReadLine()
RichTextBox1.Text = SerialPort1.ReadExisting
SerialPort1.Close()

کانکت می شه !
اگر از ATDT استفاده کنم شماره گیری می کنه !
اما از دستورات اس ام اس که استفاده می کنم کار نمی کنه ! و هیچی نشون نمی ده !
ak1_2004
دوشنبه 23 فروردین 1389, 16:49 عصر
با تغییرات زیر اس ام اس ارسال شد اما یک مشکل داره !
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

ارسال می شه !!!
mahdi206
یک شنبه 29 فروردین 1389, 23:29 عصر
باید آخرش; فراموش نشه
AT+CMGS="+989171255391";
ak1_2004
دوشنبه 30 فروردین 1389, 07:31 صبح
ممنون
یعنی باید اینجوری شه درسته ؟

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()