StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
text
Body
copied!<p>The UDP client sends an array of bytes.<br> You could use a memory stream and write bytes to an array. </p> <pre><code>Public Class MainClass Shared client As UdpClient Shared receivePoint As IPEndPoint Public Shared Sub Main() receivePoint = New IPEndPoint(New IPAddress(0), 0) client = New UdpClient(8888) Dim thread As Thread = New Thread(New ThreadStart(AddressOf WaitForPackets)) thread.Start() Dim packet As Packet = New Packet("client") Console.WriteLine("Sending packet containing: ") Dim data As Byte() = packet.Data client.Send(data, data.Length, "localhost", 5000) Console.WriteLine("Packet sent") End Sub Public Shared Sub WaitForPackets() While True Dim data As Byte() = client.Receive(receivePoint) Console.WriteLine("Packet received:" & _ vbCrLf & "Length: " & data.Length & vbCrLf & _ System.Text.Encoding.ASCII.GetString(data)) End While End Sub ' WaitForPackets End Class Public Class Packet Private _message As String Public Sub New(ByVal message As String) _message = message End Sub Public Function Data() As Byte() Dim ret(13 + _message.Length) As Byte Dim ms As New MemoryStream(ret, True) ms.WriteByte(&H1) '<0x01>Z30<0x02>AA<0x06><0x1B>0b<0x1C>1<0x1A>1This message will show up on the screen<0x04> ms.Write(System.Text.Encoding.ASCII.GetBytes("Z30"), 0, 3) ms.WriteByte(&H2) ms.Write(System.Text.Encoding.ASCII.GetBytes("AA"), 0, 2) ms.WriteByte(&H6) ms.Write(System.Text.Encoding.ASCII.GetBytes("0b"), 0, 2) ms.WriteByte(&H1C) ms.Write(System.Text.Encoding.ASCII.GetBytes("1"), 0, 1) ms.WriteByte(&H1A) ms.Write(System.Text.Encoding.ASCII.GetBytes(_message), 0, _message.Length) ms.WriteByte(&H4) ms.Close() Data = ret End Function End Class </code></pre>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload