UdpClient.DropMulticastGroup : UdpClient « System.Net.Sockets « VB.Net by API

1. VB.Net by API
2. System.Net.Sockets
3. UdpClient

UdpClient.DropMulticastGroup

  

Imports System.Net.Sockets
Imports System.Text
Imports System.IO
Imports System.Net
Imports System.Threading
Public Class Tester

    Dim Shared GroupIP As IPAddress
    Dim Shared GroupEP As IPEndPoint
    Dim Shared ListenUdp As UdpClient

    Public Shared Sub Main
        Dim ListenThread As Thread
        ListenThread = New Thread(AddressOf BeginListen)
        ListenThread.Start()

'        ListenUdp.DropMulticastGroup(GroupIP)
'        ListenUdp.Close()
'        ListenThread.Abort()

    End Sub

    Private Shared Sub BeginListen()
        Dim bteReceiveData() As Byte
        Dim strReceiveData As String

        GroupIP = IPAddress.Parse("127.0.0.1")

        GroupEP = New IPEndPoint(GroupIP, 12345)
        ListenUdp = New UdpClient(12345)
        ListenUdp.JoinMulticastGroup(GroupIP)

        Do
            bteReceiveData = ListenUdp.Receive(GroupEP)
            strReceiveData = Encoding.Unicode.GetString(bteReceiveData)
            Console.WriteLine(strReceiveData)
        Loop

    End Sub
End Class

   
    
  

Related examples in the same category