Sub Class_Globals
Dim Response, Error As StringBuilder
Dim UDPSocketReceived As UDPSocket
Dim UDPSocketSend As UDPSocket
End Sub
Public Sub Initialize
If Main.checked1 = True Then
UDPSocketReceived.Initialize("UDP", 52830, 8000)
End If
If Main.checked2= True Then
UDPSocketSend.Initialize("UDP", Main.UDPport, 8000)
End If
End Sub
Sub UDP_PacketArrived (Packet As UDPPacket)
Dim msg As String
msg = BytesToString(Packet.Data, Packet.Offset, Packet.Length, "UTF8")
log(msg)
End Sub
Sub UDP_SendPacket(Checked As String)
UDPSocketReceived.Close
UDPSocketSend.Initialize("UDP", Main.UDPport, 8000)
Dim Packet As UDPPacket
Dim data() As Byte
data = Checked.GetBytes("UTF8")
Packet.Initialize(data, Main.UDPhost, Main.UDPport)
UDPSocketSend.Send(Packet)
UDPSocketSend.Close
UDPSocketReceived.Initialize("UDP", 52830, 8000)
End Sub