VB6 - How to close the application on top with Hotkeys

[paraidy]

Hi, this is a code to close the Application on top with an hotkey, copy this and add a timer, press F2 to close the active application

Option Explicit
 
      Private Declare Function GetAsyncKeyState Lib "user32.dll" _
 (ByVal vKey As Long) As Integer
      
      Private Declare Function GetForegroundWindow Lib "user32" () As Long
      
      Private Declare Function GetWindowText Lib "user32" _
        Alias "GetWindowTextA" (ByVal hwnd As Long, _
        ByVal lpString As String, ByVal cch As Long) As Long
      
      Private Declare Function WaitForSingleObject Lib "kernel32" _
         (ByVal hHandle As Long, _
         ByVal dwMilliseconds As Long) As Long
 
      Private Declare Function FindWindow Lib "user32" _
         Alias "FindWindowA" _
         (ByVal lpClassName As String, _
         ByVal lpWindowName As String) As Long
 
      Private Declare Function PostMessage Lib "user32" _
         Alias "PostMessageA" _
         (ByVal hwnd As Long, _
         ByVal wMsg As Long, _
         ByVal wParam As Long, _
         ByVal lParam 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 GetWindowThreadProcessId Lib "user32" _
         (ByVal hwnd As Long, _
         lpdwProcessId As Long) As Long
 
      'Constants that are used by the API
      Const WM_CLOSE = &H10
      Const INFINITE = &HFFFFFFFF
      Const SYNCHRONIZE = &H100000
      
      
      Function GetActiveWindowText() As String
        Dim strBuff As String
        Dim RetVal As Long
        strBuff = Space$(255)
        RetVal = GetWindowText(GetForegroundWindow(), strBuff, Len(strBuff))
        If RetVal Then GetActiveWindowText = Left$(strBuff, RetVal)
    End Function
     
      Function KillActive()
      'Closes Windows
         Dim hWindow As Long
         Dim hThread As Long
         Dim hProcess As Long
         Dim lProcessId As Long
         Dim lngResult As Long
         Dim lngReturnValue As Long
 
         hWindow = FindWindow(vbNullString, GetActiveWindowText)
         hThread = GetWindowThreadProcessId(hWindow, lProcessId)
         hProcess = OpenProcess(SYNCHRONIZE, 0&, lProcessId)
         lngReturnValue = PostMessage(hWindow, WM_CLOSE, 0&, 0&)
         lngResult = WaitForSingleObject(hProcess, INFINITE)
      End Function
 
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF2) Then
KillActive
End If
End Sub

[bushmobile]

a couple of comments:

you should use the RegisterHotKey API to create a global hotkey, rather than using a Timer.

also, GetForegroundWindow already gives you the hWnd of the window. There's no need to get the window text and then use FindWindow to get the value you already had.

[paraidy]

Thx for informations, sorry but i'm not an expert, so i'm sorry if i wrote not essential code.

[elragal_30]

alot thanks @paraidy
i was search for it for VB6 all i was found for Vb.net
i hope it can help me on my program
thanks