Controlsend in PuTTY für WOL

Hallo,

ich habe mir einen Code geschrieben um meinen PC über WOL aufzuwecken, die Remotedesktopverbindung zu starten und bis zu der Passwortabfrage von Windows 10 zu verbinden. Funktioniert soweit.

Jetzt möchte ich auf Controlsend () umstellen um Fehler bei der Eingabe zu minimieren und kein Blockinput verwenden zu müssen.

Die Controlsend () Befehle sollen die Send () Befehle ablösen.

Neu öffnet PuTTY, es wird ein (1) mal TAB gedrückt danach passiert nichts mehr.

WinWaitActive habe ich, um es als Fehlerquelle auszuschliessen, deaktiviert.

In der Hilfe (F1) zu Controlsend () steht:

Sends a string of characters to a control.

ControlSend ( "title", "text", controlID, "string" [, flag = 0] )

ControlSend($hWnd, "", "Edit1", "This is some text")

Was mache ich falsch? Wird die controlID zwingend gebraucht? Warum kommt dann ein TAB an?

Local $iPID = Run("putty.exe", "", @SW_SHOWDEFAULT)
;WinWaitActive ("PuTTY Configuration") ;Warten auf Fenster
;Send("{TAB 5}") ;Navigiere zum gespeicherten Benutzer in PuTTY
ControlSend("PuTTY Configuration","" ,"","{TAB 5}")
Sleep (200)
;Send("{Down 2}") ;Navigiere zum gespeicherten Benutzer in PuTTY
ControlSend("PuTTY Configuration","" ,"","{Down 2}")
Sleep (200)

;Den Rest muss ich noch auf ControlSend ändern. Aber wenn TAB und Down nicht geht erstmal die Ursache suchen.

Send("{Enter}")
;WinWaitActive ("192.168.160.36 - PuTTY") ;Warten auf neues Fenster
Send ("Swiffer")
Send("{Enter}")
;WinWaitActive ("Swiffer@raspberrypi: ~") ;Warten auf neues Fenster
Send ("sudo etherwake "MAC_Adresse") ;Swiffer PC aufwecken
Send("{Enter}")
Sleep (200)
Send ("Bitte warten. Der PC wacht auf.") ;Infotext
Sleep (12000)
Send("{BS 31}") ;Text löschen
Sleep (100)
Send ("exit") ;Fenster schliessen
Sleep (100)
Send("{Enter}")
;Sleep (200)
;WinWaitClose ("Swiffer@raspberrypi: ~") ;Warten bis Fenster geschlossen 
;ProcessClose($iPID)
Run("mstsc.exe", "", @SW_SHOWDEFAULT)
;WinWaitActive ("Remotedesktopverbindung")
Send("{Enter}")
Exit

Bildlegende:

(1) Swiffer auswählen/markieren

(2) Open drücken

Neues Fenster geht auf

(3) "Swiffer" schreiben (immer ohne "")

(4) {Enter} drücken

Fenstername ändert sich

(5) Schreiben

(6) Drücken

usw..

Hallo SOLVE-SMART

Vielen Dank schonmal für Deine Antwort. Ich habe den Startpost entsprechend ergänzt und bin gespannt auf Deine / Eure Inputs.

Grüsse Swiffer

Erstmal vielen Dank für die vielen Antworten und Lösungsvorschläge!

Trotzdem nochmal nachgefragt: Wird die controlID zwingend gebraucht für Controlsend ()? Geht es deshalb nicht? Java?

SOLVE-SMART

Zitat von SOLVE-SMART

Versuche dies doch mal bitte und dann kümmern wir uns ggf. um den restlichen Login im putty client.

Das funktioniert super, danke.

Zitat von SOLVE-SMART

Ich wollte es eher in kleine Häppchen verpacken

Ich musste wirklich lachen! Bin schon ein wenig erschlagen.

AspirinJunkie

Zitat von AspirinJunkie

Das geht auch direkter:

Auch Dein erster Code funktioniert bestens, danke.

Zitat von AspirinJunkie

2. Man muss nach einem Connect nicht immer einen Benutzernamen angeben.

Falls machbar würde ich das gerne so lassen mit dem Benutzernamen eingeben. Es ist nicht immer der gleiche Benutzer bzw. falls Putty mal manuell gestartet werden sollte müsste sich auch ein andere Nutzer anmelden können.

Zitat von AspirinJunkie

Man muss nicht immer ein Passwort in Putty verwenden. Man kann stattdessen auch ein Key-File verwenden.

Ich verwende den "public key" , ersichltich auf dem dritten Screenshot. Aber danke trotzdem. Sehr nett und gleich mit Anleitung wie erstellen. Top!

Zitat von AspirinJunkie

Grob könnt es so laufen:

Ich bin mir sicher das auch dein zweiter Code funktionieren würde. Durch den nicht automatisiert angemeldeten Benutzer scheitert es aber. Leider sehe ich gerade nicht wo das noch geändert werden müsste.

Zitat von AspirinJunkie

5. Und das ist der wichtigste Punkt! Warum musst du dich überhaupt per Putty in einen anderen Rechner einloggen und von dort aus das WoL-Signal an dein eigentliches Ziel schicken?

Es sind zwei getrennte Orte, zwei Fritzboxen, zwei Pi4 auf denen Wireguard VPN läuft.

(Das VPN der 7490 war einfach zu langsam, deshalb die Pi)

Ich weiss nicht mehr genau warum WOL über die Fritzboxen nicht zuverlässig funktionierte. Ich glaube es hat etwas mit der Namensauflösung zu tun. Die Fritzbox peilt nicht wohin mit dem Paket trotz MAC-Adresse. Ist schon ne Weile her. Aber es geht ziemlich sicher nicht ohne den Schritt über den Pi. Ich lasse mich gerne korrigieren. Das VPN steht jedoch so oder so.

192.168.150.xxx / 192.168.160.xxx

Peter S. Taler

Ich befürchte die Pakete werden damit nicht ankommen. Der Befehl muss aus dem gleichen Netz kommen. Aber danke trotzdem für den Vorschlag.

funkey

Auch hier habe ich vermutlich das gleiche Problem mit dem Netzwerk. Also muss ich erst auf dem Pi. Danke auch Dir.

Ich habe jetzt in Putty doch den Benutzer zur automatischen Anmeldung hinterlegt. Dachte erst ich muss es auf dem Pi selbst machen. So geht es ja wirklich gut auch mit anderen Benutzer.

Leider wacht der PC nicht auf und ich weiss nicht warum. Es kommt keine Fehlermeldung. Ich habe versucht den Debug Modus von SOLVE-SMART in das Script von AspirinJunkie einzubauen um zu sehen wo es stockt aber ich stehe auf verlorenem Posten.

Um Euch zu verdeutlichen dass es für mich nicht einfach ist schreibe ich mal rein was ich von dem Code zu verstehen glaube:

Falls jemand Lust hat mir dies ein wenig genauer zu erklären wäre das toll!

Vielleicht lässt sich dann herausfinden warum es nicht funktioniert. Ausserdem wäre meine Neugierde befriedigt.

Edit: Die MAC-Adresse habe ich vom funktionierenden script kopiert. An dem sollte es also nicht liegen.

Edit1: Ich merk gerade das sich Putty zerschossen hat. Ich komme auch so nicht mehr auf den Pi. Ich fix das dann geht vermutlich das script auch.

Edit2: Hust... Äh ja.. Wie soll ich das jetzt... Ich war Schuld! Kopf->Tisch!

Die Daten in Putty neu gespeichert, keine Ahnung warum die fehlerhaft waren, und es läuft natürlich auch das script von AspirinJunkie fehlerfrei durch bzw. wacht der Rechner auf.

Ich werde jetzt noch versuchen ein Popup-Fenster einzubauen um zu wissen dass der Rechner gerade aufstartet und danach die Remoteverbindung öffnen. Und hoffe dabei diesen schönen, kompakten code mit meinen stümperhaften Programmierkünsten nicht allzu sehr zu verschandeln

Vielen Dank nochmal an alle die geholfen haben! Wirklich sehr hohes Niveau hier!

PS: Falls noch jemand Lust hat mir den Spoiler Ka. oben zu erklären bin ich immer noch interessiert.

Vielen Dank! Hast Du das einfach kurz geschrieben? :O

Irgendwas scheint da noch nicht ganz richtig.

Error:

(26,43) : error: undefined macro.

Local $iPID = Run($sCmd, "", @HIDE,

(31,43) : error: undefined macro.

Local $iPID = Run($sCmd, "", @HIDE,

Was ist denn der Vorteil eines WoL-Proxy? Das wäre ja noch zusätzliche Hardware oder verstehe ich das falsch?

Mit Wake-over-WAN habe ich mich noch nicht beschäftigt. Ich finde die bisherige Lösung über die zwei Pi die eh als VPN fungieren eigentlich ganz ok.

Vielen Dank nochmal für Deine / Eure Hilfe.

Im Scite werden mir wenn ich das Script ausführe die Infos siehe folgend angezeigt: Kann ich das ignorieren?

sudo etherwake xx:xx:xx:xx:xx:xx

ESC]0;swiffer@raspberrypi: ~BELESC[01;32mswiffer@raspberrypiESC[00m:[01;34m~ $ESC[00m

ESC]0;swiffer@raspberrypi: ~BELESC[01;32mswiffer@raspberrypiESC[00m:[01;34m~ $ESC[00m

Ich habe jetzt aus einer Antwort von SOLVE-SMART in einem anderen Thema einen Countdowntimer eingebaut. Dieser sollte am Anfang vom Script starten (optische Bestätigung das script läuft) und in der Zeit vom Countdown können dann die Befehle an den Pi zum aufwachen gesendet werden.

Logischerweise läuft das Script aber erst nach Ablauf des Timers weiter. Wie könnte ich das lösen um den Pi wärend der Timer läuft aufzuwecken?

; AspirinJunkie und SOLVE_SMART https://autoit.de

;Countdown
#include <AutoItConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Der PC wacht auf", 310, 50, 520, 240); breite höhe links oben
$Label1 = GUICtrlCreateLabel("Der Remote-Computer startet.", 16, 14, 154, 17)
$Label2 = GUICtrlCreateLabel("Label2", 158, 14, 144, 17)
GUISetState(@SW_SHOW)

For $i = 16 To 1 Step -1
GUICtrlSetData($Label2, "Bitte " &$i &" Sekunden warten.")
If $i = 0 Then Sleep (100)
Sleep(1000)
Next
Sleep (100)


; SSH
Global Const $sPathPLink = @ScriptDir & "\plink.exe"

Global $sUsername = "Swiffer"
Global $sServer = "192.168.160.36"
; Global $sPassword = "XXXXX"
Global $sPassword = "C:\swiffer\SSH\swiffer.ppk" ; wenn man statt einen Passwort ein KeyFile nutzen möchte


$hSession = _ssh_start($sServer, $sUsername, $sPassword)

$sAusgabe = _ssh_send($hSession, "sudo etherwake xx:xx:xx:xx:xx", "", 2000)
ConsoleWrite($sAusgabe & @CRLF & "----------------------------------------------" & @CRLF)

_ssh_close($hSession)

; Remotedesktop
Run("mstsc.exe", "", @SW_SHOWDEFAULT)

WinWaitActive ("Remotedesktopverbindung")

ControlSend ("Remotedesktopverbindung", "", "Edit1", "192.168.160.20")

Sleep (100)

ControlSend ("Remotedesktopverbindung", "", "Edit1", "{Enter}") 

;Funcs
Func _ssh_start($sServer, $sUser, $sPassword = Default, $sKeyFile = Default)

    If FileExists($sPassword) Then ; key file instead of password
        $sCmd = StringFormat('"%s" -i "%s" %s@%s', $sPathPLink, $sPassword, $sUsername, $sServer)
        Local $iPID = Run($sCmd, "", @SW_HIDE, $STDIN_CHILD + $STDERR_MERGED)
        _ssh_waitUntil($iPID, "Access granted", 2500)
        _ssh_send($iPID, "\$", "", 2000)
    Else ; normal password
        $sCmd = StringFormat('"%s" %s@%s', $sPathPLink, $sUsername, $sServer)
        Local $iPID = Run($sCmd, "", @SW_HIDE, $STDIN_CHILD + $STDERR_MERGED)
        _ssh_waitUntil($iPID, "password:", 2500)
        If @extended = 2 Then Return SetError(1,0,$iPID)
        _ssh_send($iPID, $sPassword, "", 2000)
    EndIf

    Return $iPID
EndFunc

Func _ssh_close($hSession)
    _ssh_send($hSession, "exit", Default, 250)
    ProcessClose($hSession)
EndFunc

Func _ssh_send($hSession, $sCommand, $sWaitFor = Default, $iTimeOut = Default)
    StdinWrite($hSession, $sCommand & @CRLF)
    If $sWaitFor <> Default Then Return _ssh_waitUntil($hSession, $sWaitFor, $iTimeOut)
    Return Null
EndFunc

Func _ssh_waitUntil($hSession, $sWaitFor = Default, $iTimeOut = Default)
    Local $iTimer = TimerInit(), $sCmd = "", $extOut

    If ($sWaitFor = Default OR $sWaitFor = "") AND $iTimeOut = Default Then Return SetError(1,0,Null)

    While $iTimeOut = Default ? True : TimerDiff($iTimer) < $iTimeOut
        $sCmd &= StdoutRead($hSession)
        If @error Then ExitLoop
        $extOut = @extended
        $sCmd &= StderrRead($hSession)
        ;  If @error Then ExitLoop
        If @extended + $extOut = 0 Then ContinueLoop
        If ($sWaitFor = Default OR $sWaitFor = "") Then ContinueLoop
        If StringRegExp($sCmd, $sWaitFor) Then Return SetExtended(1, $sCmd)
    Wend
    Return SetExtended(2, $sCmd)
EndFunc

Gibt es eine Möglichkeit die Remotedesktopverbindung Software (die Software selbst nicht den Ziel PC) ebenfalls dirket anzusprechen? Ich habe es erstmal so gelöst:

Run("mstsc.exe", "", @SW_SHOWDEFAULT)

WinWaitActive ("Remotedesktopverbindung")

ControlSend ("Remotedesktopverbindung", "", "Edit1", "192.168.160.20")

Sleep (100)

ControlSend ("Remotedesktopverbindung", "", "Edit1", "{Enter}")

Meine Suche hat nichts ergeben. Das Meiste zu dem Thema dreht sich um Befehle auf dem Ziel PC ausführen. Ich müsste aber Befehle an RDP senden.

Danke Micha_he

Run("mstsc.exe /v:192.168.160.20", "", @SW_SHOWDEFAULT)

funktioniert bestens.

Bleiben noch die Fragen aus #14:

1. Im Scite werden mir wenn ich das Script ausführe die Infos siehe folgend angezeigt: Kann/sollte ich das ignorieren?

2. Countdowntimer laufen lassen wärend Putty öffnet usw.

Ich bastel mal noch ein wenig, vielleicht gelingt es mir ja.

Hallo SOLVE-SMART . Gute Sache, Danke Dir.

Sobald Func _DoSomethingDuringTheCountdownIsShown() durch ist schliesst sich der Tooltip (und das script) auch wenn dieser zum Beispiel erst bei 7 Sekunden ist. Gut wäre wenn er bis zum Ende sichtbar bleiben und weiterzählen würde auch wenn die andere "Aufgabe" abgeschlossen ist.

Wie verhindere ich dass der Tooltip schliesst wenn Func _DoSomethingDuringTheCountdownIsShown() durch ist?

Ich habe es jetzt provisorisch mit Sleep (13000) gelöst so passt es etwa mit dem 18000 Countdown. Aber schön ist das nicht unbedingt.

Mit Sleep ($iCountdown) ist die Zeit komischerweise viel zu kurz.

Edit:

Ich habe gerade gemerkt dass ich den Sleep von Func _DoSomethingDuringTheCountdownIsShown() viel zu lang machen kann und es über ein Exit bei If $iCountdown == 0 Then schliessen kann.

Ist also erledigt Eine gute Nacht wünsche ich.