broadcast message to all clients

Take a look at the class I created. It may help you. Here is the link:

http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=991129&SiteID=1

after you receive the message under mbgWorker1_DoWork you can compare the sender IP address with the local machine address and only raise the progresschange event (reportprogress) if they are different. Something like this:

Private Sub mbgWorker1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles mbgWorker1.DoWork

Dim MyWorker As System.ComponentModel.BackgroundWorker = CType(sender, System.ComponentModel.BackgroundWorker)

Dim Scope As IPScope = CType(e.Argument, IPScope)

Dim RemoteIpEndPoint As New IPEndPoint(IPAddress.Any, 0) 'Listen to all IPs as default

'Restric listener to local domain if Scope set to IPScope.LocalDomain

If Scope = IPScope.LocalDomain Then

End If

Try

Do

' Suspend until a message returns on this socket from a remote host.

Dim receiveBytes As [Byte]() = mUDPClient.Receive(RemoteIpEndPoint)

'Stop loop if cancel was requested

If MyWorker.CancellationPending Then

'Used to flag the result MyWorker.CancellationPending (e.Canelled) = true. For Information only.

e.Cancel = True

Exit Do

End If

Dim returnData As String = System.Text.Encoding.ASCII.GetString(receiveBytes)

'Uses the report progress to return the message received

' Message is sent on ProgressChangedEventArgs.UserState

If RemoteIpEndPoint.Address.ToString <> Me.GetMyIP Then ' ******* This is the condition I suggest for your case******

End If

Loop

Catch ex As Exception

My.Computer.FileSystem.WriteAllText("BroadcastError.log", Now() & " - ReceiveMSG: " & ex.Message & vbCrLf, True)

End Try

End Sub

Hope it helps.

EduardoCoelho at 2007-8-31 >