Wake on Lan

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von KevDi.

    So ich hab mir den Code mal angeschaut und eingebracht nur wie start ich das Ding jetzt?

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.Net.Sockets
    3. Public Class Form1
    4. Public Const MAC_ADDR_BYTES As Integer = 6
    5. Private Const PORT_BROADCAST = 2304
    7. ' <remarks>
    8. ' Constructs and returns a magic packet for the given
    9. ' MAC address.
    10. ' A Magic Packet is 6 bytes of FF followed by the MAC
    11. ' address 16 times.
    12. ' </remarks>
    13. Public Shared Function GetMagicPacket(ByVal macAddress As String) As Byte()
    14. Dim Packet As Byte() = New Byte(5 + 16 * MAC_ADDR_BYTES) {} '101 => 102 Elements
    15. Dim strNumbers As String() = macAddress.Split(New Char() {":", ",", ";", "-"})
    16. Dim macBytes As Byte() = New Byte(5) {}
    18. If strNumbers.Length <> 6 Then
    19. Throw New Exception("MAC Address incorrect!!!")
    20. End If
    22. 'Convert Numbers to Bytes and set the first 6 FF Values
    23. For i As Integer = 0 To 5
    24. Packet(i) = &HFF
    25. Dim strNumber As String = strNumbers(i)
    27. 'Strip possible leading 0x statments
    28. If strNumber.StartsWith("0x") Then
    29. strNumber = strNumber.Substring(2, 2)
    30. End If
    32. macBytes(i) = CByte(Int32.Parse(strNumber, System.Globalization.NumberStyles.HexNumber))
    33. Next i
    35. 'Write the MAC address 16 times after the 6 FF values
    36. For j As Integer = 0 To 15
    37. For i As Integer = 0 To 5
    38. Packet(6 + j * 6 + i) = macBytes(i)
    39. Next i
    40. Next j
    42. Return Packet
    43. End Function
    45. '<remarks>
    46. 'Sends the magic packet for a specific MAC address
    47. '</remarks>
    49. Public Shared Sub WakeUp(ByVal macAddress As String)
    50. Dim s As Socket = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
    51. s.SetSocketOption(SocketOptionLevel.Socket, SocketOptionName.Broadcast, 1)
    53. Dim Message As Byte() = GetMagicPacket(macAddress)
    55. Dim IPEP As New IPEndPoint(IPAddress.Broadcast, PORT_BROADCAST)
    56. s.SendTo(Message, IPEP)
    57. End Sub
    58. End Class


    So sieht es bisher aus und wenn ich die Form nun starte ist ja klar das er nichts tut. In die Form_Load reinschreiben bringt auch nichts da er dann Fehlermeldungen bringt

    Hoffe mir kann jemand helfen

    KevDi

Facebook
Telefonspende