自-用Visual Basic设计手机短信收发程序.doc

用Ｖisｕal Ｂasic设计短信收发程序ﻩ 　中文转换成Uｎｉｃodｅ码函数 ﻫ　 因为短消息的发送是以PDU串的形式发送出去的，中文字符以Uniｃode码来表示，所以在发送中文短消息之前必须首先将中文字符转换为Ｕnｉcode码,下面的函数将实现这个功能这个函数主要应用到VB自带的一个格式转换函数:ChrW(）将中文转换为Unｉcｏde码Pｕblic Ｆunｃｔiｏn cｈｇ(rmsg As Stｒing)　As Stｒingﻫ Dim　tｅｐ Ａs String　Dｉm ｔemｐ　Aｓ Stringﻫ Dim i　As Integerﻫ Dｉｍ　b Ａs Ｉｎteger tep　= rmsgﻫ　i =　Len(tep)ﻫ b　=　ｉ　／ ４　Ｉf i = b *　4 Ｔｈeｎ　　ｂ ＝ b　- 1ﻫ　 teｐ　= Leｆt(tep, ｂ　＊　4）ﻫ　Elｓeﻫ　　ｔeｐ = Ｌｅft(tep, b　*　４)　Eｎd If　chg　＝　＂" Ｆoｒ i = 1 To　ｂ 　temp　＝ "&Ｈ" ＆ Mｉｄ（tep， (i - 1） *　4 + 1， 4) ｃhｇ =　chg &　CｈrW（CＩnt(Val（ｔemp)))ﻫ　Nexｔ ｉEnd Fｕｎcｔｉonﻫﻫ 短信中心号码的PＤU串转换函数　 同上，为了发送以PＤＵ模式发送短消息，必须将号码和对方号码也转换为PＤU格式,下面的函数就是为了实现这种转换:Ｐｕblic Funcｔｉｏn teｌc(num Ａs Strinｇ） As Stｒｉng　Ｄiｍ tｌ As　Ｉntegeｒﻫ　Ｄim ltem,　rtem， ttem As　Stｒinｇﻫ　Ｄｉm ti　As Ｉnｔegｅｒﻫ ttem ＝ ""ﻫ　ｔl ＝ Lｅn(nuｍ）　If tｌ <＞ １1 And　tｌ　＜> 13　Ｔhenﻫ 　ＭsgBox "wｒoｎg　ｎｕmｂeｒ." & tl　 Ｅxit Ｆunctionﻫ End Ifﻫ Iｆ tl = 11 Theｎﻫ 　ｔl　＝ tl + 2　　num = ＂８6" &　nuｍﻫ　Eｎｄ Ifﻫ　For tｉ ＝　1 To ｔl Stｅp 2　　lｔem = Ｍid(num，　ti, 1)　　ｒtem = Mid(nｕm, ｔi +　1,　1) Ｉf　ti = tｌ Tｈen ｒtem = "F"ﻫ　 ｔtｅm =　tteｍ　&　ｒtｅｍ & ltemﻫ Nｅxt tiﻫ ｔelｃ　=　ttemﻫEnd　Functionﻫ 　号码有两种表示方法：１１位和13位（带国家码８6),一般发送时都是以13位形式表示的，所以以上的函数还有一个功能是自动将１1位格式号码转换为13位形式，然后再转换为ＰDU串。

ﻫ 　短信的发送　　短信的发送主要借助于VB的Mscomm控件实现,关于Mｓｃomｍ控件，前面的技术介绍部分有详细介绍短信的发送是由AＴ+CMGＳ指令完成的,采用PDU模式发送,函数代码如下：Conｓt　prｅｘ　= "0891"Cｏnst mｉdx = "110０0Ｄ91"Ｃoｎst sufx = "000８00＂ﻫPuｂlic　Functiｏｎ Sｅndsms(csca　As String, nｕｍ As String, mｓg　Ａs Strｉng) Aｓ _Bｏolｅanﻫ　Dim pdu， psｍsc， pnuｍ， pmsg Ａs String Dim ｌeｎg Ａs Ｓtrinｇ Diｍ length As Ｉntｅgerﻫﻫ length　= Ｌeｎ(ｍsg） length　=　2 * lｅngthﻫ lｅng = Ｈｅx(length） If　lｅngｔｈ ＜　16 Then　lenｇ = ＂０"　& ｌeng　psmｓc ＝　Trim（telc(csｃa))ﻫ　pnｕm ＝ Trim(teｌｃ(num)）ﻫ　pmsg　= Ｔriｍ(aｓcｇ(msg）)ﻫ　pdｕ = preｘ ＆　psｍsｃ &　midx ＆ pnｕm & suｆx &　leｎg　& pmsg　ｓleeｐ(１) mobcｏｍm．Ouｔput ＝ "AＴ+CＭGF=０" + vbCr　ｍoｂcoｍm.Ouｔput = "AT+CMGS="　&　Ｓｔｒ(15 +　lenｇtｈ) + vbCrﻫ　mobｃomｍ.Ouｔｐｕt = pｄu　& Ｃhｒ$(２６)　sleep(1)ﻫ Sendｓms = TrｕeﻫEnd Functiｏn 因为同一时间只能处理一件事情，因此这个函数只负责发送短信，关于短信发送成功与否以及阅读短信的部分集中在一起处理。

判断短信发送成功与否主要由AＴ＋CＭGS命令执行以后的返回码来决定(可参见前文的ＡT指令介绍部分）ﻫ　 为了防止因过于繁忙而出错，这里采取了一定的方法让有充分的时间处理发送和接收及删除等操作Ｓｌeｅp()函数正是为此而设计的,在发送及删除操作后都会让程序暂停一秒，这样就不至于使得过于繁忙ﻫ　 短信的接收ﻫ　 Ｕnicｏdｅ码解码函数ﻫ　 相比于短信的发送而言,短信的接收主要的工作正好与之相反短信的发送需要将待发送的短信内容转换为Unicｏde码，而短信的接收则需要将接收到的Unicｏdｅ码转换成中文字符下面的函数将实现解码功能同短信发送的编码函数一样,这里也应用了一个VＢ内置的函数AｓｃW(）函数来将Uniｃｏde码转换为中文：Ｐuｂlic Function aｓcg(smｓg As　Stｒｉng) As Sｔrｉｎgﻫ　Dｉｍ si， sｂ Ａｓ　Integer Diｍ sｔｍp Aｓ Iｎtegeｒ Ｄim steｍp　Ａs Ｓtriｎg sｂ　= Leｎ(smsｇ)ﻫ　aｓcg = "" Ｆｏｒ ｓi =　１ Ｔｏ sb　　sｔmｐ ＝　ＡｓcW(Ｍid（smsg, si， 1))ﻫ　　Iｆ Abｓ（stmｐ)　＜　127 Tｈenﻫ 　stemp ＝ "00" &　Ｈｅx(stｍp) Ｅｌseﻫ　　　steｍp　= Ｈｅx(stmp）　　Ｅnd Ifﻫ　　ａscg ＝ ascg　& stempﻫ Ｎexｔ siﻫ　aｓcg =　Ｔriｍ（aｓｃg)End Funcｔionﻫ　　短信接收函数ﻫ　 相对于短信的发送函数而言，短信的接收相当简单，只需要以下的三行代码就完成了。

但是它使用的技术却决不比短信的发送少，这里主要用到了Ｍscｏｍm控件的Output属性和AT+CMGR指令Ｐublic Suｂ readｓms(rnｕm Aｓ Ｓtring）ﻫ mｏbcomm.Output　= "ＡT+ＣMGＦ=1" + vbCrﻫ　mobcｏｍm.Output = "AT+ＣMGR=" & rnum ＋ vbCrＥｎd Sub。