发送UDP消息，仅仅发送文本，（VB.NET）可以发送中文

    ''' <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