文件说明:

SMSCOM 使用方法：

1、 COPY SMSCOM.OCX 至  system 目录。

然后运行  regsvr32  SMSCOM.OCX

2、把SMSCOM控件加入工程文件（PROJECT）。

3、控件功能函数：

1)  初始化设备

short InitDevice(short nPort, short nBaud, short nType);

--- nPort :串口号      物理端口(1、2、...)

--- nBaud :波特率      9600

--- nType :设备类型    0   ( 0 -  PDU 模式,  1- Text 模式 )   

2)  发送短信

short SendMsg(LPCTSTR szPhone, LPCTSTR szText);

--- szPhone: 接收手机号     格式  "13xxxxxxxxx"或"8613xxxxxxxxx"

--- szText : 短信息内容     长度不超过70汉字,160字符.

3)  短信事件函数

short OnSMSEvent( short nID , BSTR  szPhone, BSTR szText, BSTR szTime)

--- nID     : 事件ID  

--- szPhone : 发送手机号

--- szText  : 短信息内容

--- szTime  : 发送时间

5)  删除短信

short SendCmd( "AT+CMGD = nIndex " );

--- nIndex  : 短信息在SIM卡中的位置号,范围由1至25。

6)  发送AT指令

short SendCmd( "AT+..." );

7)  注册控件

short RegSoftware(LPCTSTR szIMI, LPCTSTR szSerial)

--- szIMI   : IMEI号

--- szSerial: 注册号

8)  设置发送状态标志:

short SetStateReport(short nRequest, short nDevice)

--- nRequest:  0 - 不需要发送报告  1 - 需要

--- nDevice :  0  

9)  关闭设备,释放资源

short CloseDevice();

所有函数返回 0 成功， -1 失败。

4、事件函数： 

收到短信息、发送完成产生事件

OnSMSEvent( short nID , BSTR  szPhone, BSTR szText, BSTR szTime)

-- nID : 事件号

1    发送成功  

2    发送失败

3    接收到短信息

6    电池电量,0 - 100 .  外部电源供电时为 0 .

7    RF Level 信号强度 0 - 31

5、处理过程：

          |<---------------------------------------------------| 

          |                                                                  |

初始化 ---->  发信息 -----> 等待事件 --->发送完成--->|

---->  等待事件 ----> 接收事件到达 -----> 取收到信息 ---->| 

   |                                                                               |

   |<--------------------------------------------------------------|

测试SMSCOM的步骤:

1、使用数据线连接好GSM设备和PC机，GSM设备接上电源。

2、打开SMSCOM的测试软件 SMSTEST.EXE, 填连接端口号，点initDevice()初始化，几秒后返回

是否连接上设备。

3、连接成功后，进行发送测试。

填写手机号，发送信息，点SendMsg(),返回ok表示提交成功，6秒左右返回发送是否成功事件。

4、接收测试，连接成功后，向GSM设备发短信，接收到的信息将自动显示出来。

5、进行其他测试，删除SIM卡短信，读取SIM卡短信，取信号强度。

6、关闭设备,点CloseDevice()。

注册方法:

  打开 SMSTEST.EXE, 填写 IMEI 和 注册号 ,点"注册"按键.

  ************************

  IMEI  : 

  注册号: 

  ************************

VB 编程例子:

Private Sub Command1_Click() '初始化 Dim n As Integer n = Smscom1.InitDevice(Port.Text, Baud, szType.Text) If n = 0 Then MsgBox ("初始化成功.") n = Smscom1.SetStateReport(1, 0) '*<------ 设置发送状态报告 nRequest nDevice(保留,为0) Else: MsgBox ("初始化失败.") ' 不需要 0 0 End If ' 需要 1 0 End Sub Private Sub Command2_Click() '发送短信 Dim n As Integer n = Smscom1.SendMsg(Phone, outMessage) If (n <> 0) Then MsgBox ("请初始化设备.") End Sub Private Sub Command3_Click() '关闭设备 Dim n As Integer n = Smscom1.CloseDevice() '退出时必须调用!!,释放资源 MsgBox ("已关闭设备.") End Sub Private Sub Smscom1_SmsEvent(ByVal nID As Integer, ByVal szPhone As String, ByVal szText As String, ByVal szTime As String) ID = nID 'nID = 1 发送成功 ' = 2 发送失败 ' = 3 接收短信 ' = 4 状态报告 <--------------- New ' = 6 电池电量(0-100) ' = 7 信号强度(0-31) Sender = szPhone ' 发送者 inMessage = szText ' 消息, 信号强度, 电池电量 DateTime = szTime ' 时间 End Sub Private Sub Command4_Click() '主动删除短信,控件自动删除收到的短信,也可用其函数主动删除. Dim n As Integer n = Smscom1.SendCmd("AT+CMGD = " + Loc) '主动删除sim中Loc位置的短信, 参数Loc的范围 1 - 25 . End Sub Private Sub Command5_Click() '发送AT命令 Dim n As Integer n = Smscom1.SendCmd("ATDT1860;") '拨号1860 End Sub Private Sub Command6_Click() '注册函数在安装控件后,调用一次即可. Dim n As Integer n = Smscom1.RegSoftware(IMEI, SerialNo) ' IMEI 为手机设备号, 在手机上按 *#06# 显示 或 使用 AT+CGSN 指令读出 If n = 0 Then ' SerialNo 为注册号 MsgBox ("注册成功.") Else: MsgBox ("注册失败.") End If End Sub

技术支持:

电话: 020-85660053

EMAIL: y_y163@163.net