可以的。例如: Winsock1.LocalPort = 5458 '5458是侦听了端口
Winsock1.Bind 5458
Winsock1.Listen
Winsock2.RemoteHost = Winsock1.LocalIP'指定服务器为本机的ip
Winsock2.RemotePort = 5458'服务器的端口
Winsock2.Connect Winsock2.RemoteHost, 5458'连接Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID'服务器端响应连接请求
End Sub
注意:最好在连接成功后才发送数据,否则会出错。
Winsock1.Bind 5458
Winsock1.Listen
Winsock2.RemoteHost = Winsock1.LocalIP'指定服务器为本机的ip
Winsock2.RemotePort = 5458'服务器的端口
Winsock2.Connect Winsock2.RemoteHost, 5458'连接Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID'服务器端响应连接请求
End Sub
注意:最好在连接成功后才发送数据,否则会出错。
你楼上的也不错啊,把bind去掉,设置成TCP模式就行了啊
fontz(方舟)说的对…!!!虽然是UDP协议下的网络通信,你只要将通信模式改成TCP就行了。