紧急求助：懂 modem 通信的高手请进

kangzerun 2003-08-30 10:44:38

各位打虾：我用vb 编写了如下程序：这个程序是建立在计算机与下位机通信，计算机通过外猫连接电话线远程控制下位机，下位机也与外猫连接，两个猫之间能够建立连接，但是发送命令时无反应，计算机与内modem可以，百思不得其解，请各位打虾帮助，在 load 事件中程序如下：
Private Sub Form_Load()
Dim ComSetting As String
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
ComSetting = "9600,N,8,1"
MSComm1.Settings = ComSetting
MSComm1.CommPort = 1
MSComm1.InputLen = 0
MSComm1.InBufferSize = 32
MSComm1.OutBufferSize = 32
MSComm1.InputMode = comInputModeBinary
MSComm1.Handshaking = comNone
MSComm1.EOFEnable = False
MSComm1.RThreshold = 0
MSComm1.SThreshold = 0
MSComm1.PortOpen = True
InitialComm = MSComm1.PortOpen
End Sub
Private Sub Command1_Click()

Dim InString As String, ReturnStr As String
', ReturnMsg(1) As Byte
On Error Resume Next
MSComm1.Output = "ATE0" & vbCr '命令不显示
MSComm1.Output = "ATV1" & vbCr '结果码类型
MSComm1.Output = "ATQ0" & vbCr '结果码显示

MSComm1.InputMode = comInputModeText
EchoStr = "ATDT"
EchoStr = EchoStr + "803" + vbCr
MSComm1.InputLen = 0
MSComm1.OutBufferCount = 0
MSComm1.InBufferCount = 0
MSComm1.Output = EchoStr
End Sub
Private Sub Command3_Click()
Dim dataout(9) As Byte
Dim inputbuf
'If ModemInI = True Then
dataout(0) = &HF4
dataout(1) = &HF5
dataout(2) = &H6
dataout(3) = &H0
dataout(4) = &HFF
dataout(5) = &H0
dataout(6) = &H1
dataout(7) = &H3E
dataout(8) = 44
dataout(9) = &HFB
inputbuf = dataout
MSComm1.OutBufferCount = 0
MSComm1.InBufferCount = 0
MSComm1.InputMode = comInputModeBinary
MSComm1.Output = inputbuf
'End If
End Sub
Private Sub Command4_Click()
Dim str1 As String
MSComm1.InputLen = 0

inbuffer = MSComm1.Input
For i = 0 To UBound(inbuffer)
str1 = str1 & Hex$(inbuffer(i))
Next
Debug.Print str1
End Sub

...全文