Option Explicit
 
' ===================================================================
' Demo zum Beenden von Fremdanwendungen.
' Es muss lediglich der exakte! Fenstertitel bekannt sein.
'
' Autor:
' Gudio Eisenbeis Software (GES), guidoeisenbeis@web.de, 2003-10-15
' ===================================================================
 
 
Private Declare Function FindWindow Lib "user32" _
    Alias "FindWindowA" (ByVal sClassName As String, _
    ByVal lpWindowName As String) As Long
 
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" ( _
    ByVal hwnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, ByVal lParam As Long) As Long
 
Const WM_CLOSE = &H10
 
 
Private Sub cmdStart_Click()
    ' Starten der Fremdanwendung (Wichtig! kompletten Pfad angeben)
    Shell "Notepad.exe", vbNormalFocus
End Sub
 
Private Sub cmdStopp_Click()
    Dim FensterTitel As String
    Dim lHWND As Long
 
    FensterTitel = "Unbenannt - Editor" ' exakter Fenstertitel
    lHWND = FindWindow(vbNullString, FensterTitel)
    Call PostMessage(lHWND, WM_CLOSE, 0, 0&)
End Sub