下载源代码

介绍

代码实现了从PC通过带GSM modem的GSM手机发送短信。

背景

我们所使用的AT命令被用于电脑和MODEM间的通讯。

Microsoft windows提供了超级终端软件可以实现这一通讯过程。

开始->程序->附件->通讯->超级终端

可以在里面输入AT命令，超级终端与MODEM/手机直接通讯来控制它们。

它返回OK或错误信息的回应。如果我们需要在应用程序中发送SMS，需要手工键入命令的超级终端就用不上了。

你需要选择MODEM/手机所连接的COM端口（对于MODEM端口可以是串口，对于手机可以是USB端口）

请参考下面的代码：

首先，连接MODEM或手机。到设备管理器查看MODEM/手机连接到了哪个COM口（如COM3,COM4）

//
// 如果设备管理器中显示是 COM3，请把COM4改为COM3
//

Dim SMSEngine As New SMSCOMMS("COM4")

'端口需要初始化

SMSPort = New SerialPort
        With SMSPort
            .PortName = COMMPORT
            .BaudRate = 19200
            .Parity = Parity.None
            .DataBits = 8
            .StopBits = StopBits.One
            .Handshake = Handshake.RequestToSend
            .DtrEnable = True
            .RtsEnable = True
            .NewLine = vbCrLf
        End With 

'将AT命令写入串口
SMSPort.WriteLine("AT")

'命令信息格式为文本模式:1
SMSPort.WriteLine("AT+CMGF=1" & vbCrLf) 

'设置服务中心号码
SMSPort.WriteLine("AT+CSCA=""+919822078000""" & vbCrLf)             
' 短信接收者的手机号码
SMSPort.WriteLine("AT+CMGS=  + TextBox1.text + " & vbCrLf) 
_ContSMS = False
SMSPort.WriteLine("+ TextBox1.text +" & vbCrLf & Chr(26)) '发送短信

Dim i As Integer
Private Sub Button1_Click(ByVal sender As System.Object,
       ByVal e As System.EventArgs) Handles Button1.Click

        SMSEngine.Open() '打开端口
        SMSEngine.SendSMS() '发送短信

End Sub