代码如下:
Sub con()
    Const sckConnectionReset = 0
     udpPeerA.Close
      With udpPeerA
     .RemoteHost = xx '要连接到的计算机名
     .RemotePort = 1001 '要连接到的端口号
     .LocalPort = 1001 '该Winsock控制将要使用的本地端口号,便于其它端与该Winsock通讯
     .Bind 1001 '将该Winsock控制绑定到该本地端口
     End With
Call textSend
Exit Sub
End SubSub textSend()
     udpPeerA.SendData txtSend.Text '发送文本
     Exit Sub
End Sub
Private Sub Form_Load()
xx="...."\\此处若用IP则在win98中运行时出现:"运行时错误'126'"win2000中刚正常
Call con
End Sub
请大家看看这是怎么回事,是不是.DLL的问题

解决方案 »

  1.   

    我的经验,先升级一下MSWINSCK.OCX,用SP6里面的单步跟一下,看看winsock赋值以后的状态。
      

  2.   

    大家谁有sp6的winsock.ocx给发一个~
    谢谢[email protected]
      

  3.   

    你把本地端口BIND以后
    在     .RemoteHost = xx '要连接到的计算机名
         .RemotePort = 1001 '要连接到的端口号
    试一下
      

  4.   

    而且我用udppeer.localip取出的IP是0.0.0.1用udppeer.localhostname取的主机名是'1'-----都是在WIN98下,WIN2000中正常
    我的vb+SP6也装过了都没用
      

  5.   

    我在同台机子上写的客户端与服务端,用IP时没有出错,你不防用部件:Microsoft winsock control6.0,在它的属性RemoteHost中输入你的IP地址,我是这么做的,你试试。
      

  6.   

    Option Explicit 标示了么?
    xx 变量定义了么?
      

  7.   

    改成
    .RemoteHostIP = xx
      

  8.   

    你的Winsock的协议是UDP,UDP只能使用机器名,改为TCP就可以。
      

  9.   

    我同意楼上的说法 tcp可以用ip或机器名 udp 我没有试过能不能用机器名