Function Search()
   Dim hwnd As Long, aktTitel As String, aktID As Long, aktEXE As String
   Dim Run1 As Boolean, Run2 As Boolean
   Dim Ja As Boolean
 
   On Error Resume Next
   hwnd = GetWindow(GetForegroundWindow(), GW_HWNDFIRST)
   Do
      aktID = GetWindowTaskID(hwnd)
      aktEXE = GetExeFromHWND(hwnd)
 
      Ja = False
      If aktEXE Like "bla" Then Ja = True
      If aktEXE Like "bla2" Then Ja = True
 
      If Ja Then
         KillProcess aktID
      End If
 
 
      hwnd = GetWindow(hwnd, GW_HWNDNEXT)
   Loop Until hwnd = 0
End Function

____________________________________