VB+MODEM 实现来电显示功能
MODEM的AT命令CID和VCID是设置是不是来电显示的,如果电信开通了来电显示功能 就能通过MODEM来显示对方的电话号码。那么首先设置CID=1或是VCID=1 般来说来电显示的信息为: DATE = MMDD "来电日期 MMDD TIME = HHMM "来电时间 HHMM NMBR = ######## "来电号码 程序实现如下,设置MSComm1的相关设置,并建两个Label为Label1和Label2 Function OpenCID(OpenCLose As Boolean) As Boolean '打开或是关毕来电显示功能 On Error Resume Next Dim ArrCID(1) As String ArrCID(0) = "at#cid=" & IIf(openclode,1,0) ArrCID(1) = "at#vcid=" & IIf(openclode,0) MSComm1.RThreshold = 0 For i = 0 To 1 MSComm1.Output = ArrCID(i) & vbCr EndTime = Timer + 0.5 Do While bStop = False nTemp = nTemp + 1 If MSComm1.InBufferCount >= 2 Then sTemp = MSComm1.Input If InStr(sTemp,"OK") = 0 Then bStop = True OpenCID = True Exit Function End If End If If Timer >= EndTime Or ErrorCode Then Exit Do Loop Next i OpenCID = False MSComm1.RThreshold = 1 End Function 下面的函数显示来电号码并在窗体上的Label1的Label2上显示出来 Private Sub MSComm1_OnComm() On Error Resume Next Static Buffer As String ' 收到多于 RThreshold 属性设置的字符数(RThreshold 属性必须大于 0)。 'label1 = "收到" + Str(MSComm1.InBufferCount) + "个字符" Buffer = Buffer + MSComm1.Input Buffer = UCase(Buffer) ' Exit Sub If InStr(1,Buffer,"RING",vbTextCompare) Then '收到震铃 'Comm1.Output = "ATA" + Chr(13) '命令 Modem 摘机响应 Buffer = "" '清缓冲区字符 'mciExecute "sound " & SystemPath & "/ringin.wav" Label1 = "状态:收到震铃" Zhen = True frmCallID.Show frmCallID.ChangRing
ElseIf InStr(1,"CONNECT",vbTextCompare) Then '对方应答呼叫 Buffer = "" '清缓冲区字符 Label1 = "状态:已经建立连接" ElseIf InStr(1,"BUSY",vbTextCompare) Then '对方线路忙 Buffer = "" '清缓冲区字符 Label1 = "状态:对方线路忙" ElseIf InStr(1,"No DIA",vbTextCompare) Then Buffer = "" '清缓冲区字符 Label1 = "状态:拨出号码错,请检查电话线" Command1_Click ElseIf InStr(1,"No CARRIER",vbTextCompare) Then '对方未摘机或未响应 Buffer = "" '清缓冲区字符 Label1 = "状态:对方未摘机"
ElseIf InStr(1,"NMBR =",vbTextCompare) Then tmpStr = InStr(1,"NMBR",vbTextCompare) CallNum = Right(Buffer,Len(Buffer) - lll - 6) Label2.Caption = "对方电话:" + CallNum 'Buffer = "" '清缓冲区字符 ElseIf InStr(1,"OK",vbTextCompare) And Asc(Right(Buffer,1)) = 10 Then If Zhen = False Then Buffer = "" '清缓冲区字符 If Command1.Caption = "挂断" Then Label2.Caption = "状态:已经播通电话:" + txtCallNum End If End If End Sub (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |