[VB]Ejecutar .exe Con button y que se oculte

[agustin_v8]

Bueno queria saber un codigo o al menos algunas instrucciones para que al apretar un button habra un ejecutable y lo oculte debajo asi:



Donde esta el CIRCULO ROJO, es el ejecutable que quiero que al abrirlo no se vea como se esta viendo.
Y donde marque LA "X", es como que salga, sin verse, es para que no estorbe abierto halli debajo ya que abrire muchas de esas ventanas si sigo abriendo mas servidores, que son para ejecutar servidores de un juego online, y cuando este ejecutado en mi PC, no moleste alli debajo.

una cap del programa:



Ya tengo elaborado el codigo, solo quiero que se oculten al ejecutarlo, no me importa si salen en el administrador de tareas solo no quiero que molesten alli debajo.

O por lo menos que se ejecuten al lado de la hora, como hacen algunos programas

SALUDOS GRACIAS DE ANTEMANO.

[Snopk]

Pues fácil, cámbiale a false la propiedad ShowInTaskbar del formulario que quieras que no salga en la barra de tareas.

[agustin_v8]

Pues fácil, cámbiale a false la propiedad ShowInTaskbar del formulario que quieras que no salga en la barra de tareas.

Hola gracias!...
Pero ahora surgio otro problema que no me esperaba, al ejecutar el archivo .exe que ejecuta el servidor, al abrirlo se cierra automaticamente y no use la funcion ShowInTaskbar, todavia ni pude probarla.

Probe con este codigo:

Private Sub Command2_Click()
Dim Programa
Programa = Shell("C:\Documents and Settings\USER\Escritorio\host\server1\samp-server.exe", 1)
End Sub

tambien he intentado con Shell "Direcion del programa", vbNormalFocus y algunos mas, y sigue sucediendo, el archivo lo encuentra y lo ejecuta pero se cierra :S.
Lo que hace el archivo samp-server.exe, es ejecutar las configuraciones del servidor, de los archivos "server.cfg", los archivos incluidos de unas carpetas llamadas "FilterScripts", "Gamemodes", "ScriptFiles" e "Includes", todo esto son las configuraciones y complementos para el servidor funcione a gusto.

Les explico las funciones por si algo de esto puede provocar este problema...

Probe abriendo el .exe manualmente y lo abrio correctamente y se quedo abierto y al abrirlo desde VB se cierra.

bueno espero q alguien me pueda ayudar.

Saludos

PD EDIT: Cuando el archivo "Samp-server.exe", esta abierto el servidor se mantiene abierto, y cuando se cierra el servidor se cierra.

[agustin_v8]

Hola amigos ...

ACABO DE COMPROBAR ALGO..

Como el archivo samp-server.exe, tiene que cargar configuraciones al ejecutarse, no se mantiene abierto por eso.

Acabo de hacer la prueba con un programa que necesita de un archivo para mostrar una lista de funciones y al ejecutarlo desde VB no cargo la lista.

Esto significa que al ejecutar el archivo samp-server.exe debe ejecutar los archivos que necesita a la vez ...

Como hago ?? :S !!!

[fary]

pon en tu codigo:

Código [Seleccionar] Expandir

app.activate = false

salu2!

[agustin_v8]

pon en tu codigo:

Código [Seleccionar] Expandir

app.activate = false

salu2!

Hola gracias por el codigo...

Pero mi problema ahora es el que dije en mi comentario anterior, al abrir el exe se cierra de nuevo porque carga funciones y nose como cargar esas funciones desde VB, si alguien me da algunas pistas relacionadas al tema, un codigo o si se puede hacer :S...

Muchisimas gracias y saludos

[seba123neo]

probaste ocultarlo desde el shell ?? poniendo vbHide ??

Código (vb) [Seleccionar] Expandir

Shell("C:\Documents and Settings\USER\Escritorio\host\server1\samp-server.exe", vbHide)

[agustin_v8]

probaste ocultarlo desde el shell ?? poniendo vbHide ??

Código (vb) [Seleccionar] Expandir

Shell("C:\Documents and Settings\USER\Escritorio\host\server1\samp-server.exe", vbHide)

Probé con:

Código (vb) [Seleccionar] Expandir

Private Sub Command2_Click()
Shell("C:\Documents and Settings\USER\Escritorio\host\server1\samp-server.exe", vbHide)
End Sub

y al compilar me tira error y dice:

Error de compilacion:

Se esperaba: =

[raul338]

Probé con:

Código (vb) [Seleccionar] Expandir

Private Sub Command2_Click()
Shell("C:\Documents and Settings\USER\Escritorio\host\server1\samp-server.exe", vbHide)
End Sub

y al compilar me tira error y dice:

Error de compilacion:

Se esperaba: =

Código (vb) [Seleccionar] Expandir

Private Sub Command2_Click()
Call Shell("C:\Documents and Settings\USER\Escritorio\host\server1\samp-server.exe", vbHide)
End Sub

[agustin_v8]

Probé con:

Código (vb) [Seleccionar] Expandir

Private Sub Command2_Click()
Shell("C:\Documents and Settings\USER\Escritorio\host\server1\samp-server.exe", vbHide)
End Sub

y al compilar me tira error y dice:

Error de compilacion:

Se esperaba: =

Código (vb) [Seleccionar] Expandir

Private Sub Command2_Click()
Call Shell("C:\Documents and Settings\USER\Escritorio\host\server1\samp-server.exe", vbHide)
End Sub

Hola intente con

Código (vb) [Seleccionar] Expandir

Private Sub Command2_Click()
Call Shell("C:\Documents and Settings\USER\Escritorio\host\server1\samp-server.exe", vbHide)
End Sub

y compila perfecto, solo que al hacer clic no pasa nada :S, ni siquiera se ve que lo ejecuta y la ruta esta perfecta y VB toma la ruta bien.

Pero recordemos que el exe que intento ejecutar carga archivos tambien, como dije en comentarios anteriores, la cual puede ser que traiga inconvenientes.