怎样解决多个MODEM接入来电的问题？
两个或以上的电话来电怎样实现啊，单个MODEM接入来电我已经实现了，但两个MODEM同在一台机器，当我打开两个端口时，电脑就重启，请问是什么原因啊？？
代码如下：
Private Sub MDIForm_Load()
Call InitModem
Call InitModem1
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
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 = 4 'COMX
If Not MSComm1.PortOpen Then MSComm1.PortOpen = True
'打开来电显示功能
MSComm1.Output = "AT#CID=1" + Chr(13)
'检查Modem命令是否完成
'检查Modem命令是否完成
If CHK_MODEM() = False Then
MsgBox "打开来电显示功能失败！！"
Else
'MsgBox "成功"
End If
MSComm1.Output = "ATS0=0" + vbCr
End Sub
Public Function CHK_MODEM1() As Boolean
'检测Modem命令是否执行成功
Dim T As Single
Dim L As Integer
T = Timer
Do
COMBUF = COMBUF + MSComm2.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
Public Sub InitModem1()
'初始化Modem链接
With MSComm2
.InBufferSize = 1024
.InputLen = 0
.InputMode = 0
.RThreshold = 1
.RTSEnable = True
.Settings = "9600,N,8,1"
.SThreshold = 0
End With
'打开调制解调器端口
If MSComm2.PortOpen Then MSComm2.PortOpen = False
MSComm2.CommPort = 3 'COMX
If Not MSComm2.PortOpen Then MSComm2.PortOpen = True
'打开来电显示功能
MSComm2.Output = "AT#CID=1" + Chr(13)
'检查Modem命令是否完成
'检查Modem命令是否完成
If CHK_MODEM1() = False Then
MsgBox "打开来电显示功能失败！！"
Else
'MsgBox "成功"
End If
MSComm2.Output = "ATS0=0" + vbCr
End Sub
问题点数：0、回复次数：9Top
1 楼sgh321（华海）回复于 2005-01-03 18:58:33 得分 0
哪位高手请帮忙解答一下，在线等Top
2 楼sgh321（华海）回复于 2005-01-04 22:55:49 得分 0
哪位高手请帮忙解答一下Top
3 楼sgh321（华海）回复于 2005-01-05 20:36:59 得分 0
UPTop
4 楼wumylove1234（毁于随）回复于 2005-01-06 09:24:14 得分 0
应该不会吧..Top
5 楼sgh321（华海）回复于 2005-01-06 16:15:26 得分 0
感谢 wumylove1234(毁于随) 的关注
可是我换我多台机器都出现了解种现象Top
6 楼zeng_ben（想学学不会）回复于 2005-01-06 16:25:31 得分 0
顶先，想找个人帮编个家庭书刊管理系统，数据库我已经做好，根据里面的一些字段做一个窗体连上就可以了，我不会加代码，希望大哥大姐们帮个忙，照顾一下新来的小弟，急呀，在线等，QQ11060006
Top
7 楼sgh321（华海）回复于 2005-01-07 21:26:40 得分 0
upTop
8 楼sgh321（华海）回复于 2005-01-09 20:17:42 得分 0
upTop
9 楼sgh321（华海）回复于 2005-01-10 21:40:33 得分 0
upTop
