急求！VB下用MSCOMM实现两台计算机之间RS232通信

Question

急求！VB下用MSCOMM实现两台计算机之间RS232通信，

Answer 1

先用串口调试助手试试:下载地址:http://download.csdn.net/source/1626094

Answer 2

我也来一个：
串口通信调试器（含代码）：http://download.csdn.net/source/1262066
VB 使用API实现串口通信：http://download.csdn.net/source/1339593《串口通信》一书，江南大侠发了地址，我就不发了。

Answer 3

这个是我用的
sub ms_ini()
MSComm1.CommPort = 1 'COM端口号
On Error GoTo err
MSComm1.PortOpen = True
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputMode = comInputModeBinary '采用二进制接收
MSComm1.InBufferCount = 0 '清空接受缓冲区
MSComm1.OutBufferCount = 0 '清空传输缓冲区
MSComm1.RThreshold = 34 '产生MSComm事件
MSComm1.SThreshold = 0
end sub’响应事件
Private Sub MSComm1_OnComm()
Dim av() As Byte
Dim receivedata() As Byte
On Error Resume Next
Select Case MSComm1.CommEvent
Case comEvReceive
'Text4 = Text4 & MSComm1.InBufferCount
MSComm1.InputLen = 0
av = MSComm1.Input
receivedata() = av
End Select
indata() = receivedata()
mscomm1_used = False
If form1_show Then
    Call Form1.form1_MSComm1_OnComm
ElseIf form2_show Then
    Call Form2.form2_MSComm1_OnComm
ElseIf form3_show Then
    Call Form3.form3_MSComm1_OnComm
ElseIf form4_show Then
    Call Form4.form4_MSComm1_OnComm
ElseIf form5_show Then
    Call Form5.form5_MSComm1_OnComm
ElseIf form8_show Then
    Call Form8.form8_MSComm1_OnComm
ElseIf form11_show Then
    Call Form11.form11_MSComm1_OnComm
Else
Exit Sub
End If
End Sub
'数据的发送下面
'函数： SendData
'功能：发送数据
'创建日期：09.6.12
'创建人  ：马艳
'出处：X
Public Function SendData(ByRef bytData() As Byte) As Long
On Error Resume Next
MSComm1.Output = bytData '发送数据
Do
DoEvents
Loop Until MSComm1.OutBufferCount = 0 '等待，直到数据发送完毕
End Function'发送
Call MDIForm1.SendData(bytData) '发送
你根据你的应用做下修改