;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