Tirar Tareas de Windows desde VB
Esta función busca el identificador de la aplicación que quieres tirar, y despues envia el mensaje al Windows para destruir ese identificador. Hace la función de Ctrl-Alt-Supr... Finalizar Tarea.
Pon 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
Aqui 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 "titulo del programa a cerrar"
End Sub
En donde dice "titulo del programa a cerrar", debes poner lo que aparece en la barra de título del programa.
Ejemplo:
Para cerrar la calculadora de windows XP
Su título es: Calculadora
Entonces debes poner
TirarPrograma "Calculadora"
Espero te sirva. Saludos
