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

领测软件测试网

下一页 1 2 

　　 
　　在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

文章来源于领测软件测试网 https://www.ltesting.net/