Page 1 sur 1

[R] Dialoguer avec cmd.exe

Posté : dim. 12 juil. 2009 18:06
par TommyDDR
Bonjour,

J'aimerai recréé la console en passant par un édit.

J'aimerai lancer une console en caché et a partir d'un édit, envoyer et recevoir les flux.

J'ai essayer avec

Code : Tout sélectionner

#include <Constants.au3>
Opt("GUIOnEventMode", 1)

GUICreate("test", 500, 570)
Dim $Edit   = GUICtrlCreateEdit("", 5, 5, 480, 480)
Dim $Input  = GUICtrlCreateInput("", 5, 490, 480, 20)
Dim $Envoi  = GUICtrlCreateButton("Envoyer", 5, 510, 480, 20)
GUICtrlSetOnEvent($Envoi, "Envoi")
GUISetState(@SW_SHOW)
Dim $Console
$Console = Run(@ComSpec, "", @SW_SHOW, $STDERR_CHILD + $STDIN_CHILD + $STDOUT_CHILD)


While(True)
    $read = StdoutRead($Console)
    If($read <> "") Then
        GUICtrlSetData($Edit, $read & @CRLF)
    EndIf
WEnd

Func Envoi()
    $Commande = GUICtrlRead($Input)
    If($Commande <> "") Then
        StdinWrite($Console, $Commande)
    EndIf
EndFunc
 
mais cela ne marche pas.

Si quelqu'un peut m'aider ^^'

Merci.

Re: [..] Dialoguer avec cmd.exe

Posté : dim. 12 juil. 2009 18:55
par orax
Les commandes sont envoyées mais pas exécutées. Modifiez le StdinWrite en StdinWrite($Console, $Commande & @CRLF).

Re: [R] Dialoguer avec cmd.exe

Posté : lun. 13 juil. 2009 12:32
par TommyDDR
Orax, tu es un dieu, merci a toi (encore une fois ^^).

Résolu.