Wake on Lan für PDA oder Smartphone an ip Senden

sarasa · 17. Juli 2008, 14:44

hyhy

ich habe für mein smartphone ein wol script er funktioniert 1a mit windows mobile 5 - 6.1

VB.NET-Quellcode

Public Class Form1
Private Sub SetReqExpression(ByVal TextSource As TextBox, ByRef SendString As String, ByRef reg As System.Text.RegularExpressions.Regex)
SendString = "0x" & TextSource.Text
Dim regex As String = "\b0[xX][0-9a-fA-F]+\b"
Dim options As System.Text.RegularExpressions.RegexOptions = ((System.Text.RegularExpressions.RegexOptions.IgnorePatternWhitespace Or System.Text.RegularExpressions.RegexOptions.Multiline) _
Or System.Text.RegularExpressions.RegexOptions.IgnoreCase)
reg = New System.Text.RegularExpressions.Regex(regex, options)
End Sub
Private Sub InputError(ByVal TextSource As TextBox)
TextSource.Focus()
TextSource.Select(0, 2)
End Sub
Private Sub verifyInput(ByVal TextSource As TextBox)
Dim SendString As String
Dim reg As System.Text.RegularExpressions.Regex
SetReqExpression(TextSource, SendString, reg)
If reg.IsMatch(SendString) Then
MsgBox("OK")
Else
MsgBox(TextSource)
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text.Length <> 2 Then Return
TextBox2.Focus()
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
If TextBox2.Text.Length <> 2 Then Return
TextBox3.Focus()
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
If TextBox3.Text.Length <> 2 Then Return
TextBox4.Focus()
End Sub
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
If TextBox4.Text.Length <> 2 Then Return
TextBox5.Focus()
End Sub
Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
If TextBox5.Text.Length <> 2 Then Return
TextBox6.Focus()
End Sub
Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged
If TextBox6.Text.Length <> 2 Then Return
Button1.Focus()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WoL.PacketSend(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, _
TextBox5.Text, TextBox6.Text)
MsgBox("Wakeup Gesendet!!", MsgBoxStyle.OkOnly, "INFO")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click, Button2.Click
Me.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = "00"
TextBox2.Text = "1a"
TextBox3.Text = "4d"
TextBox4.Text = "5a"
TextBox5.Text = "13"
TextBox6.Text = "c6"
PictureBox1.Image = My.Resources.Image1
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
MsgBox("WoL have fun")
End Sub
End Class

ich weiss nicht wie ich das packet an eine ip senden kann, da ich mein rechner auch von unterwegs wecken will und nicht nur im lan

danke

Mad Andy · 18. Juli 2008, 00:09

Wenn die Ziel (für PDA) bzw. die Herkunft (für PC) nicht auf LAN beschränkt ist, musst du einfach nur den richtigen Port beim Router weiterleiten ("aufmachen") und am PDA deine Internet-IP angeben.

Ich finds übrigens "doll" wenn da zwischendurch in deinem Code ein "WoL.PacketSend" auftaucht ohne Referenz, wo dieses Objekt/Klasse/Namespace herkommt ....

Und "Wake on Local Area Network" gehört übrigens in die Netzwerk-Programmierung

sarasa · 18. Juli 2008, 01:56

das kommt aus der klasse und hab es gelöst danke

Mad Andy · 18. Juli 2008, 09:08

Ja, ein Link zur Klasse wäre Cool gewesen, ist ja kein Teil vom .net-Framework.

sarasa · 18. Juli 2008, 18:33

so du bekommst sie :D

VB.NET-Quellcode

#Region "System Imports"
Public Class WoL
Private Shared Function GetPacket() As Byte()
'Initialized Packet length
Dim packet() As Byte = New Byte(17 * 6 - 1) {}
Return packet
End Function
Private Shared Sub WakeUpConect(ByVal client As UdpClient)
Try
Dim newip1 As String
Dim Addresslist1() As IPAddress = Dns.Resolve(Form1.dyndns.Text).AddressList
Dim IPs1 As IPAddress
For Each IPs1 In Addresslist1
newip1 = (IPs1.ToString)
Next IPs1
If Form2.CheckBox1.Checked = True Then
client.Connect(IPAddress.Broadcast, 40000)
Else
client.Connect(newip1, 40000)
End If
Catch ex As Exception
MessageBox.Show("Keine Netzwerk Verbindung")
End Try
End Sub
Private Shared Sub SubmitWOLPacket(ByVal client As UdpClient, ByVal packet As Byte())
'Packet Sender for WOL
Try
client.Send(packet, packet.Length)
Catch ex As Exception
End Try
End Sub
Private Shared Sub WakeUpPacketBuild(ByVal mac As Byte(), ByVal packet As Byte(), ByVal c As Integer, ByVal j As Integer)
'Propogates the Nic MAC Address
packet(c * 6 + j) = mac(j)
End Sub
Public Shared Sub PacketSend(ByVal mac1 As String, ByVal mac2 As String, ByVal mac3 As String, ByVal mac4 As String, ByVal mac5 As String, ByVal mac6 As String)
'moved from Form for future Enhancements!
Dim Mac() As Byte = New Byte() {MacConvert(mac1), MacConvert(mac2), MacConvert(mac3), _
MacConvert(mac4), MacConvert(mac5), MacConvert(mac6)}
WakeUp(Mac)
End Sub
Private Shared Function MacConvert(ByVal MacToConvert) As Long
MacConvert = Long.Parse(MacToConvert, HexNumber)
End Function
Private Shared Sub CreatePacketHeader(ByVal packet As Byte(), ByVal i As Integer)
packet(i) = &HFF
End Sub
Private Shared Sub WakeUp(ByVal mac() As Byte)
' Creates the 'Magic Packet' to Wake computers on Lan
Dim client As UdpClient = New UdpClient()
WakeUpConect(client)
' WOL packet contains a 6-bytes trailer and 16 times a 6-bytes sequence
' containing the MAC address.
' Trailer of 6 times 0xFF.
Dim packet As Byte() = GetPacket()
Dim i As Integer
For i = 0 To 5
CreatePacketHeader(packet, i)
Next
' Body of magic packet contains 16 times the MAC address.
Dim c As Integer
For c = 1 To 16
Dim j As Integer
For j = 0 To 5
WakeUpPacketBuild(mac, packet, c, j)
Next j
j = 0
Next c
' Submit WOL packet.
SubmitWOLPacket(client, packet)
End Sub
End Class

jetzt habe ich das problem das wenn ich das paket so los schicke :

VB.NET-Quellcode

client.Connect(IPAddress.Broadcast, 40000)

geht es ohne probleme aber so :

VB.NET-Quellcode

Dim newip1 As String
Dim Addresslist1() As IPAddress = Dns.Resolve(Form1.dyndns.Text).AddressList
Dim IPs1 As IPAddress
For Each IPs1 In Addresslist1
newip1 = (IPs1.ToString)
Next IPs1
client.Connect(newip1, 40000)

funktioniert es einfach nicht, obwohl auf meinem rechner KEIN firewall aktiv ist und auch ein exposed host auf meinen rechner ist, allso alle ports auf den rechner sind offen und weitergeleitet.....
edit: rofl

wenn er aus ist ist keine firewall an

Mad Andy · 18. Juli 2008, 19:28

edit: rofl wenn er aus ist ist keine firewall an

Gehts jetzt?

Du hättest die Klasse nicht reinkopieren müssen - ein Link oder eine kleine Info hätte vorerst mal gereicht.
Geht nur darum, dass du kein Wort darüber verloren hast und ich mich gewundert hab, wo das herkommt :-\

sarasa · 18. Juli 2008, 19:48

nein leider nicht

Mad Andy · 18. Juli 2008, 20:39

Gibts ne Fehlermeldung?

sarasa · 18. Juli 2008, 21:30

nope habe vor wut den router lieb gehabt, ES GEHT

war nur der router, was die liebe alles bewirkt

danke dir

Wake on Lan für PDA oder Smartphone an ip Senden

Wake on Lan für PDA oder Smartphone an ip Senden

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

1 Benutzer hat hier geschrieben