/ Snippet Library - View Code

Visual Basic / API / Kill Rogue Programs

Snippet details

ID: 141

Viewed: 1337

Added: 2002-04-28

Version:

Snippets in this catagory
Show Printable Version

Kills Rogue Programs

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: unknown

Snippet By:	unknown
Declarations
Highlight AllOption Explicit ' ' Another sample found on the net somewhere.... ' ' ------------------------------------------------- ' Used by OpenProcess function ' ------------------------------------------------- Private Const PROCESS_ALL_ACCESS = &H1F0FFF ' ------------------------------------------------- ' API's used to get window info ' ------------------------------------------------- Private Declare Function DestroyWindow _ Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function IsWindow _ Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function OpenProcess _ Lib "kernel32" _ (ByVal dwDesiredAccess As Long, _ ByVal bInheritHandle As Long, _ ByVal dwProcessId As Long) As Long Private Declare Function CloseHandle _ Lib "kernel32" _ (ByVal hObject As Long) As Long Private Declare Function TerminateProcess _ Lib "kernel32" _ (ByVal hProcess As Long, _ ByVal uExitCode As Long) As Long Private Declare Function GetWindowThreadProcessId _ Lib "user32" _ (ByVal hwnd As Long, _ lpdwProcessId As Long) As Long
Code
Highlight AllPublic Sub KillWindow(ByVal xlngWndHwnd As Long) Dim plngPID As Long Dim plngRtn As Long Dim plngOpenProcHwnd As Long plngRtn = GetWindowThreadProcessId(xlngWndHwnd, plngPID) If plngPID > 0 Then plngOpenProcHwnd = OpenProcess(PROCESS_ALL_ACCESS, 0&, plngPID) If plngOpenProcHwnd <> 0 Then DoIt xlngWndHwnd, plngOpenProcHwnd plngRtn = CloseHandle(plngOpenProcHwnd) End If End If End Sub Private Sub DoIt(xlngHwnd As Long, xlngProcessHwnd As Long) Dim plngRtn As Long Dim plngProcessHwnd As Long Dim plngThreadHwnd As Long Dim plngExitCode As Long plngExitCode = 0& If xlngHwnd <> 0 Then If IsWindow(xlngHwnd) <> 0 Then plngRtn = TerminateProcess _ (xlngProcessHwnd, _ plngExitCode) If plngRtn = 0 Then MsgBox "Failed To destroy window: Error #" & _ Err.LastDllError & ", " & _ Err.LastDllError Else MsgBox "Destroyed window!" End If End If End If End Sub

No Reviews to show