Determining the Active Window
Posted
by Aaron Young
on February 3rd, 2004
In the example project, all window captions are printed to the debug window, although you could quite easily watch for any window being activated and then monitored in the background using this method.
' ' In a form, with a Timer control (timer1) ' 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 Sub Form_Load() Timer1.Interval = 100 End Sub ' private Sub Timer1_Timer() static lHwnd as Long Dim lCurHwnd as Long Dim sText as string * 255 ' lCurHwnd = GetForegroundWindow If lCurHwnd = lHwnd then Exit Sub lHwnd = lCurHwnd If lHwnd <> hwnd then Caption = "ActiveWidow: " & Left$(sText, _ GetWindowText(lHwnd, byval sText, 255)) else Caption = "ActiveWindow: Form1" End If End Sub ' '
Comments
A little alteration
Posted by david on 11/28/2012 02:07pmcould this be used with something like a sendkeys program to automate sending keystrokes to a program. And will some post an example.
ReplyHow to know the EXE filename linked to the active windows?
Posted by rei_vilo on 09/26/2004 05:54amGreat code to know the active window, it works fine... but how to get the EXE filename of the app of this active windows ? Thanks!
ReplyHow do I determine for specific application whether it is runnign or close?
Posted by Legacy on 11/05/2003 12:00amOriginally posted by: Mamta Shah
Please help me in order to determine if I looking for specific vb application that is running or Closed.
Thanks,
Mamta
x
Posted by Legacy on 06/24/2002 12:00amOriginally posted by: kishore
i want to capture , the form, event name when ever it gives error message while running vb project
with regards
Replykishore
Very useful
Posted by Legacy on 04/27/2002 12:00amOriginally posted by: Serdar GERE
That's very useful and simple code. thanks.
Reply