谢谢帮忙啊，，，晕了好一会了
我这下面的代码有错误吗？
但怎么就是连接不正常~~！！~
_------------------------------------------------

-----------------------------------------------------
server
------------------------------------------------------
Private Sub Form_Load()
wsktcpserver.RemotePort = 1061
wsktcpserver.Listen
frmtcpclient.Show

End Sub

Private Sub Form_Unload(Cancel As Integer)
wsktcpserver.Close
End Sub

Private Sub txtsenddata_Change()
wsktcpserver.SendData txtsenddata.Text
End Sub


Private Sub wsktcpserver_ConnectionRequest(ByVal requestID As Long)
If wsktcpserver.State <> sckClosed Then wsktcpserver.Close
wsktcpserver.Accept requestID
End If
End Sub

Private Sub wsktcpserver_DataArrival(ByVal bytesTotal As Long)
Dim sdata As String
wsktcpserver.GetData sdata, vbString
txtgetdata.Text = sdata
End Sub

-----------------------------------------------------
client
------------------------------------------------------
Private Sub cmdconnect_Click()
wsktcpclient.Connect

End Sub

Private Sub Form_Load()
wsktcpclient.RemoteHost = "10.49.5.221 "
wsktcpclient.RemotePort = 1061

End Sub

Private Sub txtgetdata1_Change()
wsktcpclient.SendData txtsendtada1.Text
End Sub

Private Sub wsktcpclient_DataArrival(ByVal bytesTotal As Long)
Dim stada1 As String

wsktcpclient.GetData stada1, vbString
txtgetdata1.Text = GetData

End Sub


[解决办法]
_------------------------------------------------

-----------------------------------------------------
server
------------------------------------------------------
Private Sub Form_Load()
wsktcpserver.RemotePort = 1061 '.LocalPort = 1061
wsktcpserver.Listen
frmtcpclient.Show

End Sub

[解决办法]
你这段代码问过两次了吧，回去先看看书再来问吧，不要太懒了。

了解一下winsock的几个属性方法和事件！！！

客户端程序用：
RemoteHost

RemotePort
Connect
服务器端程序用：
LocalPort
Listen



[解决办法]
服务器端用的是本地端口,客户端用远程端口