Ocultar ventana DOS por usar oShell

[YAcosta]

Ayudando a un amigo se me presento esta inquietud, en esta parte del codigo:

Código: (VB) [Seleccionar]

   
   ...
   Set oExec = oShell.Exec(Comando)    '<--- Aqui abre la ventana DOS
   ret = oExec.StdOut.ReadAll()      '<--- Leo y lo guardo en la variable ret que luego mostrare, la ventana ya se oculto
   ...

No he encontrado forma de que la ventana DOS no se muestre, se ejecute y logre obtener datos pero que no sea visible.  ¿es posible?

Saludos

[xkiz ™]

con FindWindow y despues ocultaria ese hwnd. asi habia hecho cuando usaba Blender que en Windows tiene una ventana en D.O.S

[ssccaann43]

Doc, por lo general yo uso esto.

Código: (vb) [Seleccionar]

Shell ("cmd.exe"), vbHide

Pruebalo sin el vbHide y veras que se muestra, con el vbHide, veras que se oculta...!

[YAcosta]

Doc, por lo general yo uso esto.

Código: (vb) [Seleccionar]

Shell ("cmd.exe"), vbHide

Pruebalo sin el vbHide y veras que se muestra, con el vbHide, veras que se oculta...!

Yo tambien pero el amigo en cuestion no usa Shell sino o oShell.

Aqui el codigo completo (Copy paste, 2 textboxes y un command)

Código: (VB) [Seleccionar]

Private Sub Command1_Click()
  txt_resultado.Text = ""
  txt_resultado.Text = ejecutar_Dos(Trim(txt_comando))
End Sub

Private Sub Form_Load()
Command1.Caption = " Ejecutar DOS "
txt_comando.Text = "ping 192.168.1.1"
End Sub

Function ejecutar_Dos(Comando As String) As String
    Dim oShell As WshShell
    Dim oExec As WshExec
    Dim ret As String
    Set oShell = New WshShell
    DoEvents
    ' ejecutar el comando

    Set oExec = oShell.Exec("%comspec% /c " & Comando)
    ret = oExec.StdOut.ReadAll()
   
    ' retornar la salida y devolverla a la función
    ejecutar_Dos = ret ' Replace(ret, Chr(10), vbNewLine)
   
    DoEvents
    Me.SetFocus
   
End Function


Para que el codigo funcione hay que activar la referencia Windows Script Host Object Model.


En todo caso lo que se quiere es ejecutar en el DOS unos comandos y capturarlos. Entiendo que lo correcto seria indicar cuales son esos comandos y es lo que averiguare, pero en general ¿como seria?

[YAcosta]

con FindWindow y despues ocultaria ese hwnd. asi habia hecho cuando usaba Blender que en Windows tiene una ventana en D.O.S

Voy a ver eso, gracias.

[YAcosta]

Nada no encontré forma de resolver esto.

Lo único que si se es que se le pasa una ip privada, esto entrega un resultado text que se recibe en la variable ret y se muestra en formulario, el unico detalle es que no se quiere que se levante la ventana cmd ya que esta aparece por 2 segundos e incomoda.

[raul338]

Hay que ver el codigo de la clase para que se oculte

Si lo ejecuta en algun acceso directo o algo así, se muestra igual?

[YAcosta]

No entiendo doc ¿Cual clase?... Fíjate te pongo el proyecto aqui

Lo bajas, lo ejecutas, veras que se abre la ventana cmd, se cierra y te pinta el textbox. Lo que quiero es que todo siga igual solo que no se muestre la ventana cmd. Eso no consigo. Es poquísimo código el cual mostré arriba.

Saludos

[E N T E R]

Y no le conviene usar este code

http://support.microsoft.com/kb/300197/es

Hacer ping desde vb6, o si o si tiene que ser desde el d.o.s.

Saludos

[YAcosta]

No amigo, es que lo del ping es solo un ejemplo, la ip que consultare es de una empresa y lleva usuario, password y un par de parametros mas porque se esta consultado a una tarjeta electronica que prende y apaga unas maquinas, como es un dato privado no lo puedo publicar, pero los datos que entrega son exactamente como si se consultara una ip con el ping como puse en el ejemplo.

Actualmente lo usan en modo DOS y funciona, en DOS entrega un resultado en modo texto (no se como llamarlo) y eso logramos capturar en el textbox con el oShell, el unico detallito es que no queremos que levante la ventana DOS (cmd) cuando trabajamos con el aplicativo que se esta desarrollando.

[raul338]

Una vez postie un metodo para ejecutar una tarea y esperar a que termine, el tema es que no devuelve el texto de como se termino, pero quizas viendo las API se pueda hacer

http://leandroascierto.com/foro/index.php?topic=1673.msg9448#msg9448

El uso es

Call ShellWait("exe", "parametros", "carpeta donde se ejecuta")

el 3º parametro seria el "iniciar en" a la hora de hacer un acceso directo

[erbuson]

Hola, en una ocasión estuve buscando algo similar y no llegué a encontrar la manera de ocultar .Exec, sólo se puede hacer con el .Run

Si te parece esta es una opcion:

Código: (VB) [Seleccionar]

Function ejecutar_Dos(Comando As String) As String
    Dim oShell As WshShell
    Dim Fichero As Integer
    Set oShell = New WshShell
    oShell.Run "%comspec% /c " & Comando & " >salida.tmp", 0, True
    Fichero = FreeFile
    Open "salida.tmp" For Input As #Fichero
    ejecutar_Dos = Input(LOF(Fichero), #Fichero)
    Close #Fichero
    Kill "salida.tmp"
End Function
No se si te puede valer en todos los casos pero utilizando el redireccionador de D.O.S., puedes crear un archivo temporal con el contenido de los datos y devolverlo después.

El .Run te permite determinar el tipo de Ventana y si o no debe esperar a terminar.

Saludos

[YAcosta]

Muchas gracias. Voy a probar eso cuando llegue a casa.

Saludos