精华内容
下载资源
问答
  • VB UDP.rar

    2020-07-21 17:37:34
    完整的VB UDP,可以参考一下。
  • vb UDP广播示例

    2014-07-05 15:11:34
    UDP广播收发数据的Vb6 源码示例,使用socket控件
  • VB Socket通讯UDP方式

    2017-09-04 15:17:39
    VB环境下的UDP方式socket通讯,注意调试代码前需要先添加winsocket控件,代码中为一个为发送端,一个为客户端
  • VB UDP文件传输示例

    2012-07-02 16:23:29
    本人用VB编写的UDP文件传输的一个示例,已经具备一个较完整功能的雏形,欢迎下载交流。
  • vb udp winsock 对话程序

    2012-03-14 17:48:38
    简单的vb winsock点对点聊天 udp 基础程序 无服务器 客户端 正在改进
  • VB利用UDP发送数据包例子源码
  • 实现 UDP 的连接通行,包括 client 和 server
  • vb.net udp自动收发数据

    2018-08-16 00:38:28
    VB.net 发送和接收基于UDP的数据,程序由发送端和接收端组成,各司其责,在发送窗口输入内容,点击“发送”后,接收端能收到信息,有兴趣的可下载参阅。程序运行于VS2015及更高版本的.net环境下。
  • VB通过UDP与单片机的连接通讯,并包含了汉转16进制,16转汉功能
  • vb udp网络五子棋

    2008-12-18 14:09:46
    简易的网络五子棋 主要练习vb的网络编程 是对战类型的 不是人机对战
  • VB.NET UDP数据传送列子

    2017-04-14 20:12:26
    局域网聊天工具的最基本的技术实例,两个电脑可以连接传送信息。
  • VB实现UDP通讯,有客户端和服务器端。 并且对接收到的数据进行简单处理,为了便于和上位机通讯,并在VB界面上显示处理后的结果。
  • VB.NET 局域网通讯,用的UDP方式,2个源代码。一个发送端,一个接收端。
  • VB6.0,使用UDP协议广播数据,数据量比较大,有5~7万字节,分成每块1024字节循环发送,但是发送一部分之后就出现错误 实时错误 '10035': 套接字不成块,指定的操作将分块 按理说1024字节已经远远小于缓冲区大小了,...
  • 2年前用到udp通信,但是本地端口没有指定,后面没有继续,也不了了之; 时隔这么久,又有个用UDP通讯的项目; 回顾了一下,不解决本地端口绑定是不行的, 这个整么理解,即本地我们以8888端口发送到远端8888端口...

    2年前用到udp通信,但是本地端口没有指定,后面没有继续,也不了了之;

    时隔这么久,又有个用UDP通讯的项目;

    回顾了一下,不解决本地端口绑定是不行的,

    这个整么理解,即本地我们以8888端口发送到远端8888端口,

    不是任意指定一个随机本地端口发送到远端8888端口,

    言归正传,上马,

    当我们要发送字符或16进制时,如下,当这个模式发送的时候,接收端显示发送端口为随机端口;

    Dim udp_sender As New UdpClient
    Dim RemoteUdp As New IPEndPoint(IPAddress.Parse(fasong_IP.Text.ToString), 
    ...
                udp_sender.Send(sdata, sdata.Length, RemoteUdp)
    ...

    在适当的位置重新设置加入以下设置,绑定本地发送端口,针对RemoteUdp的设置稍作调整:

    Dim udp_socket = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
            udp_socket.SetSocketOption(SocketOptionLevel.Socket, SocketOptionName.ReuseAddress, 1)
            udp_socket.Bind(New IPEndPoint(IPAddress.Any, 8888))
            udp_sender.Client = udp_socket

    通讯结果为:本地指定了固定的端口发送到对方固定端口;

    总结:

    其实最早调节这个的时候,当没有办法的办法的时候,可以尝试看下C#的同等语法,有一些启示,其他也看了下,JAVA的,但是不怎么匹配;

    好了,目前解决了这个问题,给来往的人一些参考,抛砖引玉,做出你们想要的东西。

     

    展开全文
  • 接收方是硬件设备,udp方式发送“10 00 00 00 05 11 00 06 07 00 00 0A 00 00 09 03” 这个应该怎么写?谢谢!
  • 演示了vb中如何使用UDP协议进行UDP“打洞”,其中还含有代理服务器的演示代码
  • 前面几篇日志中,介绍了有关UDP的数据收发方法,在UDP技巧3中,发送数据已经使用了UdpClient,但由于接收时,需要非阻塞操作,所以使用了socket方法。随着项目的进展,进一步发现,直接使用UdpClient也可以完成UDP的...

        前面几篇日志中,介绍了有关UDP的数据收发方法,在UDP技巧3中,发送数据已经使用了UdpClient,但由于接收时,需要非阻塞操作,所以使用了socket方法。随着项目的进展,进一步发现,直接使用UdpClient也可以完成UDP的非阻塞操作,而且程序异常简单,本文就将详细介绍这种UDP数据收发方法。

        1、为了使用UdpClient,我们首先需要引入以下命名空间。

    Imports System.Net
    Imports System.Net.Sockets
    Imports System.Threading

        2、在主窗体中,声明全局变量,以方便各方法函数调用。在声明时,可直接指明本地端口号,例如下面程序我们声明了一个UdpClient对象,并指明自身端口号为929。

    Dim udp As New UdpClient(929)

        3、在窗体的加载函数中,启用线程,用于接收UDP数据。如下程序,指明线程的处理函数是thread_udp_receive,并将SocketIsValid变量设置为True,用于告知线程不退出,当窗体结束的时候将SocketIsValid变量设置为False,以结束线程。

    SocketIsValid = True
    Dim thread As Thread = New Thread(New ThreadStart(AddressOf thread_udp_receive))
    thread.Start()

        4、接下来是结束线程处理函数,首先函数从数据库中取得远程IP地址和端口号存于ip_end_point中,然后声明data数组用于接收数据。接下来进入while循环,先判断Available属性,如果该属性为1就表明缓存中有数据,用Receive方法取出,否则就延时100ms,这样就实现了非阻塞操作。

        Private Sub thread_udp_receive()
            Dim ip_end_point As IPEndPoint
            Dim strSQL As String
            Dim rst As ADODB.Recordset
            strSQL = "select * from configuration_net where MINGCHENG = 'configuration_net'"
            rst = myADO.OpenRecordset(strSQL)
            If Not rst.EOF Then
                ip_end_point = New IPEndPoint(IPAddress.Parse(rst.Fields("LocalIP_A").Value & "." & rst.Fields("LocalIP_B").Value & "." & rst.Fields("LocalIP_C").Value & "." & rst.Fields("LocalIP_D").Value), 929)
            Else
                ip_end_point = New IPEndPoint(IPAddress.Parse("192.168.0.1"), 1000)
            End If
            rst.Close()
    
            Dim data(1024) As Byte
            While True
                If udp.Available > 0 Then
                    data = udp.Receive(ip_end_point)
                    sub_udp_receive(data, data.Length)
                Else
                    common.Delay(100)
                End If
                If SocketIsValid = False Then
                    udp.Close()
                    Exit While
                End If
            End While
        End Sub

        5、下面是发送函数,这个在应用技巧4中已经介绍过,其基本思路是从数据库中获得远程主机IP地址和端口号,然后准备发送数据,并计算效验和,调用udp.Send函数将其发送出去,并在窗体中完成显示操作。

        Private Sub sub_udp_send(ByRef data() As Byte, ByVal length As Int16)
            Dim ip_end_point As IPEndPoint
            Dim strSQL As String
            Dim rst As ADODB.Recordset
            strSQL = "select * from configuration_net where MINGCHENG = 'configuration_net'"
            rst = myADO.OpenRecordset(strSQL)
            If Not rst.EOF Then
                ip_end_point = New IPEndPoint(IPAddress.Parse(rst.Fields("LocalIP_A").Value & "." & rst.Fields("LocalIP_B").Value & "." & rst.Fields("LocalIP_C").Value & "." & rst.Fields("LocalIP_D").Value), 929)
            Else
                ip_end_point = New IPEndPoint(IPAddress.Parse("192.168.0.1"), 1000)
            End If
            rst.Close()
    
            Dim i As Int16
            Dim strData As String
    
            Dim checksum As Int16 = 0
            For i = 0 To length - 1
                checksum = checksum + data(i)
            Next
            data(length) = checksum Mod 256
            udp.Send(data, length + 1, ip_end_point)
            txtCommunicationData.Text = vbCrLf & txtCommunicationData.Text
            strData = "发送(" & TimeOfDay.ToLongTimeString() & “):”
            For i = 0 To length
                strData = strData & " " & common.OneToTwo(Hex(data(i)))
            Next
            txtCommunicationData.Text = vbCrLf & strData & txtCommunicationData.Text
        End Sub

        6、在Me.Disposed方法中将SocketIsValid设置为False,以便完成在窗体退出时,退出线程。

        Private Sub frm_configuration_uart_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
            SocketIsValid = False
        End Sub

        通过以上程序设计,就可以轻松完成UDP的收发操作了。


    原创性文章,转载请注明出处
     
    CSDN:http://blog.csdn.net/qingwufeiyang12346 






    展开全文
  • VB.net代码,UDP作服务端自动绑定自身IP,定时启动循环侦听,当远端客服端连接时,自动获取远端IP和端口号。数据收发不乱码,程序异常简单,有注释
  • ''' <... ''' 发送UDP消息,仅仅发送,不接收数据 ''' </summary> ''' <param name="hostname"></param> ''' <param name="port"></param> ''' <param name="...
        ''' <summary>
        ''' 发送UDP消息,仅仅发送,不接收数据
        ''' </summary>
        ''' <param name="hostname">IP地址</param>
        ''' <param name="port">端口</param>
        ''' <param name="strMessage">需要发送的文本</param>
        ''' <returns></returns>
        Public Function WPGUDPSend(ByVal hostname As String, ByVal port As Integer, ByVal strMessage As String) As Boolean
            Try
                Dim data As Byte() = System.Text.ASCIIEncoding.Default.GetBytes(strMessage)
                Dim udpClient = New Net.Sockets.UdpClient()
                udpClient.BeginSend(data, data.Length, New Net.IPEndPoint(Net.IPAddress.Parse(hostname), port),
                                    New AsyncCallback(Sub(result As IAsyncResult)
                                                          udpClient.EndSend(result)
                                                      End Sub), Nothing)
    
                Return True
            Catch ex As Exception
                Return False
            End Try
        End Function
    
    展开全文
  • VB写的局域网通信例子,Socket编程,UDP协议 VS2008开发
  • vs2010测试可用,可以局域网内两台机子互发互收信息
  • VBUDP编程案例

    2012-07-13 15:15:46
    如果测试的话,在局域网下,更改里面的IP地址为127.0.0.1就可以了(服务器和客户端都要改)
  • VB中Winsock控制的UDP协议的使用

    分享一下我老师大神的人工智能教程!零基础,通俗易懂!http://blog.csdn.net/jiangjunshow

    也欢迎大家转载本篇文章。分享知识,造福人民,实现我们中华民族伟大复兴!

                    VB中Winsock控制的UDP协议的使用 
      UDP协议基础:
      UDP(User Datagram Protocol)是一种无连接协议,与TCP操作不同,计算机间并不需要建立一个连接,同时,一个UDP应用可同时作为应用的客户或服务器方。
      由于UDP协议并不需要建立一个明确的连接,因此建立UDP应用要比建立TCP应用简单得多。在TCP应用中,一个Winsock控制必须明确地设置成“监听”,而其它Winsock控制则必须使用Connect方法来初始一个连接。
      使用UDP协议,在两个Winsock控制间进行数据的发送,在连接的两端必须完成以下三步:
      1.设置RemoteHost属性为其它计算机的名称;
      2.设置RemotePort属性为第二个Winsock控制的LocalPort属性的值;
      3.申请Bind方法。
      通过使用方法Bind,则可将该Winsock控制捆绑到一个本地端口,以便该Winsock控制使用该端口来进行类似TCP的“监听”功能,并防止其它应用使用该端口。
      使用该协议传送数据,首先设置客户计算机的LocalPort属性。而作为服务器的计算机仅需要设置RemoteHost属性为客户计算机的IP地址或域名即可,并将其RemotePort属性设置成客户计算机上的LocalPort属性即可,然后就可通过申请SendData方法来开始信息发送,客户计算机则可在其DataArrial事件中使用方法GetData来获取发送的信息。
      下例具体演示了一个“谈话”应用,以允许相互间进行实时的交谈。
      UDP应用一:
      建立一个新标准EXE工程文件,拖放一个Winsock控制到表单上,添加两个文本框到表单上,然后进行以下属性的设置:
      表单(Form):Name=“frmPeerA” Caption=“UDP Application(1)”
      Winsock控制:Name=“udpPeerA” Protocol=“sckUDPProtocol”
      文本框1(TextBox): Name“txtSend”
      文本框2(TcxtBox): Name=“txtOutput” MultiLine-True ScrollBars=2
      然后打开代码窗口,分别在相应的事件下输入以下代码:
      Private Sub Form_Load()
       With udpPeerA
       .RemoteHost=“197.1.1.2” '要连接到的计算机名
       .RemotePort=1010 '要连接到的端口号
       .LocalPort=1011 '该Winsock控制将要使用的本地端口号,便于其它端与该Winsock通讯
       .Bind 1011 '将该Winsock控制绑定到该本地端口
       EndWith
      End Sub
      Private Sub txtSend_Change()
       udpPeerA.SendData txtSend.Text'发送文本
      End Sub
      Private Sub udpPeerA_DataArrival(ByVal bytesTotal As Long)
       Dim strData As String
       udpPeerA.GetData strData,vbString
       txtOutput.Text = strData
      End Sub
      UDP应用二:
      类似建立UDP Server的方法,在表单上添加一个Winsock控制及两个文本框,然后进行以下属性的设置:
      表单(Form):Name=“frmPeerB” Caption=“UDP Application(2)”
      Winsock控制:Name=“udpPeerB” Protocol=“sckUDPProtoclool”
      文本框1(TextBox):Name=“txtSend”
      文本框2(TextBox):Name=“txtOutput” MultiLine=True ScrollBars=2
      然后输入以下代码:
      Private Sub Form_Load()
       With udpPeerB
       .RemoteHost=“197.1.1.2” '要连接到计算机的IP地址
       .RemotePort=1011 '要连接到的端口号
       .LocalPort=1010 '该Winsock控制将使用的本地端口号,便于其它方与之通讯
       .Bind 1010 '将该Winsock控制绑定到该本地端口
       End With
      End Sub
      Private Sub txtSend_Change()
       udpPeerB.SendData txtSend.Text '发送文本
      End Sub
      Private Sub udpPeerB_DataArrival(ByVal bytesTotal As Long)
       Dim strData As String
       udpPeerB.GetData strData,vbString
      txtOutput.Text=strData
      End Sub
      要运行该实例,打开两个Visual Basic的事例,然后分别运行这两个工程文件即可。若要在不同的机器上运行此两例,只需要将两个工程文件中的RemoteHost改变成相应的计算机的IP地址或域名即可(以上例子在Visual Basic 5.0及PWIN97上通过)。

               

    给我老师的人工智能教程打call!http://blog.csdn.net/jiangjunshow

    这里写图片描述
    展开全文
  • VB.net 发送和接收基于UDP的广播,程序由发送端和接收端组成,各司其责,在发送端输入内容,点击“发送”后,接收端能收到信息,UDP的点对点消息发送程序,有兴趣的可下载参阅。程序运行于VS2005及更高版本的.net...
  • 内容索引:VB源码,网络相关,UDP,远程唤醒 这是基于VB的一个采用UDP远程唤醒主机的例子,在Ip地址栏输入IP地址,加载唤醒文件,如果网络不出问题可能会唤醒远程主机,程序不一定每次都能唤醒,共享出来的目的是让大家...
  • VB.net应用技巧3: UDP程序设计

    千次阅读 2017-02-02 13:01:27
    本文介绍在VB.net中,进行UDP通讯的程序设计方法。  在VB.net中,进行UDP程序设计比较简单。程序除了初始化部分外,主要分为2个部分:一是发送数据的函数,另一个则需要启动一个进程接收数据,下面进行具体介绍...
  • 基于vbUDP聊天程序

    2010-07-13 15:30:08
    一个基于VB开发环境的UDP聊天程序 有点对点的聊天方式也可以进行同一网段的IP 进行聊天室的方式聊天,内附课设报告和任务书
  • VB UDP网络通信的问题

    2018-12-12 11:58:09
    请问高手,VB UDP 网络通信可以判断连接成功还是失败吗? 具体怎么操作呢?谢谢!

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 5,069
精华内容 2,027
关键字:

vb的udp