Module DHCP
    Public m_Server As UdpClient
    Public TCP_Listener As TcpListener
    Public m_RecievePort As Integer = "67"
    Public m_SenderPort As Integer = "68"
    Public m_Size As Long = 5000
    Public m_Finish As Boolean = True
    Public Const listenPort As Integer = 67
    Public instance As NetworkStream
    Public Sub OpenServer()
        'm_Server = New UdpClient(67)
        ''m_Server.EnableBroadcast = True
        'Dim RemoteIpEndPoint As New IPEndPoint(IPAddress.Any, 0)
        'Dim receiveBytes() As Byte = m_Server.Receive(RemoteIpEndPoint)
        'Console.WriteLine(BitConverter.ToString(receiveBytes))
        'Dim Temp As String = ""
        'Console.WriteLine(RemoteIpEndPoint)
        'Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes("Is anybody" & _
          "there?")
        'Dim IPAddresss As New IPEndPoint(IPAddress.Broadcast, 68)
        'm_Server.Send(sendBytes, sendBytes.Length, IPAddresss)
        Dim done As Boolean = False
 
 
        Dim listener As New UdpClient(listenPort)
        Dim groupEP As New IPEndPoint(IPAddress.Any, listenPort)
        listener.DontFragment = True
 
        Try
            While Not done
                Console.WriteLine("Waiting for broadcast")
                Dim bytes As Byte() = listener.Receive(groupEP)
                Console.WriteLine("Received broadcast from {0} :", _
                  groupEP.ToString())
 
                Console.WriteLine(BitConverter.ToString(bytes))
            End While
        Catch e As Exception
            Console.WriteLine(e.ToString())
        Finally
            listener.Close()
        End Try
 
        'Temp = Encoding.ASCII.GetString(receiveBytes)
        'Console.WriteLine(Temp)
        'For Each b As String In receiveBytes
        '    Temp = Temp & vbCrLf & "Byte " & b & ": " & receiveBytes(b)
        'Next
        'Console.WriteLine(Temp)
        'Console.WriteLine("Byte 0: " & receiveBytes(0))
        'Console.WriteLine("Byte 1: " & receiveBytes(1))
        'Console.WriteLine("Byte 2: " & receiveBytes(2).ToString)
        'Console.WriteLine("Byte 3: " & receiveBytes(3))
        'Console.WriteLine("Byte 4: " & receiveBytes(4))
        'Console.WriteLine("Byte 5: " & receiveBytes(5))
        'Console.WriteLine("Byte 9: " & receiveBytes(9))
        'Console.WriteLine("Byte 11: " & receiveBytes(11))
        'Dim returnData As String = Encoding.ASCII.GetString(receiveBytes)
        'Console.WriteLine(receiveBytes)
        ''Dim returnData As Byte() = Encoding.(receiveBytes)
        ''Console.WriteLine(returnData)
        'Console.WriteLine(("This is the message you received " & 
        ' returnData.ToString()))
        'Console.WriteLine(("This message was sent from " & 
        ' RemoteIpEndPoint.Address.ToString() & " on their port number " & 
        ' RemoteIpEndPoint.Port.ToString()))
 
    End Sub
 
End Module