Hard? Pfft. Nah
Code:
#NoTrayIcon
#Persistent
#SingleInstance, Force
; Your window name goes here:
TargetWindow = Untitled - Notepad
Gui,+LastFound
hWnd := WinExist()
DllCall( "RegisterShellHookWindow", UInt,hWnd )
MsgNum := DllCall( "RegisterWindowMessage", Str,"SHELLHOOK" )
OnMessage( MsgNum, "ShellMessages" )
return
ShellMessages( wParam,lParam )
{
;Local k
global
If (wParam = 1)
{
NewID := lParam
WinGetTitle, Title, ahk_id %NewID%
WinGetClass, Class, ahk_id %NewID%
If Title =
{
sleep 2000
WinGetTitle, Title, ahk_id %NewID%
WinGetClass, Class, ahk_id %NewID%
}
If Title = %TargetWindow%
gosub ActionLabel
return 1
}
}
ActionLabel:
SoundBeep
SoundBeep
SoundBeep
Msgbox Notepad has been detected!
return
Twas an interesting challenge. Cant remember where I got the info for shell hooks.. most likely [
Tips N Tricks: How to Hook on to Shell to receive its messages ]
Edit:
Don't know if you'll pick up on it yet, but theres a spot in the script where you can state a window name you want instead of "Untitled - Notepad" I marked it with "Your window name goes here:" above the line of code.
Also, at the bottom of the script,
ActionLabel: is run every time a new notepad window is detected. So feel free to replace the sound beep's and msgbox with mousemove, send, or whatever your heart desires.
Login
Register
FAQ
Search
