在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
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
