Bienvenido a Visual Basic Siglo XXI
Inicio · Artículos · Descargas · Tu cuenta · Foros · Top 10
 
 


 
 
Módulos

· Inicio
· Artículos
· Blogs
· Buscar
· Comentarios
· Descargas
· Encuestas
· Enlaces
· Enviar artículos
· Estadísticas
· Foros
· Mensajes privados
· Recomiéndanos
· Top 10
· Tu cuenta
 
 

 
 
Publicidad

 
 

 
 
¿Quién está en línea?

Actualmente hay 10 invitados, 0 miembro(s) conectado(s).

Eres un usuario anónimo. Puedes registrarte aquí
 
 

 
 
Páginas amigas

Código web
!!! Gana dinero gratis !!!

Mundo JavaScript

Get Firefox!

Sorteo de visas

Audios de Chicho

ActiveLock

CabControl

Blog de Gustavo Alegre

RECMA - Vigilancia por Internet

Soluciones IP Network - Redes Inalámbricas, Cableado Estructurado y Telefonía IP
OnGlasses.net - Contenidos de programación, artículos, foros,  videos, noticias, eventos y chat.
 
 

 
  Cerrar proceso usando el título de la ventana principal de la aplicación
Posted on Saturday, 25 September a las 07:29:30 by galegre

Visual Basic Código para cerrar un proceso utilizando el título de la ventana principal del programa. Muy útil en casos que se desee cerrar aplicaciones desde nuestro programa.

Crear un módulo y pegue el siguiente código:


Option Explicit

Private Declare Function OpenProcess Lib "kernel32" (ByVal _
dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long

Private Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, lpExitCode As Long) As Long

Private Declare Function TerminateProcess Lib "kernel32" _
(ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject _
As Long) As Long

Private Declare Function GetWindowThreadProcessId Lib "user32" _
   (ByVal hwnd As Long, lpdwProcessId As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long

Const PROCESS_TERMINATE = &H1
Const PROCESS_QUERY_INFORMATION = &H400
Const STILL_ACTIVE = &H103

Public Sub CerrarProceso(TítuloVentana As String)
Dim hProceso As Long
Dim lEstado As Long
Dim idProc As Long
Dim winHwnd As Long

winHwnd = FindWindow(vbNullString, TítuloVentana)
If winHwnd = 0 Then
    Debug.Print "El proceso no está abierto": Exit Sub
End If
Call GetWindowThreadProcessId(winHwnd, idProc)

' Obtenemos el handle al proceso
hProceso = OpenProcess(PROCESS_TERMINATE Or _
PROCESS_QUERY_INFORMATION, 0, idProc)
If hProceso <> 0 Then
    ' Comprobamos estado del proceso
    GetExitCodeProcess hProceso, lEstado
    If lEstado = STILL_ACTIVE Then
    ' Cerramos el proceso
        If TerminateProcess(hProceso, 9) <> 0 Then
            Debug.Print "Proceso cerrado"
        Else
            Debug.Print "No se pudo matar el proceso"
        End If
    End If
    ' Cerramos el handle asociado al proceso
    CloseHandle hProceso
Else
    Debug.Print "No se pudo tener acceso al proceso"
End If
End Sub

Por ejemplo, si desea cerrar la calculadora de Windows, llame a la función así: CerrarProceso("Calculadora"). Donde "Calculadora" es el título de la ventana del programa que desea cerrar.



 
 

 
 
 
Enlaces Relacionados

· Más Acerca de Visual Basic
· Noticias de galegre


Noticia más leída sobre Visual Basic:
Insertar imagen en un RichTextBox

 
 

 
 
Votos del Artículo

Puntuación Promedio: 2.56
votos: 25


Por favor tómate un segundo y vota por este artículo:

Excelente
Muy Bueno
Bueno
Regular
Malo


 
 

 
 
Opciones


 Versión Imprimible  Versión Imprimible

 Enviar a un Amigo  Enviar a un Amigo

 
 

 
 
Los comentarios son propiedad de quien los envió. No somos responsables por su contenido.
 
 


 
 
No se permiten comentarios Anónimos, Regístrese por favor
 
 


 
 
Re: Cerrar proceso usando el título de la ventana principal de la aplicación (Puntuación 0)
por Anonymous el Monday, 22 May a las 22:30:27
Hola, mi búsqueda está orientada a cerrar el Internet Explorer. Su título varñia según el site...
Como se podría resolver ? Gracias

fresnos888@yahoo.com.au


 
 


 
 
Re: Cerrar proceso usando el título de la ventana principal de la aplicación (Puntuación 0)
por Anonymous el Tuesday, 30 May a las 16:39:02
hola.,,,si quiero ejecutar un archivo (por ej.un video mpeg) hacíendolo con shellexecute...
como averiguo si terminó dicho video para después cerrarlo?
gracias
joseluisrios55@gmail.com


 
 


 
 
!!!WOW!!!02702 (Puntuación 1)
por gzndon47827 el Thursday, 24 January a las 23:50:12
(Información del Usuario | Enviar un Mensaje)
Hey. I'm from Zimbabve


 
 







 
 
Cultura general © 2006. Todos los derechos reservados.
Visual Basic es una marca registrada de Microsoft Corporation.
Esta web ha sido elaborada utilizando PHP-Nuke. Copyright © 2005. Todos los derechos reservados. PHP-Nuke es un Software Libre desarrollado bajo la licencia GNU/GPL.
Página Generada en: 0.052 Segundos