SKY外语计算机学习

标题: VB_来电显示的实现 [打印本页]
作者: fieldmax    时间: 2012-4-28 21:46
标题: VB_来电显示的实现
本帖最后由 fieldmax 于 2012-4-28 22:38 编辑

VB来电显示的实现

MODEM的AT命令CID和VCID是设置是不是来电显示的，如果电信开通了来电显示功能
就能通过MODEM来显示对方的电话号码。那么首先设置CID=1或是VCID=1

一般来说来电显示的信息为：

DATE = MMDD "来电日期 MMDD
TIME = HHMM "来电时间 HHMM
NMBR = ######## "来电号码

程序实现如下,设置MSComm1的相关设置，并建两个Label为Label1和Label2

  2. Function OpenCID(OpenCLose As Boolean) As Boolean
  3. '打开或是关毕来电显示功能
  4. On Error Resume Next
  5. Dim ArrCID(1) As String
  6.         ArrCID(0) = "at#cid=" & IIf(openclode, 1, 0)
  7.         ArrCID(1) = "at#vcid=" & IIf(openclode, 1, 0)
  8.         MSComm1.RThreshold = 0
  9.         For i = 0 To 1
  10.                 MSComm1.Output = ArrCID(i) & vbCr
  11.                 EndTime = Timer + 0.5
  12.                 Do While bStop = False
  13.                         nTemp = nTemp + 1
  14.                         If MSComm1.InBufferCount >= 2 Then
  15.                                 sTemp = MSComm1.Input
  16.                                 If InStr(sTemp, "OK") = 0 Then
  17.                                         bStop = True
  18.                                         OpenCID = True
  19.                                         Exit Function
  20.                                 End If
  21.                         End If
  22.                         If Timer >= EndTime Or ErrorCode Then Exit Do
  23.                 Loop
  24.         Next i
  25.         OpenCID = False
  26.         MSComm1.RThreshold = 1
  27. End Function
复制代码
下面的函数显示来电号码并在窗体上的Label1的Label2上显示出来

  2. Private Sub MSComm1_OnComm()
  3. On Error Resume Next
  4. Static Buffer As String
  5. ' 收到多于 RThreshold 属性设置的字符数（RThreshold 属性必须大于 0）。
  6. 'label1 = "收到" + Str(MSComm1.InBufferCount) + "个字符"
  7.         Buffer = Buffer + MSComm1.Input
  8.         Buffer = UCase(Buffer)

  10. ' Exit Sub
  11.         If InStr(1, Buffer, "RING", vbTextCompare) Then
  12.         '收到震铃
  13.                 'Comm1.Output = "ATA" + Chr(13) '命令 Modem 摘机响应
  14.                 Buffer = "" '清缓冲区字符
  15.                 'mciExecute "sound " & SystemPath & "\ringin.wav"
  16.                 Label1 = "状态：收到震铃"
  17.                 Zhen = True
  18.                 frmCallID.Show
  19.                 frmCallID.ChangRing


  22.         ElseIf InStr(1, Buffer, "CONNECT", vbTextCompare) Then
  23.         '对方应答呼叫
  24.                 Buffer = "" '清缓冲区字符
  25.                 Label1 = "状态：已经建立连接"
  26.         ElseIf InStr(1, Buffer, "BUSY", vbTextCompare) Then
  27.         '对方线路忙
  28.                 Buffer = "" '清缓冲区字符
  29.                 Label1 = "状态：对方线路忙"
  30.         ElseIf InStr(1, Buffer, "No DIA", vbTextCompare) Then
  31.                 Buffer = "" '清缓冲区字符
  32.                 Label1 = "状态：拨出号码错,请检查电话线"
  33.                 Command1_Click
  34.         ElseIf InStr(1, Buffer, "No CARRIER", vbTextCompare) Then
  35.         '对方未摘机或未响应
  36.                 Buffer = "" '清缓冲区字符
  37.                 Label1 = "状态：对方未摘机"

  39.         ElseIf InStr(1, Buffer, "NMBR =", vbTextCompare) Then
  40.                 tmpStr = InStr(1, Buffer, "NMBR", vbTextCompare)
  41.                 CallNum = Right(Buffer, Len(Buffer) - lll - 6)
  42.                 Label2.Caption = "对方电话：" + CallNum

  44.                 'Buffer = "" '清缓冲区字符
  45.         ElseIf InStr(1, Buffer, "OK", vbTextCompare) And Asc(Right(Buffer, 1)) = 10 Then
  46.                 If Zhen = False Then Buffer = "" '清缓冲区字符
  47.                 If Command1.Caption = "挂断" Then
  48.                         Label2.Caption = "状态：已经播通电话：" + txtCallNum
  49.                 End If
  50.         End If
  51. End Sub
复制代码
作者: itle    时间: 2012-4-29 09:19
本帖最后由 sky_yx 于 2015-12-30 14:23 编辑

不'
错！可以借鉴





欢迎光临 SKY外语计算机学习 (http://skywj.com/) Powered by Discuz! X2.5