您现在的位置：毕业论文 >> 论文 >> 正文

PC机串口控制GSM模块收发短信系统设计(流程图+源程序) 第4页

更新时间：2010-5-7: 来源：毕业论文

PC机串口控制GSM模块收发短信系统设计(流程图+源程序) 第4页
SMSdeal Instring

Sleep (100)

   If InStr(Instring, "OK") Then
      MsgBox "成功读取第" + index.Text + "条信息!", vbOKOnly, "系统提示"
   Else
      MsgBox "该信息为空!", vbOKOnly, "系统提示"
   End If
   Instring = ""
End If

If Mobcomm.PortOpen = True Then
Mobcomm.PortOpen = False
myActiveX.Active = 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))
    rmsg.Text = " 短信类型: " + "已读信息" + vbCr + vbLf + " 对方号码: " + SN + vbCr + vbLf + " 发送时间: " _
    + STIME + vbCr + vbLf + " 短信长度: " + Str(SLONG / 2) + "字节" + vbCr + vbLf + " 信息内容:" + 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))
    rmsg.Text = " 短信类型: " + "存储信息" + vbCr + vbLf + " 信息内容:" + SMG + vbCr + vbLf
End If
End Function
Private Sub rpb_Click()
myActiveX.ReadPhoneBook "1", myActiveX.PhoneBookCount
End Sub

Private Sub Timer1_Timer()
Dim buf As String
If Mobcomm.InBufferCount > 0 Then
   Timer1.Enabled = False
   Mobcomm.InputLen = 0
   buf = Mobcomm.Input
   If InStr(buf, "OK") = 0 Then
   MsgBox "端口打开有误!" & tl
   End If
End If
End Sub
Private Sub Timer2_Timer()
If Mobcomm.InBufferCount > 0 Then
    MsgBox "你有新的信息,请查收!"
    If IntChk$ = vbOK Then
    Mobcomm.InputLen = 0
    buf$ = Mobcomm.Input
    'Timer2.Enabled = False
    remsg$ = StrConv(buf, vbFromUnicode)
    DebugText remsg               '信息显示函数
    End If
End If
End Sub
Private Sub DebugText(Str)    '设定输出格式
    rmsg.Text = rmsg.Text + Str + Chr(13) + Chr(10)    '输出消息
    SendMessage rmsg.hwnd, EM_LINESCROLL, 0, 1          '向下卷行
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)

    '收到新消息
     DebugText "================= 收到新消息 ==================="
     DebugText "时间日期: " + sDateTime
     DebugText "电话号码: " + sNum
     DebugText "消息内容: " + sText
     DebugText "================================================"

     MsgBox "收到新消息:" + sNum
     End Sub
Private Sub myActiveX_OnPhoneBookList(ByVal PhoneBook As String)
phbook.Text = PhoneBook      '显示电话本内容
    End Sub
Private Sub Portopen_Test()     '打开端口并测试
' If Mobcomm.PortOpen = False Then
'    Mobcomm.CommPort = True
' End If
Mobcomm.Output = "AT" + vbCr
Timer1.Enabled = True
End Sub