Aug 25, 2016

3736

AutoIT - Auf Eingabeaufforderung reagieren

Hallo zusammen,

folgendes Problem:

Ich habe eine AutoIT GUI. In einem Input gebe ich einen Befehl ein, z.B.

ipconfig

. Anschließend drücke ich auf einen Button und AutoIT sendet den befehl an die cmd und gibt mir anschließend das Ergebnis in einem Edit aus.

Wenn ich nun aber einen Befehl wie

time

benutze, bekomme ich keine Rückgabe, da time eine Eingabe erwartet.

Ist es möglich, diese Eingabe ebenfalls in der AutoIT GUI zu realisieren und sozusagen eine "Antwort" an die versteckte cmd zu schicken?

Hier mal mein kleines Codeschnipsel, ist nichts schönes, dient einfach nur zu Testzwecken:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("ipconfig Test", 657, 428, 267, 242)  
$Button1 = GUICtrlCreateButton("Ausführen", 8, 8, 75, 25)  
$Input1 = GUICtrlCreateInput("", 90, 8, 200, 25)  
$Edit1 = GUICtrlCreateEdit("", 8, 40, 633, 377)  
GUICtrlSetData(-1, "")  
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			$befehl = GUICtrlRead($Input1)
			$rueckgabe = ""  
			$pid = Run($befehl,"",@SW_HIDE,6)  
			While 1
				; Rückgabe auslesen
				If StdOutRead($pid,True) Then $rueckgabe &= StdOutRead($pid)
				If StdErrRead($pid,True) Then $rueckgabe &= StdErrRead($pid)
				; bei Fehler ist der Process beendet
				If @error  Then ExitLoop
				; und warten, oder wollen wir den Rechner 100% auslasten
				Sleep(100)
			Wend
			$wert = GUICtrlRead($Edit1)
			GUICtrlSetData($Edit1, $wert&@CRLF&$rueckgabe)
	EndSwitch
WEnd

Please also mark the comments that contributed to the solution of the article

Content-Key: 313524

Url: https://administrator.de/contentid/313524

Printed on: April 26, 2024 at 17:04 o'clock

6 Comments

Latest comment

Hallo,

Zitat von @veniplex:
Wenn ich nun aber einen Befehl wie

time

benutze, bekomme ich keine Rückgabe, da time eine Eingabe erwartet.

Wenn du nur die Zeit oder das Datum lesen willst tut es ein

time /t
date /t

Ein "time /?" hätte es dir auch gesagt.

Gruß,
Peter

Hallo Pjordorf,

danke dafür, allerdings bezieht sich meine Frage wirklich rein auf die Umsetzung in AutoIT. Der time Befehl sollte nur als Beispiel dienen, damit man nachvollziehen kann was ich mit Eingabe meine

Hi,
wait a max. defined time for the process to return. If this time is elapsed, make the console visible and bring it to the front. AutoIt has enough Win32 functions to do this.

Regards

Hallo Sascha382,
schreibe den Aufruf stattdessen so:

$pid = Run("cmd /c """ & $befehl & """","",@SW_HIDE,6)  

Grüße Uwe

Hallo colinardo,

das hat auf jeden Fall schonmal geholfen, danke

.

Kannst du mir jetzt noch sagen wie ich mit dem Input auf die Abfrage reagieren kann?

Beispiel:

Ich gebe den Befehl

time

ein, als Ausgabe erhalte ich dann

Aktuelle Zeit: 12:23:02,22
Geben Sie die neue Zeit ein: 

Wenn ich jetzt im Input eingebe

10:00:32,22

, wie kann ich das an die cmd senden, sodass diese weiß, aha er möchte die Zeit in 10:00:32,22 ändern?

Das musst du dann spezifisch je nach Befehl hinterlegen und per StdInWrite() an den Prozess senden. Hier das Beispiel für time

#NoTrayIcon
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("ipconfig Test", 657, 428, 267, 242)  
$Button1 = GUICtrlCreateButton("Ausführen", 8, 8, 75, 25)  
$Input1 = GUICtrlCreateInput("", 90, 8, 200, 25)  
$Edit1 = GUICtrlCreateEdit("", 8, 40, 633, 377)  
GUICtrlSetData(-1, "")  
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			$befehl = GUICtrlRead($Input1)
			$rueckgabe = ""  
			$pid = Run("cmd /c """ & $befehl & """","",@SW_HIDE,$STDIN_CHILD + $STDOUT_CHILD + $STDERR_CHILD)  
			while ProcessExists($pid)
				Do
					Sleep(10)
					$rueckgabe &= StderrRead($pid)
					$rueckgabe &= StdoutRead($pid)
				Until Not @extended Or @error
				; Prozess is noch nicht fertig ? dann schick ihm Daten per Stdin
				if ProcessExists($pid) then
					StdinWrite($pid,"10:00:00" & @CRLF)  
					StdinWrite($pid)
				EndIf
				Do
					Sleep(10)
					$rueckgabe &= StderrRead($pid)
					$rueckgabe &= StdoutRead($pid)
				Until @error
				ExitLoop
			Wend
			$wert = GUICtrlRead($Edit1)
			GUICtrlSetData($Edit1, $wert&@CRLF&$rueckgabe)
	EndSwitch
WEnd

German Question Development