資源描述：
《visual basic設(shè)計手機短信收發(fā)程序》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、用VisualBasic設(shè)計手機短信收發(fā)程序中文轉(zhuǎn)換成Unicode碼函數(shù) 因為手機短消息的發(fā)送是以PDU串的形式發(fā)送出去的，中文字符以Unicode碼來表示，所以在發(fā)送中文短消息之前必須首先將中文字符轉(zhuǎn)換為Unicode碼，下面的函數(shù)將實現(xiàn)這個功能。這個函數(shù)主要應(yīng)用到VB自帶的一個格式轉(zhuǎn)換函數(shù)：ChrW（）將中文轉(zhuǎn)換為Unicode代碼。PublicFunctionchg(rmsgAsString)AsString DimtepAsString DimtempAsString DimiAsInteger DimbAsInteger
2、 tep=rmsg i=Len(tep) b=i/4 Ifi=b*4Then b=b-1 tep=Left(tep,b*4) Else tep=Left(tep,b*4) EndIf chg="" Fori=1Tob temp="&H"&Mid(tep,(i-1)*4+1,4) chg=chg&ChrW(CInt(Val(temp))) NextiEndFunctioncode碼?！ 《绦胖行氖謾C號碼的PDU串轉(zhuǎn)換函數(shù) 同上，為了發(fā)送以PDU模式發(fā)送短消息，必須將手機號碼和對方手機號碼也轉(zhuǎn)換為PDU格式，下面的函數(shù)就是為了
3、實現(xiàn)這種轉(zhuǎn)換：PublicFunctiontelc(numAsString)AsString DimtlAsInteger Dimltem,rtem,ttemAsString DimtiAsInteger ttem="" tl=Len(num) Iftl<>11Andtl<>13Then MsgBox"wrongnumber."&tl ExitFunction EndIf Iftl=11Then tl=tl+2 num="86"&num EndIf Forti=1TotlStep2 ltem=Mid(num,ti,1) r
4、tem=Mid(num,ti+1,1) Ifti=tlThenrtem="F" ttem=ttem&rtem<em Nextti telc=ttemEndFunction 手機號碼有兩種表示方法：11位和13位（帶國家碼86），一般手機發(fā)送時都是以13位形式表示的，所以以上的函數(shù)還有一個功能是自動將11位格式手機號碼轉(zhuǎn)換為13位形式，然后再轉(zhuǎn)換為PDU串?！ ∈謾C短信的發(fā)送 手機短信的發(fā)送主要借助于VB的Mscomm控件實現(xiàn)，關(guān)于Mscomm控件，前面的技術(shù)介紹部分有詳細介紹。短信的發(fā)送是由AT+CMGS指令完成的，采用P
5、DU模式發(fā)送，函數(shù)代碼如下：Constprex="0891"Constmidx="11000D91"Constsufx="000800"PublicFunctionSendsms(cscaAsString,numAsString,msgAsString)As_Boolean Dimpdu,psmsc,pnum,pmsgAsString DimlengAsString DimlengthAsInteger length=Len(msg) length=2*length leng=Hex(length) Iflength<16Thenle
6、ng="0"&leng psmsc=Trim(telc(csca)) pnum=Trim(telc(num)) pmsg=Trim(ascg(msg)) pdu=prex&psmsc&midx&pnum&sufx&leng&pmsg sleep(1) mobcomm.Output="AT+CMGF=0"+vbCr mobcomm.Output="AT+CMGS="&Str(15+length)+vbCr mobcomm.Output=pdu&Chr$(26) sleep(1) Sendsms=TrueEndFunction 因為手機
7、同一時間只能處理一件事情，因此這個函數(shù)只負責(zé)發(fā)送短信，關(guān)于短信發(fā)送成功與否以及閱讀短信的部分集中在一起處理。判斷手機短信發(fā)送成功與否主要由AT+CMGS命令執(zhí)行以后的返回碼來決定（可參見前文的AT指令介紹部分）?！ 榱朔乐故謾C因過于繁忙而出錯，這里采取了一定的方法讓手機有充分的時間處理發(fā)送和接收及刪除等操作。Sleep()函數(shù)正是為此而設(shè)計的，在發(fā)送及刪除操作后都會讓程序暫停一秒，這樣就不至于使得手機過于繁忙?！ ∈謾C短信的接收 Unicode碼解碼函數(shù) 相比于手機短信的發(fā)送而言，手機短信的接收主要的工作正好與之相反。手機短信的
8、發(fā)送需要將待發(fā)送的短信內(nèi)容轉(zhuǎn)換為Unicode碼，而短信的接收則需要將接收到的Unicode碼轉(zhuǎn)換成中文字符。下面的函數(shù)將實現(xiàn)解碼功能。同手機短信發(fā)送的編碼函數(shù)一樣，這里也應(yīng)用了一個VB內(nèi)置的函數(shù)AscW（）函數(shù)來將Un
