Visual Basic How To: Simple UDP

Опубликовано: 29 Март 2026
на канале: Pillazo

40,427

142

Quick UDP Program.
When copy-n-pastin, make sure 'Handles something' is at the end of your events!
Code:
Imports System.Net
Imports System.Text.Encoding

Public Class Form1
Dim publisher As New Sockets.UdpClient(0)
Dim subscriber As New Sockets.UdpClient(2000)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
publisher.Connect(TBTo.Text, TBPort.Text)
Dim sendbytes() As Byte = ASCII.GetBytes(TBSend.Text)
publisher.Send(sendbytes, sendbytes.Length)
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Me.Load
subscriber.Client.ReceiveTimeout = 100
subscriber.Client.Blocking = False
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
Try
Dim ep As IPEndPoint = New IPEndPoint(IPAddress.Any, 0)
Dim rcvbytes() As Byte = subscriber.Receive(ep)
TBRcv.Text = ASCII.GetString(rcvbytes)
Catch ex As Exception
End Try
End Sub

End Class

Also, I need a new screen capture software!