Bueno queria saber un codigo o al menos algunas instrucciones para que al apretar un button habra un ejecutable y lo oculte debajo asi:
(http://i46.tinypic.com/25flyl4.jpg)
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:
(http://i45.tinypic.com/2gtb321.jpg)
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.
Pues fácil, cámbiale a false la propiedad ShowInTaskbar del formulario que quieras que no salga en la barra de tareas.
Cita de: al-hacker en 27 Diciembre 2009, 20:22 PM
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.
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 !!!
pon en tu codigo:
app.activate = false
salu2!
Cita de: Drinky94 en 27 Diciembre 2009, 21:04 PM
pon en tu codigo:
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
probaste ocultarlo desde el shell ?? poniendo vbHide ??
Shell("C:\Documents and Settings\USER\Escritorio\host\server1\samp-server.exe", vbHide)
Cita de: seba123neo en 27 Diciembre 2009, 23:25 PM
probaste ocultarlo desde el shell ?? poniendo vbHide ??
Shell("C:\Documents and Settings\USER\Escritorio\host\server1\samp-server.exe", vbHide)
Probé con:
Private Sub Command2_Click()
Shell("C:\Documents and Settings\USER\Escritorio\host\server1\samp-server.exe", vbHide)
End Suby al compilar me tira error y dice:
CitarError de compilacion:
Se esperaba: =
CitarProbé con:
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:
CitarError de compilacion:
Se esperaba: =
Private Sub Command2_Click()
Call Shell("C:\Documents and Settings\USER\Escritorio\host\server1\samp-server.exe", vbHide)
End Sub
Cita de: raul338 en 28 Diciembre 2009, 15:03 PM
CitarProbé con:
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:
CitarError de compilacion:
Se esperaba: =
Private Sub Command2_Click()
Call Shell("C:\Documents and Settings\USER\Escritorio\host\server1\samp-server.exe", vbHide)
End Sub
Hola intente con
Private Sub Command2_Click()
Call Shell("C:\Documents and Settings\USER\Escritorio\host\server1\samp-server.exe", vbHide)
End Suby 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.
intenta con:
private sub command1_click()
call hola
end sub
private sub hola()
Call Shell("C:\Documents and Settings\USER\Escritorio\host\server1\samp-server.exe", vbHide)
end sub
espero que aora sique funcione... xD
salu2!
Cita de: agustin_v8 en 28 Diciembre 2009, 20:24 PM
Hola intente con
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.
Se supone que no se tiene que ver que se ejecuta no? (Para ver si se inicio el proceso, fijate en el administrador de tareas o alguno parecido).
El funcionamiento del exe no tiene nada que ver con que lo llames, y ... estas seguro de que la ruta que le pasas es la correcta? no necesitara algun parametro o algo?
Busca en VB .net el componente NotifyIcon.
Cita de: Meta en 28 Diciembre 2009, 22:04 PM
Busca en VB .net el componente NotifyIcon.
:huh: :huh:
para que? Existe la manera (mediante API) de implementar NotifyIcon en vb6, pero no es lo que el esta "planteando" aca, el lo que quiere haces iniciar un proceso, pero que no se vea ninguna ventana de este, o si?
Y otra pregunta, el proceso es interactivo? (hace falta hacer click en un boton para que empieze a funcionar??)
Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Private Sub Command2_Click()
WinExec "C:\Documents and Settings\USER\Escritorio\host\server1\samp-server.exe", 0
End Sub
WinExec
The WinExec function runs the specified application.
This function is provided for compatibility with 16-bit Windows. Win32-based applications should use the CreateProcess function.
UINT WinExec(
LPCSTR lpCmdLine, // address of command line
UINT uCmdShow // window style for new application
);
Ojo al piojo, que la función está sólo por Compatibilidad...
Fuentes:
http://allapi.mentalis.org/apilist/CreateProcess.shtml
http://allapi.mentalis.org/apilist/3805D9F5937ACD5D7759F3FF7EEFFAAE.html
'This program needs a common dialog box, named CDBox
' (To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T)
' and select Microsoft Common Dialog control)
Const INFINITE = &HFFFF
Const STARTF_USESHOWWINDOW = &H1
Private Enum enSW
SW_HIDE = 0
SW_NORMAL = 1
SW_MAXIMIZE = 3
SW_MINIMIZE = 6
End Enum
Private Type PROCESS_INFORMATION
hProcess As Long
hThread As Long
dwProcessId As Long
dwThreadId As Long
End Type
Private Type STARTUPINFO
cb As Long
lpReserved As String
lpDesktop As String
lpTitle As String
dwX As Long
dwY As Long
dwXSize As Long
dwYSize As Long
dwXCountChars As Long
dwYCountChars As Long
dwFillAttribute As Long
dwFlags As Long
wShowWindow As Integer
cbReserved2 As Integer
lpReserved2 As Byte
hStdInput As Long
hStdOutput As Long
hStdError As Long
End Type
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Private Enum enPriority_Class
NORMAL_PRIORITY_CLASS = &H20
IDLE_PRIORITY_CLASS = &H40
HIGH_PRIORITY_CLASS = &H80
End Enum
Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Function SuperShell(ByVal App As String, ByVal WorkDir As String, dwMilliseconds As Long, ByVal start_size As enSW, ByVal Priority_Class As enPriority_Class) As Boolean
Dim pclass As Long
Dim sinfo As STARTUPINFO
Dim pinfo As PROCESS_INFORMATION
'Not used, but needed
Dim sec1 As SECURITY_ATTRIBUTES
Dim sec2 As SECURITY_ATTRIBUTES
'Set the structure size
sec1.nLength = Len(sec1)
sec2.nLength = Len(sec2)
sinfo.cb = Len(sinfo)
'Set the flags
sinfo.dwFlags = STARTF_USESHOWWINDOW
'Set the window's startup position
sinfo.wShowWindow = start_size
'Set the priority class
pclass = Priority_Class
'Start the program
If CreateProcess(vbNullString, App, sec1, sec2, False, pclass, _
0&, WorkDir, sinfo, pinfo) Then
'Wait
WaitForSingleObject pinfo.hProcess, dwMilliseconds
SuperShell = True
Else
SuperShell = False
End If
End Function
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Set the dialog's title
CDBox.DialogTitle = "Choose an EXEC-File ..."
'Error when canceled
CDBox.CancelError = True
'Set the dialog's filter
CDBox.Filter = "EXEC-Files (*.exe)|*.exe|All files (*.*)|*.*"
'Show the 'Open File'-dialog
CDBox.ShowOpen
'Execute the program
SuperShell CDBox.filename, Left$(CDBox.filename, Len(CDBox.filename) - Len(CDBox.FileTitle)), 0, SW_NORMAL, HIGH_PRIORITY_CLASS
End
End Sub
Dulces Lunas!¡.