Sub Process_Globals
Dim UDPSocket1 As UDPSocket
End Sub
Private Sub Application_Start (Nav As NavigationController)
UDPSocket1.Initialize("UDP", 30303, 8000)
End Sub
Public Sub DiscoverIP
Dim Packet As UDPPacket
Dim data() As Byte
Dim strCmd As String = "Discovery"
data = strCmd.GetBytes("UTF8")
Packet.Initialize(data, "255.255.255.255", 30303)
UDPSocket1.SendBroadcast(Packet)
End Sub
Sub UDP_PacketArrived(Packet As UDPPacket)
Dim msg, IP, mac, otif As String
IP = Packet.HostAddress
msg = BytesToString(Packet.Data, Packet.Offset, Packet.Length, "UTF-8")
End Sub