利用VB 实现短消息收发

利用VB 实现短消息收发摘要：近来，笔者用VB 开发了一套PC 机上的短消息收发软件，本文根据笔者的实际开发经验整理而得。文中介绍了在计算机上实现短消息收发的模式，重点描述了PDU 模式，包括PDU 模式下的UCS2 编码、解码原理，以及发送与接收PDU 串的编制方式，在此基础上介绍了利用VB 中的MSCOMM 控件，实现短消息收发的核心程序。关键字：短消息收发、PDU 模式、UCS2 编解码、UNICODE 码、AT 指令、MSCOMM 控件正文：现在，短消息收发软件得到越发广泛的应用，从政府机关、学校到广大的传媒机构，直至诸多的企事业单位，颇受使用者欢迎。首先，手机用户的普及为这类软件的出现提供了可能，而使用这类软件，与人们传统惯用的打电话、发电子邮件等通讯方式相比，有独到的优点，它能将信息及时送达对方，不会像查收信件（或电邮）存在时间上的延误，也不存在类似于打电话占线或无人接听之类的烦恼；短消息收发软件可以实现消息收发双方的实时交互，用它还可以实现消息的群体发送或定时发送等。最近，笔者尝试用VB 来开发一套实现短消息收发功能的信息系统。至提笔之时，整套系统已经开发完毕。鉴于篇幅的原因，笔者不可能将整个系统一一尽数，而只能将开发过程中与短消息收发功能相关的一些技术要点和心得体验与众读者进行分享。一、短消息收发的实现模式目前，计算机串口上连接GSM MODEM，用它向手机发送短消息,是比较适合于小型项目开发的一种实现模式。这种方法要求对AT 指令集和串口编程比较熟悉。在开发过程中笔者使用的是索尼爱立信公司的GM29 模块。这种方法收发短消息又分三种模式：BLOCK 模式、TEXT 模式和PDU 模式。BLOCK 模式已是昔日黄花，现在用的很少了； TEXT 模式则只能发送ASCII 码,它不能发送中文的UNICODE码——确切地讲，从技术上来说是可以用于发送中文短消息的，但是国内的手机基本上不支持；而PDU 模式开发起来则较为复杂,它需要编写专门的函数来将文本转换为PDU 格式,但PDU 模式被所有手机支持，可以使用任何字符集，它也是手机默认的编码方式。笔者在开发中正是选用的PDU 模式。二、PDU 模式用PDU 模式收发短消息可以使用三种编码: 7-bit 编码、8-bit 编码和UCS2 编码。 7-bit编码用于发送普通的ASCII 字符；8-bit 编码通常用于发送数据消息,如图片或铃声等；UCS2编码用于发送Unicode 字符。由于笔者在系统中要实现中文短消息的发送,所以选择用UCS2编码,即中文Unicode 码。（一）UCS2 编码原理所谓UCS2 编码，是将单个的字符(1-2 个字节)按ISO/IEC10646 的规定，转变为16 位的Unicode 宽字符。即将单个的字符转换为由四位的‘0’-‘9’、 ‘A’-‘F’的数字和字母组成的字符串。待发送的消息以UCS2 码的形式进行发送。先介绍VB 中的Ascw()和Hex()函数。Ascw（）函数用来求出字符串的Unicode 值；Hex()函数返回表示十六进制数字值的字符串。对这两个函数用例子来说明:?Ascw("您")24744?Hex(24744)60A8____________________________________________________________w_w__w_._p_a_p_e_r._e_d_u_.c_n因此，字符“您”的UCS2 编码为：60A8（十六进制数字）。（二）发送PDU 串的编制分析通过UCS2 编码我们得到中文Unicode 码，接着就可以进行发送PDU 串的编制了。从表面上看，PDU 串是ASCII 码串，同样由‘0’-‘9’、 ‘A’-‘F’这些数字和字母组成。它们是8 位字节的十六进制数，或者BCD 码十进制数。PDU 串除了包含所发送的消息本身外，还包含很多其它参数信息，如服务中心号码、目标号码和编码方式等。现用一个实例说明发送PDU 串的结构和编排方式。例：08 91 683108100005F0 31 00 0D 91 683125503956F9 00 08 C2 06 60A8597DFF01参照规范，具体分析：分段 含义 解释说明08 SMSC 地址信息的长度 共8 个八位字节(包括91)91 SMSC 地址格式(TON/NPI) 用国际格式号码(在前面加‘+’)68 31 08 10 00 05 F0 SMSC 地址 8613800100500，补‘F’凑成偶数个31 基本参数(TP-MTI/VFP) 要求发送回复00 消息基准值(TP-MR) 00D 目标地址数字个数 共13 个十进制数91 目标地址格式(TON/NPI)A1：国内格式91：国际格式81：未知，+86 可带可不带。68 31 25 50 39 56 F9 目标地址(TP-DA) 8613520593659，补‘F’凑成偶数个00 协议标识(TP-PID) 是普通GSM 类型，点到点方式08用户信息编码方式(TP-DCS)00：表示7-bit 编码， 08：表示UCS2 编码，04：表示8-bit 编码。C2 有效期(TP-VP) 5 分钟06 用户信息长度(TP-UDL) 实际长度6 个字节60 A8 59 7D FF 01 用户信息(TP-UD) “您好！”表一 发送PDU 串的编制分析这里需要注意的几点：①.比较SMSC 地址分段：68 31 08 10 00 05 F0 与真实SMSC 地址8613800100500F(为了凑足14 位，在末尾补F),不难发现只需将前者奇偶位对调即可得到后者。同样，目标地址分段68 31 25 50 39 56 F9 与实际目标地址13520593659F 之间的关系也是如此。②.若“SMSC 地址信息的长度”分段的值为00，则意味着SMSC 地址字符串的长度为零，PDU 串的“SMSC 地址格式”段和“SMSC 地址”段将省去。且将使用SIM 卡设置的SMSC 地址。上例中的PDU 串变为：00 31 00 0D 91 683125503956F9 00 08 C2 06 60A8597DFF01③. 对于用户信息长度,可通过VB 中的Len 函数求得,如“您好！”,用Len(“您好！”)得到是3,那么3*2=6 即为用户信息长度06(这里要转换为16 进制,并且是两位)。④．用户信息(TP-UD)段最大容量是140 字节，所以在UCS2 编码方式下，可发送短消息的最大字符数是70 个。（三）UCS2 解码接收短消息时，需要将收到的用UCS2 编码（用户信息编码方式为08）的消息串解码成字符串字符。与编码时的Ascw()相对应，VB 中的Chrw()函数用来将Unicode 值转化为字符串字符。只要对Unicode 码求Unicode 值，调用Chrw()便可转换成字符串字符。中_国__科__技__论__文__在__线_______________________________________________w_w_w__.p_a_p_e_r_.e_d_u_._cn例: UCS2 码60A8，求得它的Unicode 值为24744?Chrw(24744)您当然，在接收消息时，可能不仅收到UCS2 格式编码的PDU 串，也可能是7bit 编码格式（TP-DCS 为00）或8bit 编码格式（TP-DCS 为04）的PDU 串。对这两种情况，笔者也编了相应的解码算法，且它们的算法要相对简单，由于着重介绍UCS2 解码，7bit 与8bit 解码就不再多介绍了。（四）接收PDU 串的编制分析接收PDU 串和发送PDU 串结构是不完全相同的。通过一个实例来分析，假定收到的短消息其PDU 串为：08 91 68 31 08 10 00 05 F0 04 0D 91 68 31 25 50 39 56 F9 00 08 40 40 60 31 35 3023 06 60 A8 59 7D FF 01参照规范，具体分析：分段 含义 解释说明08 SMSC 地址信息的长度 共8 个八位字节(包括91)91 SMSC 地址格式(TON/NPI) 用国际格式号码(在前面加‘+’)68 31 08 10 00 05 F0 SMSC 地址 8613800100500，补‘F’凑成偶数个84 基本参数(TP-MTI/MMS/RP) 接收，无更多消息，有回复地址0D 回复地址数字个数 共13 个十进制数(不包括91 和‘F’)91 回复地址格式(TON/NPI) 国际格式68 31 25 50 39 56 F9 回复地址(TP-RA) 8613520593659，补‘F’凑成偶数个00 协议标识(TP-PID) 是普通GSM 类型，点到点方式08 用户信息编码方式(TP-DCS) UCS2 编码40 90 10 31 35 30 23 服务时间戳(TP-SCTS) 2004-09-01 13:53:0306 用户信息长度(TP-UDL) 实际长度6 个字节60 A8 59 7D FF 01 用户信息(TP-UD) “您好！”表二 接收PDU 串的编制分析通过分析，我们可以获取其中的有用信息。如：短信服务中心号码是+8613800100500，发送方号码是13520593659，发来的消息内容是“您好!”，以及发送时间是：2004-09-0113:53:03。三、短消息发送和接受的功能实现打开VB 6.0，从工程菜单的部件选项中添加Microsoft Comm Control 6.0 控件到工具栏，在窗体里添加COMM 控件，点右健进行属性设置：在“通用”选项选择可用的端口，设置属性参数；在“缓冲”选项设置输入输出缓冲值，设置Ｒ阀值（设为１）和Ｓ阀值（设为０）；在“硬件”选项选中RTS 有效。初始化：MSComm1.CommPort = 1 '选择串口COM1MSComm1.Settings =" 9600,N,8,1" '9600 波特,无奇偶校验,8 位数据,一个停止位MSComm1.InputLen = 0 '读入整个缓冲区（一）、发送消息的程序实现前面已经对发送PDU 串的编制进行了分析，对于编好的PDU 串，就可利用COMM 控件，通过相应的AT 指令来实现短消息的发送。用来实现消息发送的AT 指令是：AT+CMGS 。以前面用的发送PDU 串为例，即发送内容为“您好！”，接受方手机号为13520593659；需要说明的是，在此笔者省去了对SMSC 地址格式和SMSC 地址这两个分段的编写，采用了SIM 卡设置的SMSC 地址。即发送的PDU 串为：0031000D91683125503956F90008C20660A8597DFF01，具中_国__科__技__论__文__在__线_______________________________________________w_w_w__.p_a_p_e_r_.e_d_u_._cn体程序如下：If MSComm1.PortOpen = False Then MSComm1.PortOpen = True '确认打开串口MSComm1.Output = "AT+CMGF=0" + vbCr '以PDU 模式发送短信TimeDelay '延时处理MSComm1.Output = "AT+CMGS=" & Str(15 + length) + vbCrTimeDelayMSComm1.Output="0031000D91683125503956F90008C20660A8597DFF01"MSComm1.Output = Chr$(26)TimeDelaybuf = MSComm1.Input 'buf 是自定义的一个string 型的变量If InStr(buf, "OK") Then '若发送成功MsgBox "发送成功！", vbInformation, "系统消息"Else If InStr(buf, "ERROR") Then '若发送失败MsgBox "发送失败！", vbInformation, "系统消息"End if在程序语句：MSComm1.Output = "AT+CMGS=" & Str(15 + length) + vbCr 中， 15表示所发送的PDU 串中31000D91683125503956F90008C206 的位数，而length 的取值（此例中为6）为60A8597DFF01 的位数。程序中的TimeDelay 是笔者自定义的用来处理延时操作的函数，因为在连续的两个AT 指令之间需要设置一定的间隔时间（设为了1 秒），为每一条发送的指令提供响应时间。（二）、接收消息的程序实现先介绍几个相关的AT 指令，（1）AT+CPMS，优先信息存储。该命令用来指定读写信息的存储区域。在这里设置AT+CPMS＝”SM”,”SM”,”SM”。使收到的短消息存储在GM29 模块中的SIM 卡上，不是存储在模块本身的内存中。（2）AT+CNMI，新信息指示, 可用于设定当有某类短消息到达时，如何处置它。在此不对它的详细指令语法多做介绍了,这里设置为AT+CNMI＝3,1，这样，当收到一条新消息时，系统就会收到一个提示信息，格式如：+CMTI:"SM",1 。（3）AT&W， 用来保存所做的设置。在保存了上述设置后，当软件收到新消息到达的提示信息时（假定是：+CMTI: "SM",1。说明它存在了SIM 卡上，并且序号为1），可以发送AT+CMGR 指令，用它来读取该指定位置的消息。我们仍用前面进行接收PDU 串分析时使用的PDU 串为例，程序实现如下：If MSComm1.PortOpen = False Then MSComm1.PortOpen = TrueMSComm1.InBufferCount = 0MSComm1.Output = "AT+CMGR=1" + vbCrTimeDelay同时设置COMM 控件的OnComm 事件：Private Sub MSComm1_OnComm()Dim buf As VariantSelect Case MSComm1.CommEventCase comEvReceiveMSComm1.InputMode = comInputModeTextDobuf = buf & MSComm1.InputLoop Until InStr(buf, "OK" & vbCrLf)Case Else中_国__科__技__论__文__在__线_______________________________________________w_w_w__.p_a_p_e_r_.e_d_u_._cnEnd SelectEnd Sub这时，COMM 控件读取回的全部内容存放在变量buf 中，此例中buf 值为：+CMGR: 1,,220891683108100005F0040D91683125503956F90008404060313530230660A8597DFF01OK有时候可能并不知道新消息在SIM 卡上的实际存储位置的序号，或新消息可能不止一条，这时可以用AT+CMGL 指令来读取。它用来同时列出SIM 卡上的信息： AT+CMGL＝０，用来列出SIM 卡上所有未读取的新消息； AT+CMGL＝４，列出SIM 卡上的所有消息。程序实现如下：If MSComm1.PortOpen = False Then MSComm1.PortOpen = TrueMSComm1.InBufferCount = 0MSComm1.Output = "AT+CMGL=0" + vbCrTimeDelay同样要设置OnComm 事件，这时buf 为：+CMGL: 1,0,,220891683108100005F0040D91683125503956F90008404060313530230660A8597DFF01OK因为此时SIM 卡上只有一条新消息，所以buf 只列出了一条，若同时有多条，将会全部列出。这时，我们可以取其中的接收PDU 串：0891683108100005F0040D91683125503956F90008404060313530230660A8597DFF01进行解码分析，获得消息内容。具体分析前面已经做了详细介绍，在此就不再累赘了。