怎样用两个猫 在两台机器之间通讯

Question

因为程序中还要有其他的设置 我的意思是
想用BV的MSCOMM控件自己写一个程序
一个服务端（用猫连接）
一个客户端（用猫连接）
如果两台机器连接上了
在程序中怎么体现呢
   用MScomm控件设计串行通信程序,需要连接两个MODEM,并传输文件。怎样才能判断两个MODEM是否已连通,有的说查询cdholding是否为true,但我在调试中cdholding始终为false。因不能判断MODEM是否已连通,所以传输文件时提示错误也不清楚问题到底出在那里。 

Answer 1

我用vc做过，当时条件限制，没做完，不过通过猫的返回值可以判断我的还是对的，要不要
，（非常很初级的），在www.gjwtech.com上有你想要的资料，去看看吧

Answer 2

Private Sub MSComm1_OnComm()
  MSComm1.InputLen = 0
  Select Case MSComm1.CommEvent
   Case comEvReceive    InputStr = InputStr & MSComm1.Input
    'Label1.Caption = InputStr
  End Select
End Sub
Private Function IsConnect(InConn As String) As String
  Dim DealStr As String
  Dim DestCmp(1 To 20) As String
  Dim Ret As Integer
  Dim RetStr As String
  
  DestCmp(1) = "OK"
  DestCmp(2) = "CONNECT"
  DestCmp(3) = "BUSY"
  DestCmp(4) = "NO CARRIER"
  DestCmp(5) = "NO DIALTONE"
  DestCmp(6) = Chr(13)
  
  DealStr = Trim(InConn)
      
  For i = 1 To 6
    RetStr = DestCmp(i)
    Ret = InStr(1, DealStr, RetStr, vbTextCompare)
    If Ret > 1 Then
       InputStr = Mid(InputStr, Ret + Len(RetStr))
       IsConnect = RetStr
       Exit Function
    End If
  Next
   IsConnect = ""
   
End Function