Cómo cerrar una aplicación usando vb

Puede utilizar las funciones API FindWindow y PostMessage para buscar la ventana y cerrarla. El siguiente ejemplo muestra cómo cerrar una ventana llamada Calculadora.

El siguiente código se coloca en el módulo.

¿Declaración? ¿Función? ¿Buscar ventana? ¿Lib? ¿"Usuario 32"? ¿Alias? ¿"BuscarVentanaA"? (¿ByVal?lpClassName?como?String,?ByVal?lpWindowName?as?String)? ¿Como? ¿dragón? Función FindWindowAPI

¿Declaración? ¿Función? ¿Dejar un mensaje? ¿Lib? ¿"Usuario 32"? ¿Alias? ¿"SMS postales"? (¿ByVal?hwnd?as?dragon,?ByVal?wMsg?as?dragon,?ByVal?wParam?as?dragon,?lParam?as?any)? ¿Como? ¿dragón? Función PostMessageAPI

¿Pública? ¿Constante? ¿WM_CLOSE? =?ampH10? Definición de variable pública

Código de programa

¿Dim? ganarHwnd? ¿Como? ¿dragón? Defina una variable entera larga winHwnd.

¿Oscuro? ¿RetVal? ¿Como? ¿dragón? Defina una variable entera larga RetVal.

winHwnd? =?FindWindow(vbNullString,?"calculadora")? Función API para encontrar la ventana "Calculadora"

Depuración. ¿Imprimir? ganarHwnd? El identificador de visualización de esta ventana.

¿Y si? ganarHwnd? ¿Es gt? 0? ¿Y entonces qué? Si no es 0, se encuentra la ventana.

¿RetVal? =?PostMessage(winHwnd, WM_CLOSE,?0 amp,?0 amp)? Enviar un mensaje de cierre a esta ventana.

¿Y si? ¿RetVal? =?0?¿Y entonces qué? Si la información devuelta es 0, significa falla y la transmisión no tuvo éxito.

¿Cuadro de mensajes? "¿Error? ¿Publicar? Mensaje". El envío rápido falló.

¿Fin? Si

¿Otro

Cuadro de mensaje? "¿Eso? ¿Calculadora? ¿Sí? ¿No? ¿Encendido?" Dice que no se puede encontrar el programa abierto.

¿Fin? si