Winsock控件一问：

Question

没有sever不起作用呀，因为是局域网里两台相同的client

Answer 1

你是TCP还是UDP。TCP一定先要建立连接（即握手）。

Answer 2

是基于udp的，我就是搞不清楚是怎么回事，与网络物理连接有关吗？我的机子是动态分配ip的。不过动态分配ip好像与网卡有关，所以IP的地址也是固定的。谢谢各位的关注

Answer 3

谢谢y_shen:
其实很简单：
client1：
Private Sub Form_Load()
  Winsock1.LocalPort = 1024
  Winsock1.RemoteHost = "192.168.0.10"
  Winsock1.RemotePort = 2000
End Sub
  'winsock1的协议属性为1，就是udp协议Private Sub Text1_Change()
  Winsock1.SendData Text1.Text
  
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim rec As String
  Winsock1.GetData rec, vbString
  Text2.Text = rec
End Subclient2：
  Private Sub Form_Load()
  Winsock1.LocalPort = 2000
  Winsock1.RemoteHost = "192.168.0.2"
  Winsock1.RemotePort = 1024  
End Sub
  

Answer 4

谢谢y_shen:
其实很简单：
client1：
Private Sub Form_Load()
  Winsock1.LocalPort = 1024
  Winsock1.RemoteHost = "192.168.0.10"
  Winsock1.RemotePort = 2000
End Sub
  'winsock1的协议属性为1，就是udp协议Private Sub Text1_Change()
  Winsock1.SendData Text1.Text
  
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim rec As String
  Winsock1.GetData rec, vbString
  Text2.Text = rec
End Subclient2：
  Private Sub Form_Load()
  Winsock1.LocalPort = 2000
  Winsock1.RemoteHost = "192.168.0.2"
  Winsock1.RemotePort = 1024  
End Sub
其他一样，这里的ip是为直接设定的，因为就是试试这个东东！

Answer 5

udp协议绑定端口使用 winsock1.bind 2000