Dim sender1 As New UdpClient(8001)
        Dim senpoint As New IPEndPoint(IPAddress.Broadcast, 8001)
        Dim sendbuf As Byte() = Encoding.ASCII.GetBytes("0 1")
        sender1.EnableBroadcast = True
        sender1.Connect(senpoint)
        sender1.Send(sendbuf, sendbuf.Length)
        sender1.Close()