我的程序是从网上找来的在自己的机子上还能运行到别的机子上出现错误
Private Sub Command1_Click()
   Winsock1.SendData Text1.Text
End Sub

Private Sub Form_Load()
Dim my As String
Winsock1.Protocol = sckUDPProtocol '设置为UDP协义
Winsock1.LocalPort = 10     '随便设置，不过两个要一样
Winsock1.RemotePort = 10
my = Winsock1.LocalIP     '取得自己的IP地址，是不要的
Winsock1.RemoteHost = my  '这里应该是设置为别人计算机的IP地址，由于自己是单机，所以就设置成自己的，自己给自己发信息
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '取得数据时发生
  Dim Tmp As String
  Winsock1.GetData Tmp, vbString '取得数据
  Tmp = "对方位址:" + Winsock1.RemoteHostIP + "发言内容为-->" + Tmp
  Text2.Text = Tmp + Chr$(13) + Chr$(10) + Text2.Text
End Sub
大家来看看啊，有没有好的解决办法，小弟在此先谢了........

你把 MSWINSCK.OCX 这个文件放到你程序一起去试试.估计你是差了这个文件。
怎么放，具体点行吗？
我是新手

还有MSWINSCK.OCX 这个文件在哪里

程序是能打开了，但还是不行，有问题不能连接上，

明天考国二，考完后再试试

明天考国二，考完后再试试