Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '########################################################
- ' Credits 3DotDev from http://3dotdevcoder.blogspot.fr/
- '########################################################
- Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As IntPtr, ByVal uExitCode As UInteger) As Integer
- Public Sub KillProcess(Byval ProcName as string)
- For Each ObjPro As Process In Process.GetProcessesByName(ProcName)
- TerminateProcess(ObjPro.Handle, 1)
- Do Until ObjPro.HasExited = True
- Application.DoEvents()
- Loop
- Next
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement