谢谢帮忙啊，，，晕了好一会了
我这下面的代码有错误吗？
但怎么就是连接不正常~~！！~
_------------------------------------------------
-----------------------------------------------------
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
[解决办法]
服务器端用的是本地端口,客户端用远程端口
