Public udpClient As New UdpClient(11000)
Public udpClient2 As New UdpClient(52380)
Private Sub Hoofd_Load(sender As Object, e As EventArgs) Handles MyBase.Load
udpClient.Connect("255.255.255.255", 52380)
udp_scan.Start()
udpClient2.Client.ReceiveTimeout = 1000
End Sub
Private Sub udp_scan_Tick(sender As Object, e As EventArgs) Handles udp_scan.Tick
info_label.Text = "ZOEKEN..."
Dim sendbytes = New Byte() {&H2, &H45, &H4E, &H51, &H3A, &H6E, &H65, &H74, &H77, &H6F, &H72, &H6B, &HFF, &H3}
udpClient.Send(sendbytes, sendbytes.Length)
doread()
End Sub
Function doread()
Try
Dim iepRemoteEndPoint As IPEndPoint = New _
IPEndPoint(IPAddress.Any, 52380)
Dim strMessage As String = String.Empty
Do
Dim bytRecieved As Byte() =
udpClient2.Receive(iepRemoteEndPoint)
strMessage = Encoding.ASCII.GetString(bytRecieved)
Console.WriteLine("This is the message you received: " _
+ strMessage)
Loop While (strMessage <> "exit")
udpClient2.Close()
Catch e As Exception
Console.WriteLine(e.ToString())
End Try
Return 0
End Function