Sub Process_Globals
Dim UDP_Listen As UDPSocket 'jnetwork lib
Dim Packet1 As UDPPacket 'jnetwork lib
Dim data() As Byte
End Sub
Sub AppStart (Args() As String)
UDP_Listen.Initialize("UDP_Listen",12345,9999999)
RunMe
StartMessageLoop
End Sub
Sub RunMe
Dim msg As String = "0x007FFFFFFF"
data = msg.GetBytes("UTF8")
Packet1.Initialize(data, "192.168.0.33", 12345)
UDP_Listen.Send(Packet1)
End Sub
Sub UDP_Listen_PacketArrived (Packet As UDPPacket)
Dim msg1 As String
msg1 = BytesToString(Packet.Data, Packet.Offset, Packet.Length, "UTF8")
Log(msg1)
End Sub