Imports System.Net
Imports System.Net.Sockets
 
Public Class WakeOnLan
    Public Const MAC_ADDR_BYTES As Integer = 6
    Private Const PORT_BROADCAST = 2304
 
    ' <remarks>
    ' Constructs And returns a magic packet For the given mac address.
    ' A Magic Packet Is 6 bytes of FF followed by the MAC address 16 times.
    ' </remarks>
  Public Shared Function GetMagicPacket(ByVal macAddress As String) As Byte()
        Dim Packet As Byte() = New Byte(5 + 16 *
    MAC_ADDR_BYTES) {} '101 => 102 elements
    Dim strNumbers As String() = macAddress.Split(New Char() {":", ",", ";", _
      "-"})
        Dim macBytes As Byte() = New Byte(5) {}
 
        If strNumbers.Length <> 6 Then
            Throw New Exception("MAC Address incorrect!!!")
        End If
 
        'Convert Numbers To Bytes And Set the first 6 FF Values
        For i As Integer = 0 To 5
            Packet(i) = &HFF
            Dim strNumber As String = strNumbers(i)
 
            'Strip possible leading 0x statements
            If strNumber.StartsWith("0x") Then
                strNumber = strNumber.Substring(2, 2)
            End If
 
            macBytes(i) = CByte(Int32.Parse(strNumber,
      System.Globalization.NumberStyles.HexNumber))
        Next i
 
        'Write the MAC address 16 times after the 6 FF values
        For j As Integer = 0 To 15
            For i As Integer = 0 To 5
                Packet(6 + j * 6 + i) = macBytes(i)
            Next i
        Next j
 
        Return Packet
    End Function
 
    '<remarks>
    'Sends the magic packet For a specific MAC address
    '</remarks>
    Public Shared Sub WakeUp(ByVal macAddress As String)
        Dim s As Socket = New Socket(AddressFamily.InterNetwork, _
          SocketType.Dgram, ProtocolType.Udp)
        s.SetSocketOption(SocketOptionLevel.Socket,
    SocketOptionName.Broadcast, 1)
 
        Dim Message As Byte() = GetMagicPacket(macAddress)
 
        Dim IPEP As IPEndPoint = New IPEndPoint(IPAddress.Broadcast, _
          PORT_BROADCAST)
        s.SendTo(Message, IPEP)
    End Sub
End Class