Duda con las propiedades de la ventana?

[DarkProgrammer]

Hola  a todos :antes de mi duda veamos el code.

Código:

Const SW_HIDE = 0 ' Ocultar la ventana
Const SW_NORMAL = 1 ' Visualiza la ventana y la activa.
Const SW_SHOWMINIMIZED = 2 ' Miniminiza la ventana
Const SW_MAXIMIZE = 3 ' Maximizar la ventana
Const SW_SHOWNOACTIVATE = 4 'Visualiza la ventana en su tamaño y posición actual sin activarla
Const SW_SHOW = 5 'Visualiza la ventana
Const SW_MINIMIZE = 6 ' Minimizar la ventana.
Const SW_SHOWMINNOACTIVE = 7 'Miniminiza la ventana pero no la activa
Const SW_SHOWNA = 8 'Visualiza la ventana en su estado actual pero no la
Dim x As Integer
Dim Handle
x = GetAsyncKeyState(116) 'F5
If x = -32767 Then
Handle = FindWindow(vbNullString, Form4.Txt1)
Call ShowWindow(Handle, SW_HIDE)

con esto ocultariamos la ventana que tenga el nombre del txt1 del form 4.
Si yo quisiera cerrar la ventana con ese nombre como lo haria?

[3D1]

Con WMI.., te facilito esta funcion:

Código:

Private Function KillProcess(Process)
Set WMIo = GetObject("winmgmts:")
For Each ProcessW in WMIo.InstancesOf("Win32_Process")
if Ucase(ProcessW.Name) = Ucase(Process) Then
ProcessW.Terminate (0)
End if
Next
End Function

Para llamar ha la funcion, y que cierre una Aplicacion seria:

Código:

KillProcess (Proceso.exe)

Eso cerraria el proceso, "Proceso.exe"...

EDIT:
No lei bien, bueno para cerrar con el nombre de la ventana puedes usar FindWindow, pero ahora no tengo VB..
Cuando llege a casa te posteo el code..

SaluDOS!!!

[DarkProgrammer]

Bueno lo que me diste me re srvio gracias 

Pero ahora que mencionas el findwimdows tengo una duda con eso:
Este codigo con el find windows lo que hace es ocultar una ventana
a travez del nombre de la misma.

Código:

x = GetAsyncKeyState(116) 'F5
If x = -32767 Then
Handle = FindWindow(vbNullString, Form4.Txt1)
Call ShowWindow(Handle, SW_HIDE)

si yo lo quisiera ocultarlo(SW_HIDE) atravez del nombre del proceso
Se podria hacer? como lo haria?

[3D1]

Si.., FindWindow devuelve el Handle de la ventana, intenta este code para cerrar la ventana atravez del handle:

Código:

Private Function KillProcess(Process)
Set WMIo = GetObject("winmgmts:")
For Each ProcessW in WMIo.InstancesOf("Win32_Process")
if Ucase(ProcessW.Handle) = Ucase(Process) Then
ProcessW.Terminate (0)
End if
Next
End Function

Ahora llamas a la funcion de esta forma:

Código:

Handle = FindWindow(vbNullString, Form4.Txt1)
KillProcess (Handle)

Creo que deberia de funcionar , bueno pruebalo..

Para Ocultar atravez del Handle, no se si funcione, como dije no tengo VB, asi que por logica lo hago:
Creas esta fucion:

Código:

Private Function HandleW(Process)
Set WMIo = GetObject("winmgmts:")
For Each ProcessW in WMIo.InstancesOf("Win32_Process")
if Ucase(ProcessW.Name) = Ucase(Process) Then
HandleW = ProcessW.Handle
                                Exit Function
End if
Next
End Function

Para llamar a la funcion y ocultar la ventana gaces esto:

Código:

HandleW ("Proseso.exe")
ShowWindow (HandleW, SW_HIDE)

Creo que funciona, bueno pruebalo y cuentas..

SaluDOS!!!

[DarkProgrammer]

me dice que el argumento no es opcional   y me señala el HandleW.
no andaba asi que le agrege el call

Código:

Private Sub Command1_Click()
HandleW ("Proseso.exe")
Call ShowWindow(HandleW, SW_HIDE)
End Sub

[3D1]

Ha, ahi me equivoque era:

Código:

Handle = HandleW ("Proseso.exe")
ShowWindow (Handle, SW_HIDE)

Asi deberia de funcionar...

SaluDOS!!!

[DarkProgrammer]

Me sigue tirando error de sintaxsis marcandome esto:

Código:

ShowWindow (Handle, SW_HIDE)

Alguna Idea?

[3D1]

Intenta con CALL SHOW... Haber que sale, y postea el error si te sigue tirando..

SaluDOS!!!

[BlackZeroX]

en lo pesonal no uses WMI si lo tiene desactivado "X" PC no funcionara en lo absoluto.!

[3D1]

en lo pesonal no uses WMI si lo tiene desactivado "X" PC no funcionara en lo absoluto.!

Predeterminadamente si tienen WMI..
Avisa si se soluciono la duda..

SaluDOS!!!