LParam.hWnd = hWnd 'Store the result for later.

If strWindowTitle Like lParam.strTitle Then Retrieves a handle to the foreground window Private Shared Function GetForegroundWindow() As Integer End Function Copies the text of the specified windows title bar (if it has one) into a buffer StrWindowTitle = TrimNull(strWindowTitle) ' Remove extra null terminator

If not we will create a new item in the stack and in hashtable with timespent as 0. If it exists, we will just update the time spent on it with present time spent plus previous time spent value. Private Function EnumWindowProc(ByVal hWnd As Long, _Ĭall GetWindowText(hWnd, strWindowTitle, 260) I am getting active application title and its process name by using, I am appending both title, its process name and checking whether that already exist in the stack. Parameters.strTitle = strWindowTitle ' Input parameterĬall EnumWindows(AddressOf EnumWindowProc, VarPtr(Parameters))

'We'll pass a custom structure in as the parameter to store our result. Public Function FnFindWindowLike(strWindowTitle As String) As Long Private Declare PtrSafe Function GetWindowText Lib 'user32' _ Private Declare PtrSafe Function EnumWindows Lib 'user32' _ I would like to get the open windows with vba, I have found the next program but I get a type mismatch when calling 'Call EnumWindows(AddressOf EnumWindowProc, VarPtr(Parameters))'.

User32 getwindowtext