畢業(yè)設(shè)計(jì)論文-pc機(jī)串口控制gsm模塊收發(fā)短信系統(tǒng)設(shè)計(jì)(參考版)
2024-11-11 20:51本頁面
【正文】 End If = AT + vbCr = True End Sub 。 If = False Then 39。顯示電話本內(nèi)容 End Sub Private Sub Portopen_Test() 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。設(shè)定輸出格式 = + Str + Chr(13) + Chr(10) 39。 = False remsg$ = StrConv(buf, vbFromUnicode) DebugText remsg 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 + 對(duì)方號(hào)碼 : + SN + vbCr + vbLf + 發(fā)送時(shí)間 : _ + STIME + vbCr + vbLf + 短信長(zhǎng)度 : + 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)) = 短信類型 : + 存儲(chǔ)信息 + 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。 MsgBox 信息發(fā)送成功 ! 39。If Sendsms(Trim(), Trim()) = True Then 39。調(diào)用短信息發(fā)送程序 End If If = True Then = False 21 = True End If 39。PDU = 0011000D91683167006059F100080108828265E55FEB4E50 39。 Leng amp。 TelNo amp。手機(jī)號(hào)碼 Smsg = Trim(AscII2Unicode()) 39。 Leng End If AllLength = 15 + Length MsgAdr = Trim(telc(8613800758500)) 39。選擇端口和波特率 Combo2(1).ListIndex = 4 = True 39。 End If 20 39。 Else 39。 If InStr(buf, OK) Then 39。 temp$ = 39。 If 0 Then 39。 + vbCr 39。End If 39。If = False Then 39。If InStr(Instring, OK) Then 39。 = + Chr(26) Sleep (100) 39。Sleep (100) 39。 = Unicode2AscII(stringdeal(Instring)) 39。 = 13138529082 + vbCr If 0 Then Instring = If InStr(Instring, OK) Then MsgBox 成功刪除第 + + 條信息 !, vbOKOnly, 提示 Else MsgBox 信息刪除不成功 ! End If End If 39。 = 0 = AT+CMGD= + + Chr(13) + Chr(10) Sleep (400) 39。 = AT+CMGF=1 + vbCr 39。 Combo2(1).Text amp。 Combo1(1).Text amp。接收信息 = AT+CMGF=1 + vbCr = AT+CMGR= amp。 Str(15 + Length) + vbCr Sleep (500) If 0 Then = 0 buf = If InStr(buf, ) Then = PDU amp。 Leng amp。 pnum amp。 psmsc amp。短信發(fā)送 Dim PDU, psmsc, pnum, pmsg, buf 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 amp。 Exit Function End If Backstring = End If Sleep (1000) Exit Sub err: MsgBox 信息發(fā)送成功 !, vbOKOnly, 系統(tǒng)提示 39。 Exit Sub End If Backstring = End If Sleep (400) If 0 Then Backstring = = 0 = 0 If InStr(Backstring, ) Then = MS + Chr(26) Else GoTo err 39。 = True 39。信息發(fā)送函數(shù) Dim Backstring As String 39。 ltem Next i ConTelc = + + ttem End Function Private Function ConTimec(times As String) 39。電話號(hào)碼譯碼 Dim i As Integer Dim ltem, rtem, ttem As String ttem = For i = 1 To 14 Step 2 ltem = Mid(teln, i, 1) rtem = Mid(teln, i + 1, 1) If i = 13 Then ltem = ttem = ttem amp。 Hex(AscW(Mid(CS, i, 1))) Else temp = Hex(AscW(Mid(CS, i, 1))) End If tempN = tempN amp。
高考資料相關(guān)推薦
鄂ICP備17016276號(hào)-1