我还是解决不了，请大家过来看看！！！！！！！！！！！！！！

Question

如果创建客户应用程序，就必须知道服务器计算机名或者 IP 地址（RemoteHost 属性），还要知道进行“侦听”的端口（RemotePort 属性），然后调用 Connect 方法。如果创建服务器应用程序，就应设置一个收听端口（LocalPort 属性）并调用 Listen 方法。当客户计算机需要连接时就会发生 ConnectionRequest 事件。为了完成连接，可调用 ConnectionRequest 事件内的 Accept 方法。

Answer 1

to Jneu(沧海桑田)　
请给我一段代码！！！谢谢！！！

Answer 2

没有指定通讯协议，我猜你是想用udp协议吧Private Sub Command1_Click()
With Winsock1
  If .State <> 0 Then .Close
  End If  .RemoteHost = "scs055" '对方计算机名/IP
  .LocalPort = .LocalPort
  .RemotePort = 1060
  .Bind
  .SendData "要说的话！"
End With
End Sub
  接受端
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String  '用于保存所接收到的数据
    Winsock1.GetData strData, vbString
End Sub

Answer 3

没有指定通讯协议，我猜你是想用udp协议吧Private Sub Command1_Click()
With Winsock1
  If .State <> 0 Then .Close
  End If
  
   '在此加入指定通信协议的代码   ........
  .RemoteHost = "scs055" '对方计算机名/IP
  .LocalPort = .LocalPort
  .RemotePort = 1060
  .Bind
  .SendData "要说的话！"
End With
End Sub
  接受端
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String  '用于保存所接收到的数据
    Winsock1.GetData strData, vbString
End Sub   

Answer 4

我已经设定了UDP协议！！！
请关注！

Answer 5

有人告诉你没有连接，就是不听!服务端:
初始化时加
    .LocalPort = 1060
    .ListenPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    If Winsock1.State <> sckClosed Then Winsock1.Close
    DoEvents
    Winsock1.Accept requestID
End Sub客户端
senddata之前
    .Connect
    Do
       DoEvents
    Loop Until .State = sckConnected Or .State = sckError

Answer 6

to:ozw(沧浪客)　
   我刚才试了但
    Do
      DoEvents
    Loop Until .State = sckConnected Or .State = sckError是个死循环！
如果你能把代码写全给我，我将感激不禁！！
我是菜鸟，请原谅！！