Tirar Tareas de Windows desde VB

Esta función busca el identificador de la aplicación que quieres tirar, y después envía el mensaje al Windows para destruir ese identificador. Hace la función de Ctrl-Alt-Supr… Finalizar Tarea.

Inserta este código en un módulo y llama a la función enviando la cabecera (nombre/descripción) del programa que quieres tirar.

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, _
         ByVal lpWindowName As String) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
         ByVal wParam As Long, lParam As Any) As Long

Function TirarPrograma(Programa As String) As Boolean
    TirarPrograma = IIf(SendMessage(FindWindow(0&, Programa), &H10, 0, 1) = 0, True, False)
End Function

Aquí tienes un ejemplo de como funciona. Debes compilar el proyecto para que funcione ya que ignora la orden en diseño.

Private Sub Command1_Click()
    TirarPrograma "Autoexec.bat - Bloc de notas"
End Sub

Private Sub Form_Load()
    Shell "NotePad c:autoexec.bat"
End Sub

Publicado en microsoft.public.es por MavericK

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s