我是VB的初学者,最近在计算机上调试了一个关于WINSOCK的例程。采用UDP协议传输,一执行winsock的senddata 方法就提示,实时错识'126',请高手指点!!

解决方案 »

  1.   

    发送端:
    Private Sub CmdCook_Click()
    UDPdd.Protocol = sckUDPProtocol
    UDPdd.Close
    UDPdd.RemotePort = 8888
    UDPdd.Bind 8889
    UDPdd.RemoteHost = "255.255.255.255"
    UDPdd.SendData "UDP发送"
    end sub接收端:
    Private Sub Form_Load()
        UDPServer.Protocol = sckUDPProtocol
        UDPServer.RemotePort = 8889
        UDPServer.Bind 8888
    End Sub
    Private Sub UDPServer_DataArrival(ByVal bytesTotal As Long)
    dim strData as string
    UDPServer.GetData strData
    msgbox strData
    end sub
      

  2.   

    同意楼上
    调用bind方法,与对方连接
      

  3.   

    Private Sub CmdCook_Click()
    UDPdd.Protocol = sckUDPProtocol
    if udpdd.state<> sckclosed then
        UDPdd.Close
    end if
    UDPdd.RemoteHost = "255.255.255.255"
    UDPdd.RemotePort = 8888
    UDPdd.Bind 8889UDPdd.SendData "UDP发送"
    end sub
      

  4.   

    誰去記錯誤號碼呀,udp要兩個端口都沒有被使用才行
      

  5.   

    不要理它!
    on error resume next
    这是VB的一个BUG      ----------------------------------------------- 
          我编了三年程序                只用过VB 
          我用了三年VB         只会WINSOCK和加密
           http://www.offca.com/gps/iphonebbs/
          **********中国网络程序开发联盟欢迎你**********
          -----------------------------------------------
      

  6.   

    实时错识'126'是什么意思?
    ====================================
    Private Sub Command1_Click()
    Print Error(126)
    End Sub
    应用程序定义或对象定义错误