WakeOnLan mittels MagicPacket

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

''' <summary>
''' Diese Funktion startet einen Rechner über das Netztwerk mittels MagicPacket
''' </summary>
''' <param name="MACAddress">Die MAC Adresse des zu startenden Rechners bzw. dessen Netzwerkadapter</param>
Public Sub WakeOnLAN(ByVal MACAddress As String)
    Dim Client As New UdpClient
    Dim Count As Integer = 0
    Dim ByteArray(1024) As Byte
    Dim Pos As Integer = 0

    Client.Connect("255.255.255.255", 12287)
    Client.Client.SetSocketOption(SocketOptionLevel.Socket, SocketOptionName.Broadcast, 0)

    For i As Integer = 0 To 5
        Count += 1
        ByteArray(Count) = &HFF
    Next

    For i As Integer = 0 To 15
        Pos = 0
        For n As Integer = 0 To 5
            Count += 1
            ByteArray(Count) = Byte.Parse(MACAddress.Substring(Pos, 2), Globalization.NumberStyles.HexNumber)
            Pos += 2
        Next
    Next

    Client.Send(ByteArray, 1024)
End Sub