HOLA!!!
Jugando con autoit cree esta pequeña suite de funciones para trabajar con CMD:
;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!!!
Gracias por la función es muy útil. no uses Dim ;)
saludos