自己写了段简单的两机的联机通讯。tcpCliet.RemoteHost = "" 这里具体谢什么？ 写我的电脑名字？但还是运行错误。CMB666能否给关于WINSOCK通讯的例子？ 谢谢了

给我邮箱吧

cbm666老师给我也发一个。越简单越好！初步搞了个好像不行代码FORM1的即服务端：Private Sub Form_Load()Winsock1.LocalPort = 2000Winsock1.ListenForm2.ShowEnd SubPrivate Sub Text1_Change()Winsock1.SendData Text1.TextEnd SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)Dim strdata As StringWinsock1.GetData strdata, vbStringText2.Text = strdataEnd SubPrivate Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)If Winsock1.State <> sckClosed Then Winsock1.CloseWinsock1.Accept requestIDEnd SubFORM2的客户端：Private Sub Command1_Click()Winsock1.ConnectEnd SubPrivate Sub Form_Load()Winsock1.RemoteHost = "localhost"Winsock1.RemotePort = 2000End SubPrivate Sub Text1_Change()Winsock1.SendData Text1.TextEnd SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)Dim strdata As StringWinsock1.GetData strdata, vbStringText2.Text = strdataEnd Sub

[email protected]