在MSCOMM控件,输出电话号码后,MODEM如检测到忙音,会返回一个busy字符。
问题: 用vb如何通过modem读取电话线上的电话机数字键发出的DTMF信号?以实现BITWARE中用电话机对语音信箱的操作。
回答:
VB中有TERMINAL CONTROL 的控件(主持人注:即MSCOMM32)，可以对串行口进行读写，而计算机相对于MODEM，正好是一个DTE与DCE的关系，关于这种关系的细节可以去参考RS232的通信原理，标准MODEM中大概有30个接口寄存器，你对MODEM卡是无法直接访问这些寄存器的，只有通过AT命令，由MODEM来完成一些特定的功能。关于DTMF检测(也就是对方电话号码的检测），则该MODEM芯片必须具有CALLER ID的功能，至于AT命令中是否有检测CALLER ID 功能的命令，需要你去查阅相关的最新资料，因为以前的AT命令不包括这个功能，计算机对MODEM的唯一访问方式就是AT命令。（建议：一般在Modem的手册上会有AT指令集）。
注：目前的Modem一般都不具备检测DTMF功能，所以一般需要另外购买硬件（如电话语音卡）。
意见：
可以采用AT#CID=1，如果显示OK，则可以接收来电号码了。
对于你的MODEM是否有CALLER ID功能，可以通过访问注册表的HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Service\Class\Modem\0000\EnableCallerId键，看其中是否有AT指令字符，其中1的值就是CALLER ID的AT指令。
不用另外加硬件也可以接收DTMF信号，要用语音AT命令而且MODEM必需是语音FAXMODEM，接收的字符里含有其他字符，但是有规律的可以捕捉按键号码。
请问如何实现用modem拨号时检查电话是否占线?
回答:
****************
Private Sub Openport()
’初始化Modem
If Not MSComm1.PortOpen Then
MSComm1.CommPort = 3
MSComm1.RThreshold = 1
MSComm1.OutBufferSize = 1024
MSComm1.InBufferSize = 1024
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
End If
End Sub
*******
Private Function Waiting(strings As String, waittime As Integer) As String
’接收Modem的返回信息
Dim Endtime As Long
Dim receivestring As String
Endtime = Timer + waittime
receivestring = ""
errorcode = 0
Do
DoEvents
If MSComm1.InBufferCount Then
receivestring = receivestring + MSComm1.Input
If InStr(1, receivestring, strings) Then
Exit Do
End If
End If
If Timer >= Endtime Or errorcode Then
errorcode = 1
Exit Do
End If
Loop
Waiting = receivestring
End Function
********* ’判断本地Modem
Call Openport
MSComm1.Output = "AT" + Chr(13)
mywin = Waiting("OK", 5)
If errorcode Then
’Modem未准备好,电话占线
Endif
*********
’判断对方Modem
MSComm1.Output = "ATDT" + vbdialno + Chr(13)
wait = Waiting("CONNECT", 10)
If errorcode Then
’对方Modem未准备好,占线
Endif
请问如何在VB中利用MODEM来测试到电话振铃?
回答:
在窗体上建立两个控件
1) MSComm 将Name属性改为Comm
2) Timer 将Name属性改为Time
程序代码为：
Private Sub Form_Load()
Comm.CommPort = 2 ’设置Modem所在的端口
Comm.PortOpen = True ’打开通讯口
Time.Interval = 500
End Sub
Private Sub Form_Unload(Cancel As Integer)
Comm.PortOpen = False ’关闭通讯口
End Sub
Private Sub Time_Timer()
Dim Buffer As Variant
Buffer = LTrim(Comm.Input) ’获得Modem的响应信息
If InStr(Buffer, "RING") > 0 Then Debug.Print "振铃" ’如果是振铃则显示振铃
End Sub
你应该检查CDHolding属性，看是否线路有CD。如果为true，因为着在线，否则意味着用户挂断了。用MScomm控件设计串行通信程序,需要连接两个MODEM,并传输文件。拨入方和被拨入方都设置了
CommPort, Settings,并使 PortOpen 为TRUE,下一步是否拨入方只需拨号即可连通对方的MODEM(我在调试中,发现拨号后被拨入方的电话一直响个不停,似乎不能连通),如果不是,被拨入方还需对MODEM输出什么命令或者还需进行那些设置,怎样才能判断两个MODEM是否已连通,有的说查询cdholding是否为true,但我在调试中cdholding始终为false。因不能判断MODEM是否已连通,所以传输文件时提示错误也不清楚问题到底出在那里。
回答:
解决方案：
1、被拨入方还需要设置一个AT命令，才能响应呼入：“ATS0=1”。其中，S0(是数字零）表示振铃几次后应答，相当于拿起话筒，接通连接；s0=1表示一有呼入就响应。AT命令请自行参考MODEM手册。
2、判断MODEM是否已连通，可以这样做：（以下是我编过的一个VB5的程序段，有删节）
Sub MscommSetup()
……
MSComm1.PortOpen = True ’打开端口
If Err Then
MsgBox "通信端口无效,请另选端口!", , "初始化端口失败"
Exit Sub
End If
cd = MSComm1.CDHolding ’定义一个变量，后面要用到
MSComm1.Output = "ATS0=1&C1" & vbCr ’初始化MODEM，你的初始化命令可能不同
’&C1表示追踪数据载波信号CD
Do
DoEvents
Loop Until MSComm1.OutBufferCount = 0
If Not (MSComm1.CTSHolding And MSComm1.DSRHolding) Then
MsgBox "Modem没有响应,请检查Modem是否连通!", , "MODEM检测失败"
cmdExit_Click
End If
MSComm1.DTREnable = True
End Sub
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvCD ’检测CD状态,判断是否连通
If MSComm1.CDHolding <> cd Then
’是连通的
……
End If
……
End Select
End Sub
1997.8(下) pp58~60
解决方案：
拨号方应输出"ATDT"+PhoneNum+Chr(13)
被拨入方输出 (1)自动接收 "ATS0=1",返回"OK"
(2)人工应答 "ATA"
在OnComm事件中
select mscomm1.commevent
case comEvCD:
if not Connect And Mscomm1.CDHolding then
Connect=true ’连接成功
endif
end select
责任编辑：小草
