• Home
 · 
• Windows API Call/Explanation
 · 
• WinKill

WinKill

WinKill destroys a window if you know its title bar caption.

Assumes
' Create a form a text box called txtName and a command button called cmdKill

API Declarations
' Api constants for General DeclarationsConst WM_DESTROY = &H2
Const WM_CLOSE = &H10' Api Functions for general declarations
Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Integer
Private Declare Function SendMessageA Lib "user32" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long


Rate WinKill

• 1
• 2
• 3
• 4
• 5

(16(16 Vote))

'*************************************************************************
'WinKill Form Code
'*************************************************************************
Private Function Kill(hWnd&) 
 Dim Res& ' Ask it politely to close
 Res = SendMessageA(hWnd, WM_CLOSE, 0, 0)
 ' Kill it (just in case)
 Res = SendMessageA(hWnd, WM_DESTROY, 0, 0)
End Function
Private Sub cmdKill_Click()
 Dim hWnd& ' Get the window handle
 hWnd = FindWindowA(vbNullString, txtName.Text) ' Call the kill function
 Kill (hWnd)
End Sub