KillApp

Public Function KillApp(myName As String) As Boolean
 
 Const PROCESS_ALL_ACCESS = 0
 Dim uProcess As PROCESSENTRY32
 Dim rProcessFound As Long
 Dim hSnapshot As Long
 Dim szExename As String
 Dim exitCode As Long
 Dim myProcess As Long
 Dim AppKill As Boolean
 Dim appCount As Integer
 Dim i As Integer
 On Local Error GoTo Finish
 appCount = 0
 
 Const TH32CS_SNAPPROCESS As Long = 2&
 
 uProcess.dwSize = Len(uProcess)
 hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
 rProcessFound = ProcessFirst(hSnapshot, uProcess)
 Do While rProcessFound
 i = InStr(1, uProcess.szexeFile, Chr(0))
 szExename = LCase$(Left$(uProcess.szexeFile, i - 1))
 If Right$(szExename, Len(myName)) = LCase$(myName) Then
  KillApp = True
  appCount = appCount + 1
  myProcess = OpenProcess(PROCESS_ALL_ACCESS, False, uProcess.th32ProcessID)
  AppKill = TerminateProcess(myProcess, exitCode)
  Call CloseHandle(myProcess)
 End If
 rProcessFound = ProcessNext(hSnapshot, uProcess)
 Loop
 Call CloseHandle(hSnapshot)
Finish:
End Function

Upload