紧急求助:懂 modem 通信的高手请进
各位打虾:我用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