Sub Activity_Create(FirstTime As Boolean)
UDPSocketAdn.Initialize("UDPSocket",3693,1000)
Obj1.Target = Obj1.GetContext
Obj1.Target = Obj1.RunMethod2("getSystemService", "wifi", "java.lang.String")
Obj1.Target = Obj1.RunMethod2("createMulticastLock", "mylock", "java.lang.String")
Obj1.RunMethod2("setReferenceCounted", False, "java.lang.boolean")
Obj1.RunMethod("acquire")
end sub
Sub UDPSocketArtnetAdn_PacketArrived (Packet As UDPPacket)
ToastMessageShow("received Multicast",True)
End Sub