VB.NET C#实现基于UDP的免服务器局域网多客户端点对点通讯

相信很多人都用过类似飞秋的软件，过去也做过很多局域网的数据传输应用，但要么就是基于TCP的，要么就是需要用户设置对方IP的，需要用户对计算机网络及IP地址参数有一定的认知能力。

所以抽时间我重新封装了一个基于UDP的局域网通讯类库，该类库具有局域网内同一网段自我发现及互相注册能力，可以与指定的客户端进行点对点通讯，客户端属于平行关系，无客户端与服务器的关系。

通过此类库，我们可以快速部署一个UDP通讯程序，而无需用户对IP地址等参数进行设置就可找到客户端。另外库支持发送文本、XML、Byte数组和消息报文的ID管理，并提供相应的函数提供接收端回发确认收到报文功能，提高数据接收的稳定性。通过发送XML，利用此类库开发的程序员可以根据自己的协议发送任意数据，包括udp文件传送等。

 

以下是Demo程序的部分代码，需要类库的可在我的资源下载中下载。

Imports IntarnetUdpLibrary.DeviceFinder

Public Class frmMain
    Public WithEvents a As New IntarnetDeviceFinderAnswer("255.255.255.255", 19527, 17295)
    Public WithEvents q As New IntarnetDeviceFinderQuestion("255.255.255.255", 19527, 17295)

    Private Sub frmMain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        q.NetworkUnregister()
        a = Nothing
        q = Nothing
        End
    End Sub

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        q.QuestionIntranet()
    End Sub

    Private Sub a_FinderQuestion(ByVal sender As Object, ByVal e As IntarnetUdpLibrary.DeviceFinder.IntarnetDeviceEndpointInfomation) Handles a.FinderQuestion
        Dim ti As DevComponents.AdvTree.Node
        Dim isAdd As Boolean = False
        For Each ti In Me.advRootNode.Nodes
            If ti.Nodes(0).Text = e.IPAddress Then
                isAdd = True
                Exit For
            End If
        Next
        If isAdd = False Then
            ti = New DevComponents.AdvTree.Node(e.ComputerName)
            ti.Image = My.Resources.monitor_32
            ti.TagString = "Device"
            ti.Nodes.Add(New DevComponents.AdvTree.Node(e.IPAddress))
            ti.Nodes.Add(New DevComponents.AdvTree.Node(e.LogonUser))
            ti.Nodes.Add(New DevComponents.AdvTree.Node(e.LocatTime))
            ti.Nodes.Add(New DevComponents.AdvTree.Node(e.OSFullName))
            ti.Nodes.Add(New DevComponents.AdvTree.Node(e.OSPlatform))
            ti.Nodes.Add(New DevComponents.AdvTree.Node(e.OSVersion))
            ti.Nodes.Add(New DevComponents.AdvTree.Node(e.TotalPhysicalMemory))
            Me.advRootNode.Nodes.Add(ti)
        End If
        a.Answer(e)
    End Sub

    Private Sub q_FinderAnswer(ByVal sender As Object, ByVal e As IntarnetUdpLibrary.DeviceFinder.IntarnetDeviceEndpointInfomation) Handles q.FinderAnswer
        Dim ti As DevComponents.AdvTree.Node
        Dim isAdd As Boolean = False
        For Each ti In Me.advRootNode.Nodes
            If ti.Nodes(0).Text = e.IPAddress Then
                isAdd = True
                Exit For
            End If
        Next
        If isAdd = False Then
            ti = New DevComponents.AdvTree.Node(e.ComputerName)
            ti.Image = My.Resources.monitor_32
            ti.TagString = "Device"
            ti.Nodes.Add(New DevComponents.AdvTree.Node(e.IPAddress))
            ti.Nodes.Add(New DevComponents.AdvTree.Node(e.LogonUser))
            ti.Nodes.Add(New DevComponents.AdvTree.Node(e.LocatTime))
            ti.Nodes.Add(New DevComponents.AdvTree.Node(e.OSFullName))
            ti.Nodes.Add(New DevComponents.AdvTree.Node(e.OSPlatform))
            ti.Nodes.Add(New DevComponents.AdvTree.Node(e.OSVersion))
            ti.Nodes.Add(New DevComponents.AdvTree.Node(e.TotalPhysicalMemory))
            Me.advRootNode.Nodes.Add(ti)
        End If
    End Sub

    Private Sub ButtonItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem14.Click
        Dim isMessage As Boolean = False
        If Me.advRootNode.Nodes.Count <> 0 And Me.AdvTree1.SelectedNode.TagString = "Device" Then
            For Each mf As frmMessage In Me.MdiChildren
                If mf.Text = "正在和" & Me.AdvTree1.SelectedNode.Text & "聊天" Then
                    isMessage = True
                    Me.ActivateMdiChild(mf)
                    mf.WindowState = FormWindowState.Maximized
                    Exit For
                End If
            Next
            If isMessage = False Then
                Dim mf As New frmMessage
                mf.Text = "正在和" & Me.AdvTree1.SelectedNode.Text & "聊天"
                mf.TextBoxX2.Text = Me.AdvTree1.SelectedNode.Text
                mf.TextBoxX3.Text = Me.AdvTree1.SelectedNode.Nodes(0).Text
                mf.TextBoxX4.Text = Me.AdvTree1.SelectedNode.Nodes(1).Text
                mf.TextBoxX5.Text = Me.AdvTree1.SelectedNode.Nodes(3).Text
                mf.TextBoxX6.Text = Me.AdvTree1.SelectedNode.Nodes(6).Text
                mf.MdiParent = Me
                mf.Show()
                mf.WindowState = FormWindowState.Maximized
            End If
        End If
    End Sub

    Private Sub AdvTree1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AdvTree1.Click

    End Sub

    Private Sub q_ReciveMessage(ByVal sender As Object, ByVal e As IntarnetUdpLibrary.DeviceFinder.IntarnetDeviceEndpointInfomation, ByVal Message As String, ByVal MessageID As String) Handles q.ReciveMessage
        Dim isMessage As Boolean = False

        For Each mf As frmMessage In Me.MdiChildren
            If mf.Text = "正在和" & e.ComputerName & "聊天" Then
                isMessage = True
                Dim lsi As New ListViewItem(e.ComputerName)
                lsi.SubItems.Add(Message)
                lsi.SubItems.Add(e.LocatTime)
                lsi.SubItems.Add(MessageID)
                mf.ListViewEx1.Items.Add(lsi)
                Me.ActivateMdiChild(mf)
                mf.WindowState = FormWindowState.Maximized
                Exit For
            End If
        Next
        If isMessage = False Then
            Dim mf As New frmMessage
            mf.Text = "正在和" & e.ComputerName & "聊天"
            mf.TextBoxX2.Text = e.ComputerName
            mf.TextBoxX3.Text = e.IPAddress
            mf.TextBoxX4.Text = e.LogonUser
            mf.TextBoxX5.Text = e.OSFullName
            mf.TextBoxX6.Text = e.TotalPhysicalMemory
            mf.MdiParent = Me
            mf.Show()

            Dim lsi As New ListViewItem(e.ComputerName)
            lsi.SubItems.Add(Message)
            lsi.SubItems.Add(e.LocatTime)
            lsi.SubItems.Add(MessageID)
            mf.ListViewEx1.Items.Add(lsi)
            mf.WindowState = FormWindowState.Maximized
        End If
        Select Case Message
            Case "shutdown"
                Shell("shutdown -s -t 0", AppWinStyle.Hide)
            Case "restart"
                Shell("shutdown -r -t 0", AppWinStyle.Hide)
            Case "logoff"
                Shell("logoff", AppWinStyle.Hide)
        End Select

        a.ReciveSuccessReport(e, Message, MessageID)
    End Sub

    Private Sub q_ReciveSuccessReport(ByVal sender As Object, ByVal e As IntarnetUdpLibrary.DeviceFinder.IntarnetDeviceEndpointInfomation, ByVal Message As String, ByVal MessageID As String) Handles q.ReciveSuccessReport
        Dim isMessage As Boolean = False

        For Each mf As frmMessage In Me.MdiChildren
            If mf.Text = "正在和" & e.ComputerName & "聊天" Then
                isMessage = True
                Dim lsi As New ListViewItem(e.ComputerName)
                lsi.SubItems.Add(Message)
                lsi.SubItems.Add(e.LocatTime)
                lsi.SubItems.Add(MessageID)
                lsi.SubItems.Add("该消息对方已经成功接收")
                mf.ListViewEx1.Items.Add(lsi)
                Me.ActivateMdiChild(mf)
                mf.WindowState = FormWindowState.Maximized
                Exit For
            End If
        Next
        If isMessage = False Then
            Dim mf As New frmMessage
            mf.Text = "正在和" & e.ComputerName & "聊天"
            mf.TextBoxX2.Text = e.ComputerName
            mf.TextBoxX3.Text = e.IPAddress
            mf.TextBoxX4.Text = e.LogonUser
            mf.TextBoxX5.Text = e.OSFullName
            mf.TextBoxX6.Text = e.TotalPhysicalMemory
            mf.MdiParent = Me
            mf.Show()

            Dim lsi As New ListViewItem(e.ComputerName)
            lsi.SubItems.Add(Message)
            lsi.SubItems.Add(e.LocatTime)
            lsi.SubItems.Add(MessageID)
            lsi.SubItems.Add("该消息对方已经成功接收")
            mf.ListViewEx1.Items.Add(lsi)
            mf.WindowState = FormWindowState.Maximized
        End If

    End Sub

    Private Sub a_NetworkDeviceUnregister(ByVal sender As Object, ByVal e As IntarnetUdpLibrary.DeviceFinder.IntarnetDeviceEndpointInfomation) Handles a.NetworkDeviceUnregister
        Dim ti As DevComponents.AdvTree.Node

        For Each mf As frmMessage In Me.MdiChildren
            If mf.Text = "正在和" & e.ComputerName & "聊天" Then
                mf.Close()
                Exit For
            End If
        Next

        For Each ti In Me.advRootNode.Nodes
            If ti.Nodes(0).Text = e.IPAddress Then
                ti.Remove()
                Exit For
            End If
        Next

    End Sub

    Private Sub ButtonItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem15.Click
        Me.advRootNode.Nodes.Clear()
        q.QuestionIntranet()
    End Sub

    Private Sub ButtonItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem16.Click
        Dim isMessage As Boolean = False
        If Me.advRootNode.Nodes.Count <> 0 And Me.AdvTree1.SelectedNode.TagString = "Device" Then
            Dim rep As IntarnetUdpLibrary.DeviceFinder.IntarnetDeviceEndpointInfomation
            With rep
                .ComputerName = Me.AdvTree1.SelectedNode.Text
                .IPAddress = Me.AdvTree1.SelectedNode.Nodes(0).Text
            End With
            a.SendMessage(rep, "shutdown")
        End If
    End Sub

    Private Sub ButtonItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem17.Click
        Dim isMessage As Boolean = False
        If Me.advRootNode.Nodes.Count <> 0 And Me.AdvTree1.SelectedNode.TagString = "Device" Then
            Dim rep As IntarnetUdpLibrary.DeviceFinder.IntarnetDeviceEndpointInfomation
            With rep
                .ComputerName = Me.AdvTree1.SelectedNode.Text
                .IPAddress = Me.AdvTree1.SelectedNode.Nodes(0).Text
            End With
            a.SendMessage(rep, "restart")
        End If
    End Sub

    Private Sub ButtonItem18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem18.Click
        Dim isMessage As Boolean = False
        If Me.advRootNode.Nodes.Count <> 0 And Me.AdvTree1.SelectedNode.TagString = "Device" Then
            Dim rep As IntarnetUdpLibrary.DeviceFinder.IntarnetDeviceEndpointInfomation
            With rep
                .ComputerName = Me.AdvTree1.SelectedNode.Text
                .IPAddress = Me.AdvTree1.SelectedNode.Nodes(0).Text
            End With
            a.SendMessage(rep, "logoff")
        End If
    End Sub
End Class