visual basic設(shè)計手機(jī)短信收發(fā)程序

visual basic設(shè)計手機(jī)短信收發(fā)程序

ID:14600021

大小:29.00 KB

頁數(shù):6頁

時間:2018-07-29

visual basic設(shè)計手機(jī)短信收發(fā)程序_第1頁
visual basic設(shè)計手機(jī)短信收發(fā)程序_第2頁
visual basic設(shè)計手機(jī)短信收發(fā)程序_第3頁
visual basic設(shè)計手機(jī)短信收發(fā)程序_第4頁
visual basic設(shè)計手機(jī)短信收發(fā)程序_第5頁
資源描述:

《visual basic設(shè)計手機(jī)短信收發(fā)程序》由會員上傳分享,免費(fèi)在線閱讀,更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫

1、用VisualBasic設(shè)計手機(jī)短信收發(fā)程序中文轉(zhuǎn)換成Unicode碼函數(shù)  因?yàn)槭謾C(jī)短消息的發(fā)送是以PDU串的形式發(fā)送出去的,中文字符以Unicode碼來表示,所以在發(fā)送中文短消息之前必須首先將中文字符轉(zhuǎn)換為Unicode碼,下面的函數(shù)將實(shí)現(xiàn)這個功能。這個函數(shù)主要應(yīng)用到VB自帶的一個格式轉(zhuǎn)換函數(shù):ChrW()將中文轉(zhuǎn)換為Unicode代碼。PublicFunctionchg(rmsgAsString)AsString DimtepAsString DimtempAsString DimiAsInteger DimbAsInteger t

2、ep=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(jī)號碼的PDU串轉(zhuǎn)換函數(shù)  同上,為了發(fā)送以PDU模式發(fā)送短消息,必須將手機(jī)號碼和對方手機(jī)號碼也轉(zhuǎn)換為PDU格式,下面的函數(shù)就是為了實(shí)現(xiàn)這種

3、轉(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)  rtem=Mi

4、d(num,ti+1,1)  Ifti=tlThenrtem="F"  ttem=ttem&rtem<em Nextti telc=ttemEndFunction  手機(jī)號碼有兩種表示方法:11位和13位(帶國家碼86),一般手機(jī)發(fā)送時都是以13位形式表示的,所以以上的函數(shù)還有一個功能是自動將11位格式手機(jī)號碼轉(zhuǎn)換為13位形式,然后再轉(zhuǎn)換為PDU串?! ∈謾C(jī)短信的發(fā)送  手機(jī)短信的發(fā)送主要借助于VB的Mscomm控件實(shí)現(xiàn),關(guān)于Mscomm控件,前面的技術(shù)介紹部分有詳細(xì)介紹。短信的發(fā)送是由AT+CMGS指令完成的,采用PDU模式發(fā)送,函

5、數(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<16Thenleng="0"&len

6、g 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  因?yàn)槭謾C(jī)同一時間只能處理一件事情

7、,因此這個函數(shù)只負(fù)責(zé)發(fā)送短信,關(guān)于短信發(fā)送成功與否以及閱讀短信的部分集中在一起處理。判斷手機(jī)短信發(fā)送成功與否主要由AT+CMGS命令執(zhí)行以后的返回碼來決定(可參見前文的AT指令介紹部分)?! 榱朔乐故謾C(jī)因過于繁忙而出錯,這里采取了一定的方法讓手機(jī)有充分的時間處理發(fā)送和接收及刪除等操作。Sleep()函數(shù)正是為此而設(shè)計的,在發(fā)送及刪除操作后都會讓程序暫停一秒,這樣就不至于使得手機(jī)過于繁忙?! ∈謾C(jī)短信的接收  Unicode碼解碼函數(shù)  相比于手機(jī)短信的發(fā)送而言,手機(jī)短信的接收主要的工作正好與之相反。手機(jī)短信的發(fā)送需要將待發(fā)送的短信內(nèi)容轉(zhuǎn)

8、換為Unicode碼,而短信的接收則需要將接收到的Unicode碼轉(zhuǎn)換成中文字符。下面的函數(shù)將實(shí)現(xiàn)解碼功能。同手機(jī)短信發(fā)送的編碼函數(shù)一樣,這里也應(yīng)用了一個VB內(nèi)置的函數(shù)AscW()函數(shù)來將Un

當(dāng)前文檔最多預(yù)覽五頁,下載文檔查看全文

此文檔下載收益歸作者所有

當(dāng)前文檔最多預(yù)覽五頁,下載文檔查看全文
溫馨提示:
1. 部分包含數(shù)學(xué)公式或PPT動畫的文件,查看預(yù)覽時可能會顯示錯亂或異常,文件下載后無此問題,請放心下載。
2. 本文檔由用戶上傳,版權(quán)歸屬用戶,天天文庫負(fù)責(zé)整理代發(fā)布。如果您對本文檔版權(quán)有爭議請及時聯(lián)系客服。
3. 下載前請仔細(xì)閱讀文檔內(nèi)容,確認(rèn)文檔內(nèi)容符合您的需求后進(jìn)行下載,若出現(xiàn)內(nèi)容與標(biāo)題不符可向本站投訴處理。
4. 下載文檔時可能由于網(wǎng)絡(luò)波動等原因無法下載或下載錯誤,付費(fèi)完成后未能成功下載的用戶請聯(lián)系客服處理。