手機短信發送
² 中文轉換成Unicode碼函數
因爲手機短消息的發送是以PDU串的形式發送出去的,中文字符以Unicode碼來表示,所以在發送中文短消息之前必須首先將中文字符轉換爲Unicode碼,下面的函數將實現這個功能。這個函數主要應用到VB自帶的一個格式轉換函數:ChrW()將中文轉換爲Unicode碼。
Public Function chg(rmsg As String) As String Dim tep As String Dim temp As String Dim i As Integer Dim b As Integer tep = rmsg i = Len(tep) b = i / 4 If i = b * 4 Then b = b - 1 tep = Left(tep, b * 4) Else tep = Left(tep, b * 4) End If chg = "" For i = 1 To b temp = "&H" & Mid(tep, (i - 1) * 4 + 1, 4) chg = chg & ChrW(CInt(Val(temp))) Next i End Function |
² 短信中心手機號碼的PDU串轉換函數
同上,爲了發送以PDU模式發送短消息,必須將手機號碼和對方手機號碼也轉換爲PDU格式,下面的函數就是爲了實現這種轉換:
Public Function telc(num As String) As String Dim tl As Integer Dim ltem, rtem, ttem As String Dim ti As Integer ttem = "" tl = Len(num) If tl <> 11 And tl <> 13 Then MsgBox "wrong number." & tl Exit Function End If If tl = 11 Then tl = tl + 2 num = "86" & num End If For ti = 1 To tl Step 2 ltem = Mid(num, ti, 1) rtem = Mid(num, ti + 1, 1) If ti = tl Then rtem = "F" ttem = ttem & rtem & ltem Next ti telc = ttem End Function |
手機號碼有兩種表示方法:11位和13位(帶國家碼86),一般手機發送時都是以13位形式表示的,所以以上的函數還有一個功能是自動將11位格式手機號碼轉換爲13位形式,然後再轉換爲PDU串。
² 手機短信的發送
手機短信的發送主要藉助於VB的Mscomm控件實現,關於Mscomm控件,前面的技術介紹部分有詳細介紹。短信的發送是由AT+CMGS指令完成的,採用PDU模式發送,函數代碼如下:
Const prex = "0891" Const midx = "11000D91" Const sufx = "000800" Public Function Sendsms(csca As String, num As String, msg As String) As _Boolean Dim pdu, psmsc, pnum, pmsg As String Dim leng As String Dim length As Integer length = Len(msg) length = 2 * length leng = Hex(length) If length < 16 Then leng = "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 = True End Function |
因爲手機同一時間只能處理一件事情,因此這個函數只負責發送短信,關於短信發送成功與否以及閱讀短信的部分集中在一起處理。判斷手機短信發送成功與否主要由AT+CMGS命令執行以後的返回碼來決定(可參見前文的AT指令介紹部分)。
爲了防止手機因過於繁忙而出錯,這裏採取了一定的方法讓手機有充分的時間處理髮送和接收及刪除等操作。Sleep()函數正是爲此而設計的,在發送及刪除操作後都會讓程序暫停一秒,這樣就不至於使得手機過於繁忙。
手機短信的接收
² Unicode碼解碼函數
相比於手機短信的發送而言,手機短信的接收主要的工作正好與之相反。手機短信的發送需要將待發送的短信內容轉換爲Unicode碼,而短信的接收則需要將接收到的Unicode碼轉換成中文字符。下面的函數將實現解碼功能。同手機短信發送的編碼函數一樣,這裏也應用了一個VB內置的函數AscW()函數來將Unicode碼轉換爲中文:
Public Function ascg(smsg As String) As String Dim si, sb As Integer Dim stmp As Integer Dim stemp As String sb = Len(smsg) ascg = "" For si = 1 To sb stmp = AscW(Mid(smsg, si, 1)) If Abs(stmp) < 127 Then stemp = "00" & Hex(stmp) Else stemp = Hex(stmp) End If ascg = ascg & stemp Next si ascg = Trim(ascg) End Function |
² 手機短信接收函數
相對於短信的發送函數而言,短信的接收相當簡單,只需要以下的三行代碼就完成了。但是它使用的技術卻決不比短信的發送少,這裏主要用到了Mscomm控件的Output屬性和AT+CMGR指令。
Public Sub readsms(rnum As String) mobcomm.Output = "AT+CMGF=1" + vbCr mobcomm.Output = "AT+CMGR=" & rnum + vbCr End Sub |
'=================================================================================
'=================================================================================很早以前,就注意到一些手機短消息的發送軟件,當時覺得那是多麼的神奇,可是從來沒有想過去開發一個自己的手機短消息軟件.臨近畢業,要做畢業論文,我選的畢業課題是機房安全系統的開發,主要是機房環境係數的監測以及報警功能的實現,其中就包括手機短消息報警和撥號報警.
手機的短消息實現目前有三種方法:
1.通過移動網關發送短消息,使用該方法不需要附加的硬件,但是需要到電信部門申請網關,比較適用於一些大型的網絡通訊公司開發,目前華爲,中興等公司就做的這方面的工作,並且還有相應的開發包供開發人員使用.
2.在電腦上通過GSM MODEM向手機發送中文短消息,這是目前比較適合於小項目開發的一種方法,所需硬件包括一款手機,提供GSM MODEM,以及相應的數據線或是紅外線適配器.該方法編碼簡單,只需對AT指令和串口編程比較熟悉就可以實現,而且對硬件需求不高,並能自動收發短消息.
3.通過一些網站上提供的短信發送功能來實現,比如新浪網,網易都提供這方面的服務,這種方法是這三種方法中實現起來最簡單,所需資源最少的,但是對於網站的依賴性太強,對網絡的依賴同樣無法避免,不適用於項目開發.
通過第二種方法收發短消息又分爲三種模式:Block模式、Text模式和Pdu。使用Block機生產廠家提供驅動支持,現在還沒有發現哪個廠家公佈支持這種短信發送模式,而Pdu模式開發起來比較複雜,並且需要編寫專門的函數來將文本轉換爲Pdu格式,比較繁瑣.相對而言,應用Text模式開發及方便也簡單,是一種不錯的選擇,不過使用Text模式開發只能發送ASCII碼,對於中文的Unicode碼不能發送.
使用Text模式發送短信其實很簡單,只要對於AT指令有基本的瞭解,就能編寫出短消息的發送程序,可是一直以來介紹該方法的文章卻少之又少,很多人認爲使用該方法太簡單,不值一提.不過對於簡單的應用來說,該方法也不失於一種不錯的選擇.
先在項目中添加Mscomm控件,一般的部件欄中可能沒有列出Mscomm控件,可以過右擊部件欄,選擇”部件”,或是通過在菜單中的”工程”選擇”部件”,然後選中Microsoft Comm Control 6.0即可.添加了Mscomm控件後,可以設置一些基本的參數.如果你使用Nokia的手機,你還必須安裝data suite(可以到Nokia的開發論壇上去下載一個),然後Mscomm的commport選擇3;如果你使用其他手機,採用紅外線接口,你必須安裝紅外線驅動程序.選擇相應的端口.下面的代碼是一些基本參數的設置:
Mscomm1.Settings=”9600,N,8,1” ‘9600波特,無奇偶校驗,8位數據,一個停止位
Mscomm1.InputLen=0 ‘讀入整個緩衝區
Mscomm1.Portopen=True ‘打開端口
發送短消息的代碼如下:
MSComm1.Output = "AT+CMGF=1" + vbCr ‘設置發送的模式,注意:一定要加上 vbCr
MSComm1.Output = "AT+CSCA=" & Chr$(34) & "8613010341500" & Chr$(34) & ",129" + vbCr ‘8613010341500是短消息中心,各地的號碼不一樣,必須設置當地的短消息號碼
MSComm1.Output = "AT+CMGS=" & Chr$(34) & "13057575064" & Chr$(34) & ",129" + vbCr ‘13057575064是對方手機號
MSComm1.Output = "test" & Chr$(26) ‘chr$(26)是Ctr+ Z
以上是簡單實現短消息,你可以根據AT指令集結合VB的串口控件開發出更加完善的程序和功能豐富的應用程序,如接收短消息,撥號等等.