Windows 응용 프로그램에서 SMS를 보내려고합니다. 코드를 실행했지만 오류가 발생했습니다. 이것은Windows 응용 프로그램을 통해 SMS를 보내는 방법
AT
OK AT+CMGF=1
OK AT+CSCA="+9460921985"
OK AT+CMGS="+9660775564"
this is new message
+CMS ERROR: 500
이 코드를 사용하고 있습니다.
Public Class Form2
Dim number As String = "+9660775564"
''# Dim message As String = TextBox1.Text
Dim serialport As New IO.Ports.SerialPort
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try With serialport
.PortName = "COM5" ''# "COM24"
.BaudRate = "9600"
.Parity = IO.Ports.Parity.None
.DataBits = 8
.StopBits = IO.Ports.StopBits.One
.Handshake = IO.Ports.Handshake.RequestToSend
.DtrEnable = True .RtsEnable = True
End With
serialport.Open()
''# checks phone status
serialport.WriteLine("AT" & vbCrLf)
''# Configures message as SMS
serialport.WriteLine("AT+CMGF=1" & vbCrLf)
''# Sets message center number
''# serialport.WriteLine("AT+CSCA=""+447785016005""" & vbCrLf)
serialport.WriteLine("AT+CSCA=""+9460921985""" & vbCrLf)
''# Sets destination number
serialport.WriteLine("AT+CMGS=""" & number & """" & vbCrLf)
''# Specifies message and sends Ctrl+z
serialport.WriteLine(TextBox1.Text & Chr(26))
''# Displays buffer containing output messages
System.Threading.Thread.Sleep(2000) ''# CurrentThread.Sleep(2000)
MsgBox(serialport.ReadExisting)
serialport.Close()
MessageBox.Show("OK")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
미리 도움을 주셔서 감사합니다.
직렬 포트에 무엇이 연결되어 있습니까? – cjk
나는 그 전화를 희망한다 : – samjudson