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

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

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

PC机串口控制GSM模块收发短信系统设计(流程图+源程序) 第3页
'Mobcomm.InBufferCount = 0
Mobcomm.Output = "AT+CMGD=" + index.Text + Chr(13) + Chr(10)
Sleep (400)
'mobcomm.OutBufferCount = 0
'mobcomm.Output = "13138529082" + vbCr
If Mobcomm.InBufferCount > 0 Then
Instring = Mobcomm.Input
If InStr(Instring, "OK") Then
           MsgBox "成功删除第" + index.Text + "条信息!", vbOKOnly, "提示"
        Else
           MsgBox "信息删除不成功!"
End If
End If
'rmsg.Text = Mid(Instring.Text, 1, InStr(Instring, Chr(13) + Chr(10)))
'rmsg.Text = Unicode2AscII(stringdeal(Instring))
'rmsg.Text = Mid(Instring, 11)
'Sleep (100)
'mobcomm.OutBufferCount = 0
'mobcomm.Output = Text1.Text + Chr(26)
Sleep (100)
'End If
'If InStr(Instring, "OK") Then
'End If
If Mobcomm.PortOpen = True Then
   Mobcomm.PortOpen = False
   End If
myActiveX.Active = True
'If Mobcomm.PortOpen = False Then
'   Mobcomm.PortOpen = True
'End If
'   Mobcomm.Output = "AT+CMGD=" & index.Text + vbCr
' Sleep (300)
' If Mobcomm.InBufferCount > 0 Then
'     Mobcomm.InputLen = 0
'     temp$ = Mobcomm.Input
'     Mobcomm.InBufferCount = 0
'       If InStr(buf, "OK") Then
'          MsgBox "该信息已删除!"
'       Else
'         MsgBox "信息删除不成功!"
'        End If
'   End If
End Sub
Private Sub Form_Load()
Combo1(1).ListIndex = 0 '选择端口和波特率
Combo2(1).ListIndex = 4
myActiveX.Active = True    '打开模块
End SubPrivate 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(msg.Text)
Leng = Hex(Length)
If Len(Leng) = 1 Then
Leng = "0" & Leng
End If
AllLength = 15 + Length
MsgAdr = Trim(telc("8613800758500")) '肇庆动感地带短信信中心地址
TelNo = Trim(telc(teln.Text))         '手机号码
Smsg = Trim(AscII2Unicode(msg.Text))   '短信息内容
PDU = midx & TelNo & sufx & Leng & Smsg
'PDU = "0011000D91683167006059F100080108828265E55FEB4E50"
'AllLength = 23
myActiveX.Active = False
If Mobcomm.PortOpen = False Then
   Mobcomm.PortOpen = True
SMSend AllLength, PDU                    '调用短信息发送程序
End If
If Mobcomm.PortOpen = True Then
   Mobcomm.PortOpen = False
   myActiveX.Active = True
End If
' myActiveX.SendTextSMS Trim(teln.Text), Trim(msg.Text)
'If Sendsms(Trim(teln.Text), Trim(msg.Text)) = True Then
'If Sendsms = True Then
' MsgBox "信息发送成功!"
'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() '阅读信息
Dim N As Integer
Dim Instring As String
www.youerw.com = 0
Mobcomm.InputLen = 0
Sleep (100)
Instring = ""
Mobcomm.Output = "AT+CMGF=0" + vbCr
Sleep (400)
If Mobcomm.InBufferCount > 0 Then
   Instring = Mobcomm.Input
   Mobcomm.InBufferCount = 0
   Mobcomm.OutBufferCount = 0
   If InStr(Instring, "OK") Then
   Mobcomm.Output = "AT+CMGR=" + index.Text + Chr(13) + Chr(10)
   End If
   Instring = ""
End IfSleep (500)If Mobcomm.InBufferCount > 0 Then
Instring = Mobcomm.Input