Private Sub AutoDiscover_PacketArrived (Packet As UDPPacket)
Try
Dim bc As ByteConverter
Dim data(Packet.Length) As Byte
bc.ArrayCopy(Packet.Data, Packet.Offset, data, 0, Packet.Length)
Dim ds As String = serializator.ConvertBytesToObject(data)
If ds <> DiscoveredServer Then
DiscoveredServer = ds
If DiscoveredServer = "127.0.0.1" Then DiscoveredServer="192.168.43.1"
Log("Discovered server: " & DiscoveredServer)
CallSub(Main, "UpdateState")
End If
Catch
Log(LastException)
End Try
End Sub