【導讀】前景極其樂觀的應用。本文只討論通過PC機串口控制GSM終端模塊實現(xiàn)中英文。存儲和處理，并詳細討論PDU模式的短信息格式和中文短信息軟件編解碼的設計。存儲和轉(zhuǎn)發(fā)功能。短信息服務作為GSM網(wǎng)絡的一種基本業(yè)務，已得到越來越多。的系統(tǒng)運營商和系統(tǒng)開發(fā)商的重視，基于這種業(yè)務的各種應用也蓬勃發(fā)展起來。無線數(shù)據(jù)的雙向傳送、無線遠程檢測和控制等。和存貨水平等等。本文選用GSM模塊BenQM22，通過建立PC機的串行口程。測系統(tǒng)）之間以GSM網(wǎng)絡為紐帶，即可實現(xiàn)遠距離的數(shù)據(jù)傳輸。由于GSM網(wǎng)絡在全國范圍內(nèi)實現(xiàn)了聯(lián)網(wǎng)和漫游，具有網(wǎng)絡能力強的特點，資成本大，維護費用高，且網(wǎng)絡監(jiān)控的覆蓋范圍和用戶數(shù)量有限的缺陷。的通信提供了一個強大的支持平臺。中心，計算機與模塊終端則通過串口進行通信。GSM引擎模塊提供的命令接口符合和規(guī)范。目前，發(fā)送短消息常用Text和PDU模式。發(fā)短信可以使用3種編碼：7-bit、8-bit和UCS2編碼。7-bit編碼用于發(fā)送普通

　　

【正文】 d If If = True Then = False End If = True 39。If = False Then 39。 = True 39。End If 39。 = AT+CMGD= amp。 + vbCr 39。 Sleep (300) 39。 If 0 Then 39。 = 0 39。 temp$ = 39。 = 0 39。 If InStr(buf, OK) Then 39。 MsgBox 該信息已刪除 ! 39。 Else 39。 MsgBox 信息刪除不成功 ! 39。 End If 20 39。 End If End Sub Private Sub Form_Load() Combo1(1).ListIndex = 0 39。選擇端口和波特率 Combo2(1).ListIndex = 4 = True 39。打開模塊 End Sub Private Sub msgsend_Click() Dim MsgAdr As String Dim TelNo As String Dim Smsg As String Dim PDU As String Dim Leng As String Dim Length As Integer Dim AllLength As Integer Length = 2 * Len() Leng = Hex(Length) If Len(Leng) = 1 Then Leng = 0 amp。 Leng End If AllLength = 15 + Length MsgAdr = Trim(telc(8613800758500)) 39。肇慶動感地帶短信信中心地址 TelNo = Trim(telc()) 39。手機號碼 Smsg = Trim(AscII2Unicode()) 39。短信息內(nèi)容 PDU = midx amp。 TelNo amp。 sufx amp。 Leng amp。 Smsg 39。PDU = 0011000D91683167006059F100080108828265E55FEB4E50 39。AllLength = 23 = False If = False Then = True SMSend AllLength, PDU 39。調(diào)用短信息發(fā)送程序 End If If = True Then = False 21 = True End If 39。 Trim(), Trim() 39。If Sendsms(Trim(), Trim()) = True Then 39。If Sendsms = True Then 39。 MsgBox 信息發(fā)送成功 ! 39。End If End Sub Private Function stringdeal(ByVal st As String) stringdeal = Mid(st, InStr(st, Chr(10)) + 16) End Function Private Sub rm_Click() 39。閱讀信息 Dim N As Integer Dim Instring As String = False If = False Then = True End If = 0 = 0 = 0 Sleep (100) Instring = = AT+CMGF=0 + vbCr Sleep (400) If 0 Then Instring = = 0 = 0 If InStr(Instring, OK) Then = AT+CMGR= + + Chr(13) + Chr(10) End If Instring = End If Sleep (500) If 0 Then Instring = 22 SMSdeal Instring Sleep (100) If InStr(Instring, OK) Then MsgBox 成功讀取第 + + 條信息 !, vbOKOnly, 系統(tǒng)提示 Else MsgBox 該信息為空 !, vbOKOnly, 系統(tǒng)提示 End If Instring = End If If = True Then = False = True End If End Sub Private Function SMSdeal(SMS As String) On Error Resume Next Dim SM As String Dim SN As String Dim STIME As String Dim SMG As String Dim SLONG, N As Integer If InStr(SMS, 0891) Then SM = Mid(SMS, InStr(SMS, 0891)) SN = ConTelc(Mid(SM, 25, 14)) STIME = ConTimec(Mid(SM, 43, 14)) SLONG = CInt(Mid(SM, 57, 2)) N = SLONG * 4 SMG = Unicode2AscII(Mid(SM, 59, N)) = 短信類型 : + 已讀信息 + vbCr + vbLf + 對方號碼 : + SN + vbCr + vbLf + 發(fā)送時間 : _ + STIME + vbCr + vbLf + 短信長度 : + Str(SLONG / 2) + 字節(jié) + vbCr + vbLf + 信息內(nèi)容 : + SMG + vbCr + vbLf ElseIf InStr(SMS, 018) Then SM = Mid(SMS, InStr(SMS, 018)) SLONG = CInt(Mid(SM, 17, 2)) N = SLONG * 4 SMG = Unicode2AscII(Mid(SM, 19, N)) = 短信類型 : + 存儲信息 + vbCr + vbLf + 信息內(nèi)容 : + SMG + vbCr 23 + vbLf End If End Function Private Sub rpb_Click() 1, End Sub Private Sub Timer1_Timer() Dim buf As String If 0 Then = False = 0 buf = If InStr(buf, OK) = 0 Then MsgBox 端口打開有誤 ! amp。 tl End If End If End Sub Private Sub Timer2_Timer() If 0 Then MsgBox 你有新的信息 ,請查收 ! If IntChk$ = vbOK Then = 0 buf$ = 39。 = False remsg$ = StrConv(buf, vbFromUnicode) DebugText remsg 39。信息顯示函數(shù) End If End If End Sub Private Sub DebugText(Str) 39。設定輸出格式 = + Str + Chr(13) + Chr(10) 39。輸出消息 SendMessage , EM_LINESCROLL, 0, 1 39。向下卷行 End Sub Private Sub myActiveX_OnNewSMS(ByVal ReadState As String, ByVal sDateTime As String, ByVal sNum As String, ByVal sText As String, ByVal sSCA As String) 39。收到新消息 DebugText ================= 收到新消息 =================== 24 DebugText 時間日期 : + sDateTime DebugText 電話號碼 : + sNum DebugText 消 息內(nèi)容 : + sText DebugText ================================================ MsgBox 收到新消息 : + sNum End Sub Private Sub myActiveX_OnPhoneBookList(ByVal PhoneBook As String) = PhoneBook 39。顯示電話本內(nèi)容 End Sub Private Sub Portopen_Test() 39。打開端口并測試 39。 If = False Then 39。 = True 39。 End If = AT + vbCr = True End Sub