[FUNCION] Autoit CMD Prompt

[79137913]

HOLA!!!

Jugando con autoit cree esta pequeña suite de funciones para trabajar con CMD:

Código (autoit) [Seleccionar] Expandir

;Creado por 79137913
Global $cmdpid
Global $cmdresponse

;~ _iniciarCMD()
;~ _sendCMDCommand("ping 127.0.0.1",2)
;~ MsgBox(0,"",$cmdresponse)
;~ _sendCMDCommand("cd ..",1)
;~ MsgBox(0,"",$cmdresponse)
;~ _sendCMDCommand("cd ..",1)
;~ MsgBox(0,"",$cmdresponse)
;~ _CerrarCMD()
Exit
func _SendCMDCommand($command,$timeoutlimit);Envia un comando CMD y devuelve la respuesta, timeout es en segundos
   StdinWrite($cmdpid,$command)
   StdinWrite($cmdpid,@CRLF)
;StdinWrite($cmdpid)
   Local $data
Local $response
Local $timeout
$data = ""
   While True
   sleep(100)
       $data &= StdoutRead($cmdpid)
       If $data <> "" Then
$response=$response & $data
$data=""
$timeout=0
EndIf
$timeout=$timeout+1
if $timeout=$timeoutlimit*10 then ExitLoop
   WEnd
   $cmdresponse = $response
EndFunc
func _CerrarCMD();Cerrar CMD
  StdinWrite($cmdpid)
EndFunc  
Func _IniciarCMD();Inicializar CMD
   $cmdpid = Run("C:\Windows\system32\cmd.exe",@SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)
EndFunc

GRACIAS POR LEER!!!

[Danyfirex]

Gracias por la función es muy útil.  no uses Dim

saludos