Any help would be appreciated.
Code: Select all
#include once "windows.bi"
Dim As HWINEVENTHOOK gHook
Sub CallBackFunction(hook As HWINEVENTHOOK, Event As DWORD, hwnd As HWND, idObject As Long, idChild As Long, dwEventThread As DWORD, dwmsEventTime As DWORD)
Print "CallBackFunction executed"
End Sub
gHook = SetWinEventHook(EVENT_SYSTEM_FOREGROUND, EVENT_SYSTEM_FOREGROUND, Null, @CallBackFunction, 0, 0, WINEVENT_OUTOFCONTEXT Or WINEVENT_SKIPOWNPROCESS)
If gHook = 0 Then
print "Call to SetWinEventHook failed with error is ";getlasterror()
Else
Print "SetWinEventHook set"
endif
Sleep