Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature may not be available in some browsers.
Imports System.Net
Imports System.Threading
Imports System.Text
Public Class UDP_Texte_Empfangen
// Variablen
Dim udpclient As New UdpClient
Dim port As Integer
Dim receiveThread As Threading.Thread
Dim receivedText As String
Public RemoteIpEndPoint As New System.Net.IPEndPoint(System.Net.IPAddress.Any, 0)
// Methoden
Private Sub Main()
// Vorbereitungen
port = 11000
End Sub
Private Sub receive()
While 1 = 1
Dim receiveBytes As [Byte]() = udpclient.Receive(RemoteIpEndPoint)
receivedText &= Encoding.ASCII.GetChars(receiveBytes)
End While
End Sub
Private Sub Start(ByVal sender As System.Object, ByVal e As System.EventArgs)
port = nudReceive_Port.Value
udpclient = New udpclient(port)
receiveThread = New Threading.Thread(AddressOf receive)
receiveThread.IsBackground = False
receiveThread.Priority = Threading.ThreadPriority.Lowest
receiveThread.Start()
nudReceive_Port.Enabled = False
cbReceive_Start.Enabled = False
cbReceive_Stop.Enabled = True
End Sub
End Class