www.pudn.com > UpdReceive_UdpSend.rar > UdpDataSend.vb

Imports System.Net.Sockets 
Imports System.Text 
 
Public Class UdpDataSend 
    Private myUdpClient As UdpClient 
 
    Private strIP As String 
    Private intPort As Integer 
    Private SendMessage As String 
    Private ErrMessage As String = "" 
 
    Public Sub New(ByVal strIP As String, ByVal intPort As Integer) 
        Me.strIP = strIP 
        Me.intPort = intPort 
    End Sub 
 
    Public Sub SendData() 
        Try 
            Dim dataSend() As Byte 
 
            myUdpClient = New UdpClient(strIP, intPort) 
            ' dataSend = Encoding.ASCII.GetBytes(SendMessage) 
            dataSend = Encoding.Unicode.GetBytes(SendMessage) 
            myUdpClient.Send(dataSend, dataSend.Length) 
 
            myUdpClient.Close() 
 
        Catch e As Exception 
            ErrMessage = e.Message 
        End Try 
    End Sub 
 
    Public ReadOnly Property GetMessage() As String 
        Get 
            Return ErrMessage 
        End Get 
    End Property 
 
    Public WriteOnly Property SetSendMessage() As String 
        Set(ByVal Value As String) 
            SendMessage = Value 
        End Set 
    End Property 
 
End Class