diff --git a/Aufwachen/Aufwachen.vbproj b/Aufwachen/Aufwachen.vbproj index 985b6cb..f2d62a9 100644 --- a/Aufwachen/Aufwachen.vbproj +++ b/Aufwachen/Aufwachen.vbproj @@ -25,11 +25,11 @@ true http://tools.dominicreich.com/Aufwachen/ http://tools.dominicreich.com/Aufwachen/ - http://tmsn.at/%3ftools&aufwachen + http://klamm.io https://github.com/freefallcid/aufwachen/issues Aufwachen Dominic Reich - 1 + 2 1.0.0.%2a false true diff --git a/Aufwachen/Aufwachen.vbproj.user b/Aufwachen/Aufwachen.vbproj.user index c3d0ef8..5f73f22 100644 --- a/Aufwachen/Aufwachen.vbproj.user +++ b/Aufwachen/Aufwachen.vbproj.user @@ -4,10 +4,13 @@ Z:\Aufwachen\|Z:\|publish\ http://tools.dominicreich.com/Aufwachen/ http://tmsn.at/%3ftools&aufwachen - + http://tools.dominicreich.com/Aufwachen/ https://github.com/freefallcid/aufwachen/issues de-DE false + + false + \ No newline at end of file diff --git a/Aufwachen/bin/Debug/Aufwachen.vshost.exe.manifest b/Aufwachen/bin/Debug/Aufwachen.vshost.exe.manifest index 061c9ca..810cea5 100644 --- a/Aufwachen/bin/Debug/Aufwachen.vshost.exe.manifest +++ b/Aufwachen/bin/Debug/Aufwachen.vshost.exe.manifest @@ -1,11 +1,75 @@ - - - - + + + + + + + + + + + + + + - + + - + + + + + + + + + + + + + + + + + + + + + KTbXI29qjQYDzlg+Zk5hVNanYhxQOXmQgIp4Pb0LVvk= + + + + + + + + + + h0UeIdteCM29dGVw07LmHp593fPbh0IN11GyN3f2uRA= + + + + + + + + + XfncBGH+v4+DOaAM7qjx7L2A3lm3vAQesM5h90nW8Iw= + + + \ No newline at end of file diff --git a/Aufwachen/frm_Main.vb b/Aufwachen/frm_Main.vb index c561380..2beef6f 100644 --- a/Aufwachen/frm_Main.vb +++ b/Aufwachen/frm_Main.vb @@ -1,63 +1,63 @@ -Imports System.Net.Sockets - -Public Class frm_Main - - 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 - - Private Sub btn_end_Click(sender As Object, e As EventArgs) Handles btn_end.Click - End - End Sub - - Private Sub btn_defined_1_Click(sender As Object, e As EventArgs) Handles btn_defined_1.Click - txt_mac.Text = "8C:89:A5:60:F1:AE" - End Sub - - Private Sub btn_defined_2_Click(sender As Object, e As EventArgs) Handles btn_defined_2.Click - txt_mac.Text = "68:05:CA:3E:09:DC" - End Sub - - Private Sub btn_defined_3_Click(sender As Object, e As EventArgs) Handles btn_defined_3.Click - txt_mac.Text = "90:E6:BA:0A:BB:E5" - End Sub - - Private Sub btn_help_Click(sender As Object, e As EventArgs) Handles btn_help.Click - MsgBox("Gib die MAC Adresse ins Textfeld ein oder drücke einen der linken Buttons um das Feld mit vordefinierten Werten zu füllen." & Chr(13) & Chr(10) & "Mit 'Aufwecken' wird das 'Magic Packet' gesendet.", MsgBoxStyle.OkOnly, "WOL Home - Hilfe") - End Sub - - Private Sub btn_wake_Click(sender As Object, e As EventArgs) Handles btn_wake.Click - 'On Error Resume Next - On Error GoTo Do_Error - Me.Enabled = False - frm_Status.lbl_status.Text = "Magic Packet wird an " & Me.txt_mac.Text & " gesendet." - frm_Status.ShowDialog() - WakeOnLAN(txt_mac.Text.Replace(":", "").ToString) - 'WakeOnLAN(txt_mac.Text.ToString) - Exit Sub -Do_Error: - MsgBox("Ein Fehler ist aufgetreten!" & Chr(13) & Chr(10) & Err.Number & " - " & Err.Description, MsgBoxStyle.Critical) - End Sub -End Class +Imports System.Net.Sockets + +Public Class frm_Main + + 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 + + Private Sub btn_end_Click(sender As Object, e As EventArgs) Handles btn_end.Click + End + End Sub + + Private Sub btn_defined_1_Click(sender As Object, e As EventArgs) Handles btn_defined_1.Click + txt_mac.Text = "8C:89:A5:60:F1:AE" + End Sub + + Private Sub btn_defined_2_Click(sender As Object, e As EventArgs) Handles btn_defined_2.Click + txt_mac.Text = "68:05:CA:3E:09:DC" + End Sub + + Private Sub btn_defined_3_Click(sender As Object, e As EventArgs) Handles btn_defined_3.Click + txt_mac.Text = "90:E6:BA:0A:BB:E5" + End Sub + + Private Sub btn_help_Click(sender As Object, e As EventArgs) Handles btn_help.Click + MsgBox("Gib die MAC Adresse ins Textfeld ein oder drücke einen der linken Buttons um das Feld mit vordefinierten Werten zu füllen." & Chr(13) & Chr(10) & "Mit 'Aufwecken' wird das 'Magic Packet' gesendet.", MsgBoxStyle.OkOnly, "WOL Home - Hilfe") + End Sub + + Private Sub btn_wake_Click(sender As Object, e As EventArgs) Handles btn_wake.Click + 'On Error Resume Next + On Error GoTo Do_Error + 'Me.Enabled = False + 'frm_Status.lbl_status.Text = "Magic Packet wird an " & Me.txt_mac.Text & " gesendet." + 'frm_Status.ShowDialog() + WakeOnLAN(txt_mac.Text.Replace(":", "")) + 'WakeOnLAN(txt_mac.Text.ToString) + Exit Sub +Do_Error: + MsgBox("Ein Fehler ist aufgetreten!" & Chr(13) & Chr(10) & Err.Number & " - " & Err.Description, MsgBoxStyle.Critical) + End Sub +End Class diff --git a/Aufwachen/obj/Debug/Aufwachen.vbproj.FileListAbsolute.txt b/Aufwachen/obj/Debug/Aufwachen.vbproj.FileListAbsolute.txt index 6a9c478..3741aef 100644 --- a/Aufwachen/obj/Debug/Aufwachen.vbproj.FileListAbsolute.txt +++ b/Aufwachen/obj/Debug/Aufwachen.vbproj.FileListAbsolute.txt @@ -9,3 +9,16 @@ C:\Users\Dominic\AppData\Local\Temporary Projects\Aufwachen\obj\Debug\Aufwachen. C:\Users\Dominic\AppData\Local\Temporary Projects\Aufwachen\obj\Debug\Aufwachen.xml C:\Users\Dominic\AppData\Local\Temporary Projects\Aufwachen\obj\Debug\Aufwachen.pdb C:\Users\Dominic\Documents\Visual Studio 2015\Projects\Aufwachen\Aufwachen\bin\Debug\Aufwachen.exe.config +C:\Users\Dominic\Documents\Visual Studio 2015\Projects\Aufwachen\Aufwachen\bin\Debug\Aufwachen.exe.manifest +C:\Users\Dominic\Documents\Visual Studio 2015\Projects\Aufwachen\Aufwachen\bin\Debug\Aufwachen.application +C:\Users\Dominic\Documents\Visual Studio 2015\Projects\Aufwachen\Aufwachen\bin\Debug\Aufwachen.exe +C:\Users\Dominic\Documents\Visual Studio 2015\Projects\Aufwachen\Aufwachen\bin\Debug\Aufwachen.pdb +C:\Users\Dominic\Documents\Visual Studio 2015\Projects\Aufwachen\Aufwachen\obj\Debug\Aufwachen.frm_Main.resources +C:\Users\Dominic\Documents\Visual Studio 2015\Projects\Aufwachen\Aufwachen\obj\Debug\Aufwachen.frm_Status.resources +C:\Users\Dominic\Documents\Visual Studio 2015\Projects\Aufwachen\Aufwachen\obj\Debug\Aufwachen.Resources.resources +C:\Users\Dominic\Documents\Visual Studio 2015\Projects\Aufwachen\Aufwachen\obj\Debug\Aufwachen.vbproj.GenerateResource.Cache +C:\Users\Dominic\Documents\Visual Studio 2015\Projects\Aufwachen\Aufwachen\obj\Debug\Aufwachen.exe.manifest +C:\Users\Dominic\Documents\Visual Studio 2015\Projects\Aufwachen\Aufwachen\obj\Debug\Aufwachen.application +C:\Users\Dominic\Documents\Visual Studio 2015\Projects\Aufwachen\Aufwachen\obj\Debug\Aufwachen.exe +C:\Users\Dominic\Documents\Visual Studio 2015\Projects\Aufwachen\Aufwachen\obj\Debug\Aufwachen.pdb +C:\Users\Dominic\Documents\Visual Studio 2015\Projects\Aufwachen\Aufwachen\obj\Debug\Aufwachen.vbprojResolveAssemblyReference.cache diff --git a/Aufwachen/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/Aufwachen/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache index 5d813be..2bed96a 100644 Binary files a/Aufwachen/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache and b/Aufwachen/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/my_network_places.ico b/my_network_places.ico new file mode 100644 index 0000000..c2cb32c Binary files /dev/null and b/my_network_places.ico differ