编写电话拨号程序时一点小技巧

　　在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

　　请问如何在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


　　我在设计一个用Modem 与电话通讯的软件，用的是MSCOMM控件，但现在无法检测对方是否已经接听（即提起电话）或对方是否挂断（放下电话），请教高手是否有解决的办法，我已查了你们的问题解答，没有我满意的答案。非常感谢。(何江)

　　你应该检查CDHolding属性，看是否线路有CD。如果为true，因为着在线，否则意味着用户挂断了。用MScomm控件设计串行通信程序,需要连接两个MODEM,并传输文件。拨入方和被拨入方都设置了
CommPort, Settings,并使 PortOpen 为TRUE,下一步是否拨入方只需拨号即可连通对方的MODEM(我在调试中,发现拨号后被拨入方的电话一直响个不停,似乎不能连通),如果不是,被拨入方还需对MODEM输出什么命令或者还需进行那些设置,怎样才能判断两个MODEM是否已连通,有的说查询cdholding是否为true,但我在调试中cdholding始终为false。因不能判断MODEM是否已连通,所以传输文件时提示错误也不清楚问题到底出在那里。

回答:

　　Robin的解决方案：
　　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
附：你可以参考骆云志、邢江写的《用VB编制MODEM远程通信软件》，发表在《中国计算机用户》

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