我把问题详细说一下，为什么我的winsock1.sendata 总是出错？

Question

两个程序：
第一个程序在主机：[192.168.0.1上]的winsock配置： 
name:winsockSever RemoteHost:192.168.0.2 Remote端口：4002，本地端口：4001
在Form_load()中：winsockSever.bind 4001
作用：dim str1 as string 
      str1="刷新" 
      winsockSever.sendata str1'告诉192.168.0.1把数据刷新。
      程序在运行到这里，就出错：实时错误 126 或者：实时错误 10047 要求的地址族不存在。
      *****请高手帮忙。
第二个程序：在[192.168.0.2]上，具体的winsock配置：
name:winsockClinet RemoteHost:192.168.0.1 Remote端口：4001，本地端口：4002，
在Form_load()中：winsockclinet.bind 4002
作用：dim str1 as string
      str1="nihao" & 文本变量
      winsockClinet.sendata str1
出错内容相通，网络配置没有问题，一台电脑使用xp,一台使用98，求告人帮忙。

Answer 1

你们的电脑IP是这个吗?一看就知道是IP不正确没法连接了

Answer 2

我一般是这样用的:
Server端:
    winsock.LocalPort = 1234
    winsock.Listen
Client端:
    winsock.RemoteIP = "192.168.5.11"
    winsock.RemotePort = 1234
    winsock.Connect

Answer 3

两台电脑都是SENDDATA,那谁GETDATA??
发送代码是没错,问题是你的代码跟本没让两台电脑连接起来

Answer 4

我用的是udp，不是tcp,网上说udp要比tcp简单，不过我用这就是总是出错？：（

Answer 5

UDP最简单，不用监听，连接。只用一端设置RemoteHost和RemotPort，一端设置LocalPort，并绑定，就可以实现互相通信。
SERVER:
Option ExplicitPrivate Sub Command1_Click()
    
    Winsock1.SendData Text1.Text
    
End SubPrivate Sub Form_Load()    With Winsock1
        .Protocol = sckUDPProtocol
        .LocalPort = 2000
        .Bind .LocalPort
    End With
    
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)    Dim s As String
    
    Winsock1.GetData s, vbString
    Text1 = s
    
End SubCLIENT:
Option ExplicitPrivate Sub Command1_Click()    Winsock1.SendData Text1.Text
    
End SubPrivate Sub Form_Load()    With Winsock1
        .Protocol = sckUDPProtocol
        .RemoteHost = "192.168.7.52"
        .RemotePort = 2000
    End With
    
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)    Dim s As String
    
    Winsock1.GetData s, vbString
    Text1 = s
    
End Sub