使用mscomm控件控制modem，不能打开来电显示功能，截获来电号码

Equn 2004-09-18 11:16:45

外置、内置MODEM都测过，执行AT#VCID=1或AT#CID=1都不行。能正常拔号出去及检测来电响铃。
不知为何就是不能获得来电号码。

代码如下：

Public COMBUF As String

Public Sub InitModem()

'初始化Modem链接
With MSComm1
.InBufferSize = 1024
.InputLen = 0
.InputMode = 0
.RThreshold = 1
.RTSEnable = True
.Settings = "9600,N,8,1"
.SThreshold = 0
End With

'打开调制解调器端口
If MSComm1.PortOpen Then MSComm1.PortOpen = False
MSComm1.CommPort = COMX
If Not MSComm1.PortOpen Then MSComm1.PortOpen = True

'打开来电显示功能
MSComm1.Output = "AT#VCID=1" + Chr(13)
'检查Modem命令是否完成
If CHK_MODEM() = False Then
SetStatus "打开来电显示功能失败！！"
End If
MSComm1.Output = "ATS0=0" + vbCr
end sub

Public Function CHK_MODEM() As Boolean
'检测Modem命令是否执行成功
Dim T As Single
Dim L As Integer
T = Timer
Do
COMBUF = COMBUF + MSComm1.Input
L = InStr(1, COMBUF, "OK")
Loop Until L <> 0 Or Timer - T > 2

If L = 0 Then
CHK_MODEM = False
Else
CHK_MODEM = True
End If
End Function

...全文

367 20 打赏收藏转发到动态举报

写回复

用AI写文章

20 条回复

切换为时间正序

请发表友善的回复…

发表回复

Equn 2004-12-17

打赏
举报

更换modem解决问题

sgh321 2004-12-10

打赏
举报

或者通过MODEM诊断是否支持，AT命令
我以前也遇到过和你一样的问题，换了MODEM后就解决了

sgh321 2004-12-10

打赏
举报

先用超级终端检测你的MODEM，是否具有来电显示功能

如何用AT命令查询MODEM是否有来电显示并打开其功能

1，打开超级终端，随便输入一个连接名称。
　　2，按确定后，在下个窗口中，看到你的猫，不输电话号码点击确定，然后在出现的窗口中按取消。
　　3：这时将进入超级终端的界面。
　　输入：AT回车
　　如果出现OK，说明MODEM支持AT指令。
　　然后输入下面的命令进行测试你的MODEM是否支持来电显示：
AT#CIDn或者AT+VCIDn
（如果输入AT#CIDn提示错误就用AT+VCIDn来测试，我的T40就只支持AT+VCID命令。n需替换成以下各项). n为以下项时功能分别如后所示：

n 功能

0 关闭呼叫者身份鉴定
1 打开DTE格式化形式的呼叫者身份鉴定
2 打开DTE非格式化形式的呼叫者身份鉴定
? 从调制解调器中恢复当前呼叫者身份鉴定方式
=? 返回调制解调器允许模式的列表,表中各部分间用逗号隔开
比如：
1：查询当前MODEM是否支持来电显示功能，输入：
AT#CID=？
如果显示为：
0
就表示不支持；若显示为：
0，1，2
就表示支持所有来电格式。如果显示
ERROM
说明当前MODEM不支持这种格式的命令，可输入另外一条命令（以下也一样）
AT+VCID=？来查询。
2：查询MODEM当前是否打开来电显示功能。输入：
AT#CID？
如果显示为：
0
则表示没有打开这个功能，如果显示为：
1
则表明已打开来电显示功能了。
3：打开MODEM的来电显示功能，输入：
AT#CID=1
如显示OK就表示已经成功打开来电显示了，这时可用手机打电话进来，超级终端上应有如下格式显示：

RING

DATE = 1110
TIME = 0923
NMBR = 13096090000