我的程序是从网上找来的在自己的机子上还能运行到别的机子上出现错误
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 这个文件放到你程序一起去试试.估计你是差了这个文件。

另外，
Winsock1.LocalPort = 10     '随便设置，不过两个要一样
Winsock1.RemotePort = 10

如果是侦听的，那么 RemotePort 就不要设置，如果是连接的，那么 LocalPort 就不要设置。
另外，端口号，就是你里面的 10 ，一般情况下不要小于 1024 的，不能大于 32767 。
小于 1024 的数字，很多是系统用了，有它特定的意思。。

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

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

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

MSWINSCK.OCX
放C:\WINDOWS\SYSTEM32下面

Winsock1.LocalPort = 10     '随便设置，不过两个要一样
Winsock1.RemotePort = 10

这里有问题.

服务器程序, LocalPort = XXX ,需要填,而 RemotePort 不要填.

客户端程序, RemotePort =XXX ,而 LocalPort 不要填.

并且这个值不要小于 1024

贡献一个自己写的小工具，帮你看看端口使用情况。

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

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