分类：
2008-10-15 13:53:50
在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，则可以接收来电号码了。
zhangpk的意见：
对于你的MODEM是否有CALLER ID功能，可以通过访问注册表的HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Service\Class\Modem\0000\EnableCallerId键，看其中是否有AT指令字符，其中1的值就是CALLER ID的AT指令。
李俊文的意见：
不用另外加硬件也可以接收DTMF信号，要用语音AT命令而且MODEM必需是语音FAXMODEM，接收的字符里含有其他字符，但是有规律的可以捕捉按键号码。如果感兴趣请跟我联系(lijw001@public.yj.jl.cn)。
请问如何实现用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 |
[1]
