por que no funciona?
Publicado: 13 Jun 2010, 18:14
buenas...
estaba creando un programa que leyera los datos de un cmd que abre con el para poder copiarlos pero no funciona..
el caso es que aqui teneis el codigo:
haber por que ******* no va!!
estaba creando un programa que leyera los datos de un cmd que abre con el para poder copiarlos pero no funciona..
el caso es que aqui teneis el codigo:
Código: Seleccionar todo
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
Global $foo = Run("cmd.exe",@SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDIN_CHILD)
$Dat = StdoutRead($foo)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("CMD", 714, 390, -1, -1)
$Edit1 = GUICtrlCreateEdit("", 16, 16, 681, 321)
GUICtrlSetCursor (-1, 5)
GUICtrlSetData($edit1,$dat)
$Input1 = GUICtrlCreateInput("", 104, 354, 593, 21)
$Button1 = GUICtrlCreateButton("ok", 16, 352, 83, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$Dat = StdoutRead($foo)
GUICtrlSetData($edit1,$dat)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $button1
StdinWrite($foo,guictrlread($input1))
StdinWrite($foo,"{enter}")
EndSwitch
WEnd