you can use the below class like this , if you set strIpadress to
"255.255.255.25 5" the message will be sent to all computers on the network
clsBc = New Broadcaster(str IpAdress,
CType(Integer.P arse(Configurat ionSettings.App Settings("BCSer verPort")),
Short), strmessage)
clsBc.SendMessa ge()
clsBc = Nothing
### start class code ###
Imports System.Net
Imports System.Net.Sock ets
Public Class Broadcaster
#Region "Delegates"
Delegate Sub MessageSuccess( )
Delegate Sub MessageFailure( )
#End Region
#Region "Private Fields"
Private _NetIPAddress As String
Private _Port As Int16
Private _BroadcastMessa ge As String
Private myClient As New System.Net.Sock ets.UdpClient
Private _Info As Byte()
'Points to MessageSuccess( )
Public Event MessageSent As MessageSuccess
'Points to MessageFailure
Public Event MessageFailed As MessageFailure
#End Region
#Region "Properties "
Public Property NetIPAddress() As String
Get
Return _NetIPAddress
End Get
Set(ByVal Value As String)
_NetIPAddress = Value
End Set
End Property
Public Property Port() As Int16
Get
Return _Port
End Get
Set(ByVal Value As Int16)
_Port = Value
End Set
End Property
Public Property BroadcastMessag e() As String
Get
Return _BroadcastMessa ge
End Get
Set(ByVal Value As String)
_BroadcastMessa ge = Value
End Set
End Property
#End Region
#Region "Methods"
'If this constructor is used, all you need to do is call SendMessage
Public Sub New(ByVal IP_Address As String, ByVal PortNumber As Int16, ByVal
Msg As String)
Me.NetIPAddress = IP_Address
Me.Port = PortNumber
Me.BroadcastMes sage = Msg
End Sub
'If this constructor is used, make sure you set the BroadcastMessag e
Public Sub New(ByVal IP_Address As String, ByVal PortNumber As Int16)
Me.NetIPAddress = IP_Address
Me.Port = PortNumber
End Sub
Public Sub SendMessage()
_Info = System.Text.Enc oding.UTF8.GetB ytes(Me.Broadca stMessage)
Dim EndPoint As New IPEndPoint(IPAd dress.Parse(Me. NetIPAddress), Me.Port)
Try
myClient.Send(M e._Info, Me._Info.Length , EndPoint)
RaiseEvent MessageSent()
Catch ex As System.Net.Sock ets.SocketExcep tion
RaiseEvent MessageFailed()
End Try
End Sub
#End Region
End Class
### end class code ###
regrds
Michel Posseth
"Starbuck" <ke*@kevsbox.co m> wrote in message
news:uu******** ******@TK2MSFTN GP10.phx.gbl...
Hi
I want to broadcast a message to all pc's on a lan via port 1002.
Can anyone tell me the best way of doing a general broadcast.
Thanks in advance
